VBA - Pdf Öffnen
30.01.2020 07:43:13
Mike
ich habe zusammen mit einem Kollegen ein Makro geschrieben was mir erlaubt beim Doppelklick auf eine Zelle eine PDF auf der gewünschten Seite zu öffnen.
Das Makro brauch einen bestimmten Pfad um Adobe zu öffnen, was erstmal kein Problem darstellt.
Mein Problem ist jetzt das wir teilweise im Netzwerk arbeiten und nicht jeder den selben Pfad für dieses Programm hat. Gibt es die Möglichkeit mehrere Pfade zu prüfen und den passenden dann zu öffnen?
hier mein Code:
Sub pdfOffnen_1()
Dim strPdfDat As String, Seite As Long
Dim objWMI As Object, objProcessList As Object, objProcess As Object
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objProcessList = objWMI.ExecQuery("Select * from Win32_Process " & _
"WHERE Name LIKE 'AcroRd%'")
On Error Resume Next
For Each objProcess In objProcessList
Call objProcess.Terminate(0)
Next
Set objProcessList = Nothing
Set objWMI = Nothing
'Pfad zum Acrobat Reader (anpassen!)
Const strAcroRd As String = "D:\Apps\Adobe\Acrobat\Reader\AcroRd32.exe"
'pdf-Datei
strPdfDat = "G:\WM-BR\Diverses\01_ZU BEARBEITEN\TEST\Arbeitsplatzbeschreibungen.pdf"
'Seite
Seite = 1
'Acrbat Reader aufrufen
Shell Chr(34) & strAcroRd & Chr(34) & " /A page=" & Seite & " " & Chr(34) & strPdfDat & _
Chr(34), vbMaximizedFocus
End Sub
