ich würde gerne aus einer excel zelle heraus einen hyperlink
zu einer pdf datei auf meinem terminalserver (laufwerk) setzen.
leider funktioniert das über den button hyperlink irgendwie nicht.
was mach ich falsch?
danke für die hilfe
johannes
Function ShellExecute Lib "SHELL32.DLL" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Sub Bescheid_Nr22_Prüfbericht()
Dim fileToOpen As String
'hier deinen Link eintragen ->
fileToOpen = " "
If Dir(fileToOpen) = "" Then
MsgBox "Datei kann nicht geöffnet werden"
Else
openPDF fileToOpen
End If
End Sub
Sub openPDF(strDatei As String)
Dim strTemp
strTemp = Space(Len(strDatei))
strTemp = strDatei
ShellExecute 0, "Open", strDatei, "", "", 0
End Sub