explizit ausgewählte txt Dateien einlesen
07.09.2018 14:19:33
Jürgen
ich wende mich nach unendlich vielen Versuchen an euch, in der Hoffnung, dass mir einer von euch helfen kann.
hier mein Problem:
Ich habe einen Ordner mit *.txt Dateien, der jeden Tag aktualisiert wird.
Alle Dateien sind gleich aufgebaut.
Von diesen Dateien muss ich nun gelegentlich 3 Stück untereinander in ein Tabellenblatt einlesen.
Das einlesen beginnt in der Zelle B1. nachdem nun die erste Datei eingelesen wurde soll von der nächsten freien Zelle in Spalte B die nächste Datei eingelesen werden.
Das gleich soll dann mit der dritten Datei genauso ablaufen.
Das Einlesen der txt-Datei erfolgt mit folgendem Code und funktioniert super.
Setze ich den Code drei mal untereinander, werden auch alle drei txt Dateien eingelesen, aber nebeneinander und nicht untereinander (ist ja auch logisch).
Hier nun der Code den ich verwende.
Dim strPfad As String
strPfad = "Pfad\Dateiname.txt"
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & strPfad, Destination:=Range("B1"))
.Name = Antwort
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False 'war True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False 'war True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False 'war True
.TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1) 'ursprung war: Array(1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Nach dieser Prozedur werden die Daten noch ein wenig hin und hergeschoben und einige Formel eingetragen, ist aber für das eigentliche vorhaben uninteressant.
Ich würde mich sehr freuen, wenn mich jemand hierbei Unterstützen könnte.
Vielen Dank im Voraus
Jürgen
Anzeige