Importieren einer bestimmten Text-Datei in Excel-Tabelle mit VBA

Ein paar Annahmen, um Ihnen eine gewisse Flexibilität in der Anpassung dieses code-Beispiel. Meine test-Daten-Datei ist im Bild unten gezeigt, d.h. zehn variabler Länge Datensätze jedes Feld getrennt durch ein Komma. Der code liest die .csv-Datei, die einen Datensatz zu einer Zeit und stellt jeden Datensatz auf einer separaten Zeile. Innerhalb jeder Zeile (d.h. für jeden Datensatz), ist jedes Feld in eine separate Zelle ein. Es verwendet ein paar von arrays zu erreichen. Sie können passen Sie den code entsprechend Ihrem Kontext und es gibt einige Kommentare, die innerhalb, um zu helfen. Fügen Sie einfach eine Taste zum aufrufen dieses makro.

Sub ReadTxtFile()

Dim ws As Worksheet
Dim rearr(), wrarr()
Dim fName As String
Dim rowno As Long, colno As Long, rec As Long
Dim cnt As Long, cnt2 As Long
Dim delim As String

'specify output sheet
Set ws = Worksheets("Sheet1")
'specify text file to read (.csv in this example)
fName = "C:\MyPath\test.csv"
'set text file delimiter
delim = ","  'for Tab delimiter use delim = Chr(9)
ifnum = FreeFile
'set start row/col for text data to be placed ("A1" in this example)
rowno = 1  'row 1
colno = 1  'col A

    With ws
        Open fName For Input Access Read As #ifnum
            rec = 0
                Do While Not EOF(ifnum)
                    Line Input #ifnum, tmpvar
                    rec = rec + 1
                    'Put whole record into array
                    ReDim Preserve rearr(1 To rec)
                    rearr(rec) = tmpvar
                    'Split fields into a second array
                    wrarr = Split(rearr(rec), delim)
                    cnt2 = UBound(wrarr)
                        'Write fields out to specified ws range, one row per record
                        For cnt = 0 To cnt2
                            ws.Cells(rowno, colno + cnt) = wrarr(cnt)
                        Next cnt
                     rowno = rowno + 1
                Loop
            Close #ifnum
    End With
End Sub