Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

PDF öffnen mit variblem Dateinamen

PDF öffnen mit variblem Dateinamen
06.07.2018 12:49:32
Hendrik
Hallo zusammen,
bei folgendem Code brauche ich wieder mal eure Hilfe.
Die PDF soll via VBA geöffnet und kopiert werden.
Nur ändert sich mein Dateiname der PDF immmer. Der Pfand bleibt gleich.
Gibt es eine getopenfile Lösung oder etwas anderes für das Problem?
Sub OeffnePDF()
Dim Datei As String
Worksheets("Tabelle1").Select
Range("A1").Select
Datei = "C:\Mails\Tool\06.07.2018"
ActiveWorkbook.FollowHyperlink Datei
'Zwischenablage:
SendKeys "^a", True
SendKeys "^c", True
'pdf Schließen:
SendKeys "%{F4}"
'In Excel-Tabellenblatt einfügen
ActiveSheet.Paste
End Sub
Vielen Dank vorab!
VG
Hendrik

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PDF öffnen mit variblem Dateinamen
06.07.2018 14:16:29
Rob

Dim Filename As String
Dim Filepath As String
Filepath = "C:\Mails\Tool\"
Filename = Dir(Filepath & "*.pdf")
ActiveWorkbook.FollowHyperlink Filepath & Filename

AW: PDF öffnen mit variblem Dateinamen
06.07.2018 14:41:04
Hendrik
So einfach? Oh man sorry.... Vielen Dank Rob!
AW: PDF öffnen mit variblem Dateinamen
06.07.2018 15:00:25
Rob
LOL! Gerne geschehen. :-)
Anzeige

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige