Versuchs mal mit folgendem Makro, Filename natürlich anpassen. Summenbildung habe ich jetzt nicht berücksichtigt.
Public Sub loadLogFile()
Dim filename As String
Dim wks As Worksheet
filename = "C:\Temp\data.txt"
ActiveWorkbook.Worksheets.Add
Set wks = ActiveSheet
With wks.QueryTables.Add(Connection:="TEXT;" & filename, Destination:=wks.Range("$A$1"))
.Name = "LogQuery"
.RefreshStyle = xlInsertDeleteCells
.AdjustColumnWidth = True
.TextFilePromptOnRefresh = False
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileCommaDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
End Sub
|