Gruppe
Datei
Problem
Wie kann ich eine Serie von Dateien in das Dateiformat XL5.0/7.0 konvertieren?
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