Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Datei und Version