Gruppe
Datei
Problem
Wie kann ich alle XL5/7-Dateien eines Verzeichnisses in das XL8Format konvertieren?
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