Gruppe
Datei
Bereich
Version
Thema
XL5/7-Dateien nach XL8 konvertieren
Problem
Wie kann ich alle XL5/7-Dateien eines Verzeichnisses in das XL8Format konvertieren?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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