www.Russ-Jesteburg.de > Excel > VBA > Datei

Export: Blätter einer Datei einzeln speichern:

' Um alle Tabellenblätter einer Datei einzeln zu speichern,
' sind einige manuelle Arbeitsschritte nötig. Um diese lästige
' Arbeit zu umgehen, kann man sich auch mit einem Makro helfen:
Sub Blätter_einzeln_speichern()
    Dim WS As Worksheet
    For Each WS In Sheets
        WS.Copy
        ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xls"
        ActiveWorkbook.Close True
    Next WS
End Sub

Dieser Tipp ist vom 20.06.2005