PDF-Öffnen: statische Verzeichnisquelle variabel?
23.06.2008 08:33:00
Jessica
ich hab ein Code, der mir in einer Excel-Tabelle unzählige PDF-Dokumente öffnet. Hat sich auch alles bewährt. Allerdings ist es nun so, dass von einer zentralen Stelle der Verzeichnisbaum (Server) geändert wurde. Dateien können also nicht mehr geöffnet werden. Wie kann ich diesen Verzeichniscode so umformulieren, dass der Laufwerksname nicht entscheidend ist, bzw. auch nicht die Quellangabe "\\svr04439\Gruppen\Pro\Team\Bescheid\58.pdf"?
Hier der gesamte Code:
Declare
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_Nr58()
Dim fileToOpen As String
fileToOpen = "\\svr04439\Gruppen\Pro\Team\Bescheid\58.pdf"
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
Danke vorab.
Lg.
Jessi