Tabellenblätter mit Format in neue Dateien VBA
16.01.2018 13:22:49
Michaela
ich möchte aus einer Datei mit vielen Tabellenblättern jedes Blatt einzeln in eine neue Datei kopieren und diese mit dem jeweiligen Namen des Tabellenblatts als Dateinamen abspeichern.
Dafür habe ich (u.a. mit Hilfe dieses Forums) bereits dieses Statement gebastelt:
Sub TabelleAlsDatei()
Dim wks As Worksheet
Dim wkb As Workbook
Dim wkb2 As Workbook
Set wkb = ThisWorkbook
For Each wks In wkb.Worksheets
Workbooks.Add
Set wkb2 = ActiveWorkbook
wks.Copy Before:=wkb2.Sheets(1)
Application.DisplayAlerts = False
wkb2.Sheets(2).Delete
Application.DisplayAlerts = True
wkb2.SaveAs wks.Name & ".xlsx"
wkb2.Close
Next
End Sub
Ist mein Statement falsch oder könnte es daran liegen, dass ich die Ursprungsdatei per Report mit dem Microsoft Report Builder (SSRS) erstellt haben?
Vielen Dank und Grüße,
Michaela