Mehrere Textfiles in einer Mappe kopieren
21.06.2005 16:41:27
Katharina
Hier nochmal meine Frage in einer besseren Darstellung
Hallo zusammen
Mein Programm soll mehrere ".SUM" Dateien (verhalten sich beim öffnen wie
Textdateien) nacheinander öffnen und dann die so entstandenen Blätter in EINE
Mappe verschieben. Der Benutzer gibt über "GetOpenFilename" die Quelladresse
der (100 !!!) Quellfiles an.
Nachfolgend mein Programmstück:
Option Explicit
Private Sub CommandButton1_Click()
Dim QuelldateiName 'As String
Dim ZieldateiName As String
Dim file
Dim name As String
QuelldateiName = Application.GetOpenFilename(, , "Quelldatei", , True)
ZieldateiName = Application.GetSaveAsFilename("name", "(*.xls), *.xls", , _
"Wo soll die Datei gespeichert werden ?")
Application.SheetsInNewWorkbook = 1
Workbooks.Add
ActiveWorkbook.SaveAs (ZieldateiName)
name = ActiveWorkbook.name
For Each file In QuelldateiName
Workbooks.OpenText Filename:="E:\MakroAmaya\Lauf1\REFDECKOLZW040913.SUM", _
Origin:=932, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _
Array(0, 1), Array(9, 1), Array(20, 1), Array(29, 1), Array(40, 1), Array(53, 1), Array(62, _
1)), TrailingMinusNumbers:=True
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Wenn ich nun an dieser Stelle versuche das neu entstandene Blatt in das
Workbook(name) zu
kopieren bekomme ich die Fehlermeldung :"Index ausserhalb des gültigen
Bereichs (Laufzeitfehler "9")" das heisst ich kann innerhalb dieser for-
Schleife nicht auf mein neu erzeugtes Workbook zugreifen.
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Wie kann ich das sonst reallisieren ?
Next file
End Sub
Über schnelle Hilfe würde ich mich freuen....
Gruss Katharina