Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Serie von Dateien in das XL5/7-Format konvertieren

Gruppe

Version

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