Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

explizit ausgewählte txt Dateien einlesen

explizit ausgewählte txt Dateien einlesen
07.09.2018 14:19:33
Jürgen
Hallo liebe Gemeinde,
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

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

Betreff
Datum
Anwender
Anzeige
AW: explizit ausgewählte txt Dateien einlesen
07.09.2018 14:31:08
UweD
Hallo
ungeprüft...
Option Explicit
Sub kopieren3()

    Dim strPfad(3), i As Integer, LR As Long, Antwort As String
    strPfad(1) = "Pfad\Dateiname.txt"
    strPfad(2) = "Pfad\Dateiname2.txt"
    strPfad(3) = "Pfad\Dateiname3.txt"
        
    For i = 1 To 3
        LR = Cells(Rows.Count, "B").End(xlUp).Row 'letzte Zeile der Spalte 
        
        With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & strPfad(i), Destination:=Range("B" & LR + 1))
            .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
    Next
End Sub

LG UweD
Anzeige
AW: explizit ausgewählte txt Dateien einlesen
07.09.2018 14:38:25
Jürgen
Hallo UweD,
das ist ja Grandios,
funktioniert Super, vielen liebe Dank für deine Mühe.
Beste Grüße und ein schönes Wochenende
Jürgen
Prima! Danke für die Rückmeldung. owT
10.09.2018 09:29:53
UweD

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige