Hallo,
ich habe erst angefangen Makros in Excel zu schreiben und hab hier eine Frage.
Muss zig .txt- Files öffnen und in Excel importieren, aber davon jeweils immer nur die ersten 15 zeilen.
Leider komme ich absolut nicht weiter und hoffe es kann mir jemand helfen.
Mein Code zum öffnen aller Dateien:
Sub Alle_txt_Dateien_importiern()
Dim strFile$
Const strPfad$ = "C:\_Test\"
strFile = Dir(strPfad & "*2012*.txt", vbNormal)
Do Until Len(strFile) = 0
With ActiveSheet
.Cells(.Rows.Count, 3).End(xlUp).Offset(1, -1) = strFile
With .QueryTables.Add(Connection:="TEXT;" & strPfad & strFile, _
Destination:=.Cells(.Rows.Count, 2).End(xlUp).Offset(1, 0))
.AdjustColumnWidth = True
.TextFileParseType = xlDelimited
.TextFileSpaceDelimiter = False 'Leerzeichen
.TextFileCommaDelimiter = True 'Komma
.Refresh BackgroundQuery:=False
End With
End With
strFile = Dir$
Loop
vielen Dank im Voraus und viele Grüße
Bernd
|