PDF öffnen. Teile des PDF Namens bekannt

Sub Makro2() On Error Resume Next Dim strDateiName As String Dim StrPfad As String strDateiName = Cells(1, 1) StrPfad = "P:\MNi\" strDateiName = StrPfad & strDateiName & ".pdf" ActiveWorkbook.FollowHyperlink strDateiName End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro2() 'On Error Resume Next Dim strDateiName As String Dim StrPfad As String strDateiName = Cells(1, 1) & "_Spezi_" & "?_" & "?" StrPfad = "P:\MNi\" strDateiName = StrPfad & strDateiName & ".pdf" ActiveWorkbook.FollowHyperlink strDateiName End Sub

Hallo zusammen,
ich habe mich noch weiter umgesehen und getestet.
Anbei meine Ergebnisse, welche evtl. zur Lösung meines Anliegens beitragen.
Starte ich das u.g. Makro2, kann die Datei nich geöffnet werden, so die Fehlermeldung.
Springt man in den Debugger, also VBA Editor, wird, wenn mann den Mauszeiger über:
ActiveWorkbook.FollowHyperlink LastDatNam, hält, der richtige Pfad und auch die richtige Datei im
Info- Fenster angezeigt.

Sub Makro2()
Dim AktDatNam As String, LastDatNam As String
Dim Kürzel As String
Const Pfad = "P:\MNi\"
Kürzel = Cells(1, 1)
AktDatNam = Dir(Pfad & "*" & Kürzel & "*.pdf")
While AktDatNam  ""
LastDatNam = AktDatNam
AktDatNam = Dir
Wend
ActiveWorkbook.FollowHyperlink LastDatNam '# wird nicht geöffnet: debugger
End Sub

Starte ich das u.g. Makro2, und lasse mir die Datei in einer MsgBox anzeigen,
klappt dies wie gewünscht.

Sub Makro2()
Dim AktDatNam As String, LastDatNam As String
Dim Kürzel As String
Const Pfad = "P:\MNi\"
Kürzel = Cells(1, 1)
AktDatNam = Dir(Pfad & "*" & Kürzel & "*.pdf")
While AktDatNam  ""
LastDatNam = AktDatNam
AktDatNam = Dir
Wend
MsgBox LastDatNam                   '# die richtige Datei wird gefunden und angezeigt.
End Sub

Wie bekomme ich nun aber die gefundene Datei geöffnet?
Evtl. reichen diese Ansätze ja wirklich schon für eine Lösung?
LG Lisa

Sub Makro2() Dim AktDatNam As String, LastDatNam As String Dim Kürzel As String Const Pfad = "P:\MNi\" Kürzel = Cells(1, 1) AktDatNam = Dir(Pfad & "*" & Kürzel & "*.pdf") While AktDatNam "" LastDatNam = AktDatNam AktDatNam = Dir Wend ActiveWorkbook.FollowHyperlink Pfad & LastDatNam End Sub

Beliebteste Forumthreads (12 Monate)

PDF öffnen. Teile des PDF Namens bekannt

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

111 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

PDF öffnen. Teile des PDF Namens bekannt

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

111 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread