Alle Dateien als Excel97 speichern
12.02.2009 19:17:00
WolfgangN
ich habe Excel2003 und möchte alle Excel-Tabellen aus einem Ordner (Excel-Tabellen) in einem anderen Ordner (PCShop) als Excel 97 Version speichern, um sie zu brennen und zu einem PC zu nehmen, wo nur Excel 97 installiert ist.
An den Dateien wird nichts geändert, soll nur als Excel 97 unter dem gleichen Namen gespeichert werden.
Ich habe mir auch ein Makro gebastelt, was leider nicht funktionirt.
Die Pfade sind richtig, aber bei mir ist immer s = "".
Ich hoffe auf Hilfe, vielen Dank und Gruß
Wolfgang
Option Explicit
Sub VerzLesen()
Dim Pfad As String
Dim PfadNeu As String
Dim s As String, sneu As String
Pfad = "C:\Dokumente und Einstellungen\Wolfgang\Eigene Dateien\Excel-Tabellen"
PfadNeu = "C:\Dokumente und Einstellungen\Wolfgang\Eigene Dateien\PCShop\Excel-Tabellen"
s = Dir(Pfad & "*.xls")
Do Until s = ""
Workbooks.Open Filename:=Pfad & s
ActiveWorkbook.SaveAs Filename:=PfadNeu & s, FileFormat:=xlExcel9795
ActiveWorkbook.Close SaveChanges:=False
s = Dir()
Loop
End Sub