Das folgende Makro erstellt aus jedem Excel Sheet in einer Excel-Datei eine separate Excel Datei.
Die Datei liegt als Vorlage zum Download bereit.
Das Excel Makro erstellt beim Klick auf den Button aus jedem Excel-Sheet in der Datei eine separate Datei mit .xlsx als Endung
Vba Makro
Unter der vba Makro Umgebung befindet sich die Sub-Function Excel_Sheets_exportieren()
Option Explicit
Sub Schaltfläche1_Klicken() Excel_Sheets_exportieren End Sub
Public Sub Excel_Sheets_exportieren() '------------< Excel_Sheets_exportieren() > '< active Workbook > Dim wb As Workbook Set wb = ThisWorkbook '</ active Workbook >
'----< Sheets ermitteln >---- Dim ws As Worksheet For Each ws In wb.Sheets 'Set ws = wb.Worksheets(sSheetname) 'ws.Activate
'< delete_sheet1 > Dim workbook_Export As Workbook Set workbook_Export = Workbooks.Add() ws.Copy Before:=workbook_Export.Sheets(1) workbook_Export.Activate Application.DisplayAlerts = False workbook_Export.Sheets(2).Delete Application.DisplayAlerts = True '</ delete_sheet1 >
'< save > workbook_Export.SaveAs wb.Path & "\" & ws.Name '</ save > workbook_Export.Close Set workbook_Export = Nothing Next
MsgBox "Fertig" '------------</ Excel_Sheets_exportieren() > End Sub |
Ausgabe:
Die Dateien befinden sich derzeit im Standardpfad, wo sich die Datei selbst befindet
Wichtig: dabei wird auch der Fehler 1004 umgangen.