PDF öffnen mit variblem Dateinamen
06.07.2018 12:49:32
Hendrik
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
VG
Hendrik