|
Wenn Dein logfile so aussieht :
ABCD-MEINEFIRM\e-jg8439,Deposit: A01-03/08/2011-11:35:59-3,NT-AUTORITÄT\SYSTEM,03/08/2011,11:36,\\PR-EDU,,,,/Ts=4E39169E,,,3.00,3.21
ABCD-MEINEFIRM\e-jg8439,Deposit: A02-03/08/2011-11:35:59-3,NT-AUTORITÄT\SYSTEM,03/08/2011,11:45,\\PR-EDU,,,,/Ts=4E39169E,,,6.00,3.21
usw
usw
usw
Komplettlösung :
Private Sub import_log()
' PFAD UND FILENAMEN ANPASSEN !!!
Workbooks.OpenText Filename:="C:\XYZ\logfile.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
Private Sub Spalte_als_Zahl()
'
' Spalte_als_Zahl Makro
' Makro am 25.05.2012 von Jürgen aufgezeichnet
'
'
Columns("D:D").Select
Selection.NumberFormat = "0.00"
Range("A1").Select
End Sub
Private Sub Zeile_einfuegen()
'
' Zeile_einfuegen Makro
' Makro am 25.05.2012 von Jürgen aufgezeichnet
'
'
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
End Sub
Private Sub Summe()
'
' Summe Makro
' Makro am 25.05.2012 von Jürgen aufgezeichnet
'
'
Range("D1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[65535]C)"
End Sub
Sub do_it()
import_log
Spalte_als_Zahl
Zeile_einfuegen
Summe
End Sub
|