Sub PDF()
Dim Datei As String
Datei = JournalPfad
ActiveWorkbook.FollowHyperlink Datei
'Zwischenablage:
SendKeys "^a", True
SendKeys "^c", True
SendKeys "^q"
Sheets("HilfsblattPDF").Activate
ActiveSheet.Cells(1, 1).Select
'In Excel-Tabellenblatt einfügen
ActiveSheet.Paste
'Text in spalten
ActiveSheet.Cells(1, 1).Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
End Sub
So wird das ganze aus der PDF importiert.
Das ganze ist ein Monats Stundenzettel aus dem Zeitsystem Problem ist das sich die Spalten ab und an verschieben können deshalb muss auch gesucht werden.
Nach diesem Importieren ist jede Reihe als Standart formatiert außer die in denen die Uhrzeit steht diese sind Benutzerdefiniert.
|