Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: Tabelle1

Private Sub CommandButton1_Click()
    Call Konvertieren
End Sub

StandardModule: basMain

Sub Konvertieren()
   Dim arr()
   Dim sName As String, iCount As Integer
   Dim iCounter As Integer
   sName = Dir("*.xls")
   Do While sName <> ""
      iCount = iCount + 1
      ReDim Preserve arr(1 To iCount)
      arr(iCount) = sName
      sName = Dir()
   Loop
   Application.DisplayAlerts = False
   For iCounter = 1 To iCount
      Workbooks.Open arr(iCounter)
      ActiveWorkbook.SaveAs _
         FileName:=arr(iCounter), _
         FileFormat:=xlNormal
      ActiveWorkbook.Close
   Next iCounter
   Application.DisplayAlerts = True
End Sub

    

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