StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POExcel button to prompt user for a file attach to active sheet?
text
Body
copied!<p>enter code hereI am trying to create a button in excel which prompts the user for file then uploads this file as a hypertext link in the active spreadsheet.</p> <p>Goal: after the file is uploaded subsequent users can simply click on the hyperlink to view the file. </p> <p>What I have tried, create an ActiveX control in excel, but representing the input as a hyperlink output in a cell is the problem ?</p> <pre><code>Private Sub CommandButton1_Click() Dim sFullName As String Application.FileDialog(msoFileDialogOpen).Show sFullName = Application.FileDialog(msoFileDialogOpen).SelectedItems(1) End Sub </code></pre> <p>Insert reference to pdfs</p> <pre><code>Sub InsertObjectAsIcon() 'lets user browse for a file to insert into the 'current active worksheet. 'all are inserted as icons, not "visible" objects, so 'to view they will need an appropriate viewer/reader 'at the recipient end. ' 'This one shows how you could set up to use 'several different icons depending on the type of file 'inserted. You'll have to experiment by recording 'macros while inserting various file types to build 'up a list to use, just add new Case Is = statements 'do deal with the file types. Be sure to enter the 'file type in all UPPERCASE. ' Dim iconToUse As String Dim fullFileName As String Dim FNExtension As String fullFileName = Application.GetOpenFilename("*.*, All Files", , , , False) If fullFileName = "False" Then Exit Sub ' user cancelled End If 'choose an icon based on filename extension 'get all after last "." in filename FNExtension = Right(fullFileName, Len(fullFileName) - _ InStrRev(fullFileName, ".")) 'select icon based on filename extension Select Case UCase(FNExtension) Case Is = "TXT" iconToUse = "C:\Windows\system32\packager.dll" Case Is = "XLS", "XLSM", "XLSX" iconToUse = "C:\Windows\Installer\{91140000-0011-0000-0000-0000000FF1CE}\xlicons.exe" Case Is = "PDF" iconToUse = "C:\Windows\Installer\{AC76BA86-1033-F400-7761-000000000004}\_PDFFile.ico" Case Else 'this is a generic icon iconToUse = "C:\Windows\system32\packager.dll" End Select ActiveSheet.OLEObjects.Add(Filename:=fullFileName, Link:=False, DisplayAsIcon:=True, IconFileName:=iconToUse, IconIndex:=0, IconLabel:=fullFileName).Select End Sub Private Sub CommandButton1_Click() InsertObjectAsIcon End Sub </code></pre>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload