Tabellenblätter von xls nach xlsm verschieben

Hallo,
seit Office 2007 hat Excel das Dateiformat geändert. Jetzt muss ich aus sehr viele Mappen die noch in xls vorliegen jeweils alle Tabellenblätter in eine vorhandene Mappe im Format xlsm einfügen. das ist von Hand etwas mühsam. Ich hoffe, dass jemand schon mal vor dem gleichen Problem gestanden ist und sich hierfür ein Makro geschrieben hat, dass er mir überlassen könnte :-) Mein Dank wäre demjenigen gewiss.
Aufgabenstellung:
Mappe mit xls und xlsm heißen gleich bis auf die Dateiendung und sind im gleichen Ordner gespeichert.
Beim Verschieben der xls Tabellenblätter von Hand erhalte ich Warnmeldungen wegen einem Bereichsbezugskonflikt, welche durch bestätigen von OK (es steht eh nichts anderes zur Auswahl) durch Excel selber ausreichend gelöst werden.
Es sollen alle Tabellenblätter verschoben werden und ans Ende in der xlsm Mappe eingefügt werden (kopieren geht auch).
Die xls Mappe soll anschließend gelöscht werden.
Die Aktion wird pro Mappenpaar einzeln durchgeführt, da dies im Zuge einer Bearbeitung der xlsm Mappe erfolgen soll, d. h. es ist keine Stapelverarbeitung erforderlich.
Vorab schon Danke an alle die mich hier unterstützen.
Gruß Johannes

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Johannes,
hier ein entsprechendes Import-Makro.
Im angezeigten Dateidialog die XLSM-Datei auswählen. Den Rest macht das Makro.
Bitte unbedingt mit Sicherheitskopien in einem Testordner ausprobieren.
Die Kill-Funktion, die die nicht mehr benötigten Dateien löscht, ist gnadenlos gründlich.
Gruß
Franz
Das Makro speicherst du am besten in einer separaten Exel-Datei oder deiner persönlichen Excel-Makroarbeitsmappe.

'Makro in einem allgemeinen Modul einer Excel-Datei
'Erstellt unter Excel 2007
Sub Import_XLS_into_XLSM()
Dim strTemp As String, strXLS As String, strXLSM As String
Dim wbTemp As Workbook, wbXLS As Workbook, wbXLSM As Workbook
With Application.FileDialog(msoFileDialogOpen)
.Title = "Bitte XLSM-Datei auswählen, in die die XLS-Blätter kopiert werden sollen"
.InitialFileName = "*.XLSM"
If .Show = -1 Then
strXLSM = .SelectedItems(1)
strXLS = Left(strXLSM, Len(strXLSM) - 4) & "xls"
'Prüfen, ob XLS-Datei gleichen Namens vorhanden.
If Dir(strXLS)  "" Then
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set wbXLSM = Application.Workbooks.Open(Filename:=strXLSM)
Set wbXLS = Application.Workbooks.Open(Filename:=strXLS)
'XLS-Datei temporär unter neuem NAmen als XLSM-Datei speichern.
strTemp = wbXLS.Path & "\" & "Temp" & wbXLSM.Name
wbXLS.SaveAs Filename:=strTemp, FileFormat:=52 'Speichern XLS als XLSM
Set wbTemp = Application.Workbooks.Open(Filename:=strTemp)
'Blätter kopieren
wbTemp.Sheets.Copy after:=wbXLSM.Sheets(wbXLSM.Sheets.Count)
wbTemp.Close savechanges:=False
'XLS-Datei und temporäre XLSM-Datei löschen
VBA.Kill strXLS
VBA.Kill strTemp
'XLSM-Datei speichern
wbXLSM.Save
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Else
MsgBox "Es gibt zur gewählten XLSM-Datei keine passende XLS-Datei im Verzeichnis"
End If
End If
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Tabellenblätter von xls nach xlsm verschieben

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenblätter von xls nach xlsm verschieben

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread