Mehre Dateien nacheinander öffnen und speichern?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub DateienOeffnen() Dim TmpDatei As String Application.ScreenUpdating = False ChDrive "d" ChDir "D:\Test" TmpDatei = Dir("D:\Text\*.txt") Do While TmpDatei > "" Workbooks.Open TmpDatei 'hier kannst deinen Code einfügen 'anschließend als xls speichern mit 'ActiveWorkbook.SaveAs Filename:=...., FileFormat:=xlNormal ActiveWorkbook.Close TmpDatei = Dir() Loop End Sub

Hi Ralle,
sowas kannst du dir sehr bequem mit dem Makro-Recorder aufzeichen:
zB:
Do While TmpDatei > ""
Workbooks.Open TmpDatei
'hier kannst deinen Code einfügen

'anschließend als xls speichern mit
ChDir "D:\Test1"
ActiveWorkbook.SaveAs Filename:="D:\Test1\Mappe1.xls", FileFormat:=xlNormal

ActiveWorkbook.Close
TmpDatei = Dir()
Loop
'...
wobei so natürlich spätestens bei der zweiten Datei eine problem entsteht, da eine Datei mit diesem Namen (Mappe1.xls) im Verzeichnis schon existiert.
Um das zu vermeiden, könntest du xls-Dateien unter dem selben Namen wie die txt-Dateien speichern (nur eben als xls). Hierzu müsstest du den Namen der geöffneten txt-Datei auslesen und an eine Variable übergeben. Diese Variable setzt du anschließend als Dateinamen ein.
Bsp:
Do While TmpDatei > ""
Workbooks.OpenText TmpDatei
'.....
'schneide "txt" ab und setze "xls" dran:
FName = Left(TmpDatei, Len(TmpDatei) - 3)
FName = FName & "xls"

'als xls speichern:
ChDir "D:\Test1"
ActiveWorkbook.SaveAs Filename:=:="D:\Test1\" & FName, FileFormat:=xlNormal
'...usw
Gruß
Christoph

Hallo Christoph,
habe jetzt ein wenig getestet und mein Makro sieht jetzt folgendermaßen aus:


Sub test()
' test Makro
' Makro am 23.03.2004 aufgezeichnet
Dim TmpDatei As String
Application.ScreenUpdating = False
ChDrive "d"
ChDir "D:\Test"
TmpDatei = Dir("D:\Test\*.txt")
Do While TmpDatei > ""
Workbooks.OpenText TmpDatei
'hier kannst deinen Code einfügen
'schneidet "txt" ab und sezte "xls" drab:
FName = Left(TmpDatei, Len(TmpDatei) - 3)
FName = FName & "xls"
'anschließend als xls speichern mit
'ActiveWorkbook.SaveAs Filename:=...., FileFormat:=xlNormal
ChDir "D:\Test1"
ActiveWorkbook.SaveAs Filename:="D:\Test1\" & FName, FileFormat:=xlNormal
ActiveWorkbook.Close
TmpDatei = Dir()
Loop
End Sub

Beim ausführen des Makros kommt folgende Fehlermeldung:
BWA_Feb_04.txt wurde nicht gefunden. Überprüfen Sie die Rechtschreibung des
Dateinamens und überprüfen Sie, ob der Ort der Datei korrekt ist.
etc.
Im Verzeichnis D:\Test1 wird aber die Datei BWA_Feb_04.txt als BWA_Feb_04.xls gespeichert.
Zur information, im Verzeichnis D:\Test befinden sich zwei Textdateien:
BWA_Feb_04.txt
BWA_Jan_04.txt
genau in dieser Reihenfolge.
Wo kann das Problem leigen?
Für Deine Hilfe bich ich echt dankbar!!!
Gruß
ralle

Beliebteste Forumthreads (12 Monate)

Mehre Dateien nacheinander öffnen und speichern?

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

59 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mehre Dateien nacheinander öffnen und speichern?

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

59 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread