VBA Code zum Exportieren von 365 Tabellenblättern?
25.03.2006 20:29:19
365
ich hätte da mal eine Frage zum Exportieren von Tabellenblättern in eine neue Datei. Mit nachfolgendem Makro exportiere ich 365 Tabellenblätter.
Sub Export()
Dim Wiederholungen As Integer, _
Pfad As String, Dateiname As String, Speichername As String
Application.ScreenUpdating = False
Pfad = Mid(ThisWorkbook.Path, 1, Len(ThisWorkbook.Path) - 8) & "Jahresdaten\"
Dateiname = ThisWorkbook.Name
Speichername = Format(Sheets(1).Name, "yyyy") & ".xls"
For Wiederholungen = 1 To Worksheets.Count
Sheets(Wiederholungen).Visible = True
Next
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Pfad & Speichername
For Wiederholungen = Workbooks(Dateiname).Worksheets.Count - 5 To 1 Step -1
Workbooks(Dateiname).Sheets(Wiederholungen).Move After:=Workbooks(Speichername).Sheets(1)
Next
Application.DisplayAlerts = False
Workbooks(Speichername).Sheets(1).Delete
Application.DisplayAlerts = True
With Workbooks(Speichername)
.Save
.Close
End With
End Sub
Meine Frage, hat jemand noch eine andere Variante die menge Tabellenblätter in eine andere Datei zu kopieren, denn mit obigem Makro dauert es doch enorm lange. Oder kann man an dem Makro etwas ändern, damit das Kopieren etwas beschleunigt wird?
Ich bin für jede Hilfe dankbar. Schon mal im Voraus besten dank,
Oliver S.