ich habe hunderte Excel Datein im Format Excel 1997 - 2003
nun bin ich auf die Version 2010 umgestiegen und hätte gerne alle Datein an das neue Format angepasst.
Was muß ich da tun?
Danke für eine Info
Gruß
'Makro erstellt unter Office/Excel 2010
Sub Konvert_xls_to_Excel2010()
'konvertiert im Datei-Dialog gewählte Dateien vom xls-Format (2003 und älter) ins _
neue Excel-Dateiformat (xlsx oder xlsm)
Dim intAnzahl As Long, intCount As Integer, wbk As Workbook
Dim varItem As Variant, strOldFile As String
On Error GoTo Fehler
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add Description:="Excel 2003", Extensions:="*.xls"
.FilterIndex = 1
.AllowMultiSelect = True
If .Show = -1 Then
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
intAnzahl = .SelectedItems.Count
For Each varItem In .SelectedItems
intCount = intCount + 1
Application.StatusBar = "Datei " & intCount & " von " & intAnzahl & " wird bearbeitet: " _
& varItem
strOldFile = varItem
'Datei öffnen und im neuen Format speichern
Set wbk = Application.Workbooks.Open(Filename:=varItem, ReadOnly:=True, _
UpdateLinks:=False)
If wbk.HasVBProject = True Then
wbk.SaveAs FileFormat:=52 'xlsm-Datei
Else
wbk.SaveAs FileFormat:=51 'xlsx-Darei
End If
wbk.Close savechanges:=False
'Datei im alten Format löschen
VBA.Kill Pathname:=strOldFile
Next
End If
.Filters.Delete Filter:=1
End With
Fehler:
With Err
Select Case .Number
Case 0 'alles OK
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
.StatusBar = False
End With
End Sub