bin grad mit meinem Latein am Ende. Ich versuche seit Stunden mit einem Makro von einem bestimmten Dateipfad eine PDF zu öffnen und bekomm das nicht hin.
Der Code sollte aber in jedem Fall passen da ich ihn von einem bereits vor Jahren erstellten VBA kopiert habe. Dort funzt er problemlos :-(
Hat jemand eine Idee was ich falsch mache?
Danke schon mal im Voraus
Private Sub open_pdf_Click()
Dim strDateiName As String
Dim strPathToAcroRead As String
strPathToAcroRead = "C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe"
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.InitialFileName = "O:\WNW\Kundendienst\Einsatzleitung\gescannte Probenbegleitscheine\" & ComboBox1 & ".pdf"
If .Show = -1 Then
strDateiName = .SelectedItems(1)
End If
End With
If strDateiName "" Then
Shell strPathToAcroRead & " /N " & strDateiName
MsgBox "Dokument wird geöffnet" & vbCrLf & "Zum öffnen bitte klicken"
End If
Unload Me
End Sub