Supportnet / Forum / Tabellenkalkulation
Excel Makro zur Konvertierung von Dateien
Frage
Hallo!
Ich stehe vor folgendem Problem: Und zwar muss ich mehrere hundert Excel und Word Dokumente die mit Word/Excel 2000 verfasst wurden so konvertieren, dass diese in Word/Excel 95 (Version 7.0) geöffnet werden können.
Ein Tool das diese Konvertierung durchführen kann, habe ich nur für Word-Dateien gefunden.
Mittlerweile habe ich auch ein Makro, welches alle Word-Dateien innerhalb eines Ordners anspricht, umkonvertiert zu Word-95 Dateien und neu speichert.
Ich würde mich sehr freuen wenn mir jemand helfen könnte dieses Makro so umzuschreiben, dass es für Excel-Dateien funktioniert (also alle Excel-Dateien in einem Ordner neu speichert im Excel-95 Format).
Der Makro-Code für die Word-Dateien ist folgender:
[code]Sub AlleDateienAnsprechen()
Dim Verz As String
Dim DName As String
Verz = "C:\temp\"
DName = Dir(Verz & "*.doc")
If DName <> "" Then
Dateienkonvertieren Verz, DName
End If
Do While (DName <> "")
DName = Dir()
If DName <> "" Then
Dateienkonvertieren Verz, DName
End If
Loop
End Sub
Sub Dateienkonvertieren(Verz As String, DName As String)
Documents.Open (Verz & DName)
With Documents(DName)
.SaveAs FileName:=DName, FileFormat:=106
.Close SaveChanges:=wdDoNotSaveChanges
End With
End Sub[/code]
Ich muss noch erwähnen dass ich sehr unerfahren bin mit dem Programmieren von Makros, hoffe dass mir jemand bei diesem Problem helfen kann.
mit freundlichen Grüßen
Matthias
Antwort 1 von Quoanisquatsi
Zeile 5: *.doc un *.xls abändern
Zeile 19: 106 muss abgeändert werden. Ich konnte aber über google und Microsoft die richtige Zahl nicht finden. 102 wäre Rich-Text besipielsweise, aber wir haben ja Excel. Wer kann weiterhelfen?
Zeile 19: 106 muss abgeändert werden. Ich konnte aber über google und Microsoft die richtige Zahl nicht finden. 102 wäre Rich-Text besipielsweise, aber wir haben ja Excel. Wer kann weiterhelfen?
Antwort 2 von Ahnan
Hallo,
.SaveAs FileName:=DName, FileFormat:=xlExcel5
Anstatt Documents:
Workbooks
u. wie Quoanisquatsi beschrieben:
*.doc in *.xls abändern
Ist allerdings ungetestet, da im Moment kein Excel zur Verfügung
MfG
.SaveAs FileName:=DName, FileFormat:=xlExcel5
Anstatt Documents:
Workbooks
u. wie Quoanisquatsi beschrieben:
*.doc in *.xls abändern
Ist allerdings ungetestet, da im Moment kein Excel zur Verfügung
MfG
Antwort 3 von mstangl
Hat super funktioniert! Danke vielmals!
mit freundlichen Grüßen
Matthias
mit freundlichen Grüßen
Matthias