eigentlich simpel (über makrorecorder aufgezeichnet
den Pfad solltest Du anpassen !
und die Summe kannst Du sicherlich selbst bilden
Sub import_log()
Workbooks.OpenText Filename:="C:\Users\Jürgen\Desktop\tt.txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _
9), Array(33, 2), Array(36, 9), Array(79, 4), Array(89, 9), Array(90, 1), Array(95, 9), _
Array(123, 1), Array(127, 9)), TrailingMinusNumbers:=True
End Sub
Brumms
PS :Rückmeldung wäre nett
|