Sub
TXTimportieren()
Dim
Pfad
As
String
Dim
PDFDateipfad
As
String
Dim
Dateiname
As
String
Dim
Dokumentenindex
As
Long
Dim
AnzahlDateien
As
Integer
Dim
Zeile
As
Integer
Dim
Inhalt
As
String
Pfad = ActiveWorkbook.Worksheets(
"Menü"
).Range(
"C11"
).Value
AnzahlDateien = ActiveWorkbook.Worksheets(
"Menü"
).Range(
"H7"
).Value
ThisWorkbook.Worksheets(
"Import"
).Activate
ActiveSheet.Columns(
"A:XX"
).Delete
For
Dokumentenindex = 1
To
AnzahlDateien
Zeile = 1
Dateiname = ActiveWorkbook.Worksheets(
"Übersicht"
).Range(
"C"
& Dokumentenindex).Value
PDFDateipfad = ActiveWorkbook.Worksheets(
"Übersicht"
).Range(
"A"
& Dokumentenindex).Value
ActiveSheet.Cells(Dokumentenindex, 1) = PDFDateipfad
Quelldatei = Pfad & "\" & Dateiname
Open Quelldatei
For
Input
As
#Dokumentenindex
Do
While
Not
EOF(Dokumentenindex)
Line Input #Dokumentenindex, Inhalt
ActiveSheet.Cells(Dokumentenindex, Zeile + 1) = Inhalt
Zeile = Zeile + 1
Loop
Next
End
Sub