Gruppe
Datei
Bereich
Version
Thema
Serie von Dateien in das XL5/7-Format konvertieren
Problem
Wie kann ich eine Serie von Dateien in das Dateiformat XL5.0/7.0 konvertieren?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub Konvertieren()
Dim iRow As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
Workbooks.Open _
FileName:=Cells(iRow, 1).Value, _
updatelinks:=False
With ActiveWorkbook
.SaveAs _
FileName:=ActiveWorkbook.Name, _
FileFormat:=xlExcel5
.Close savechanges:=False
End With
iRow = iRow + 1
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
ERRORHANDLER:
Application.EnableEvents = True
End Sub