im Makro datei von bis bearbeiten (lesen!!!)
30.07.2004 12:58:33
bis
Ich binns mal wieder!
Ich habe in der Rechersche nichts passendes gefunden.
ganz von vorn:
ich habe Textdateien die mehr als 65... Zeilen haben.
Die lasse ich per makro Teilen.
Ich habe 37 Textdateien die nochmal alle in 3-47 einzelne textdateien
geteilt werden. insgesamt sind es ca. 300 textdateien.
die muss ich alle in eine exceldatei umwandeln und mit einem kopf versehen.
Das mache ich auch alles per Makro. Bloss das ich das Makro 300 mal kopieren muss und die Dateinamen ändern muss.
============================================================================
Jetzt meine Frage:
die TXT´s heisen alle 400 + zusatz (bis 37) also 400.001, 400.002, usw...............
nach dem oben erwähnten teilen in txt´s mit 65000 Zeilen heisen die
400.001-1, 400.001-2, usw...
ich hab mir aufgeschrieben vieviele dateien entstanden sind. 400.001 sind zb 7,
400.002 sind 8, usw....
=====
anstatt wie bei 400.001 das makro 7 mal zu kopieren kann man da nicht irgendwie sagen 400.001-1 bis 400.001-7?
(beim speichern muss die Zahl hinter dem - auch geschrieben werden.
hier das makro:
ChDir "C:\Dokumente und Einstellungen\XXX\400"
Workbooks.OpenText Filename:= _
"C:\Dokumente und Einstellungen\XXX\400\400.001-1.txt", _
Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 2), Array(22, 2), Array(26, 2), Array(29, 2), Array(34, 2), Array(39, 2), _
Array(42, 2), Array(51, 2), Array(56, 2), Array(60, 2), Array(80, 2), Array(81, 2))
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "AAA"
Columns("B:D").Select
Selection.Delete Shift:=xlToLeft
Range("B1").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("C1").Select
ActiveCell.FormulaR1C1 = "CCC"
Range("D1").Select
ActiveCell.FormulaR1C1 = "DDD"
Range("E1").Select
ActiveCell.FormulaR1C1 = "EEE"
Range("F1").Select
ActiveCell.FormulaR1C1 = "FFF"
Range("G1").Select
ActiveCell.FormulaR1C1 = "GGG"
Range("H1").Select
ActiveCell.FormulaR1C1 = "HHH"
Range("I1").Select
ActiveCell.FormulaR1C1 = "III"
Rows("1:1").Select
Selection.Font.Bold = True
Range("A1").Select
ActiveWindow.SmallScroll Down:=-9
ChDir "C:\Dokumente und Einstellungen\XXX\400 excel"
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\XXX\400 excel\400.001-1.xls" _
, FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Fals mir jemand Helfen kann - Vielen Vielen Dank!!!
MFG
Martin S.