Jak można „podzielić” plik Excel (.xlsx), który zawiera wiele arkuszy na osobny arkusz [n] .xlsx?

Myślę, że tytuł mówi wszystko o tym pytaniu, ale aby rozwinąć nieco dalej:

Mam plik .xlsx, który zawiera kilkadziesiąt arkuszy. Chcę wyprowadzić wszystkie te arkusze jako osobne pliki .xlsx. Zautomatyzowane nazewnictwo ich nie jest konieczne. Czy program Excel ma funkcję eksportowania arkuszy do osobnego pliku?

To nie jest wbudowana funkcja.

Jeśli jednak uruchomisz ten kod, powinien on wykonać zadanie.

Sub SaveSheets()
    Dim strPath As String
    Dim ws As Worksheet

    Application.ScreenUpdating = False

    strPath = ActiveWorkbook.Path & "\"
    For Each ws In ThisWorkbook.Sheets
        ws.Copy
        'Use this line if you want to break any links:
        BreakLinks Workbooks(Workbooks.Count)
        Workbooks(Workbooks.Count).Close True, strPath & ws.Name & ".xlsx"
    Next

    Application.ScreenUpdating = True
End Sub

Sub BreakLinks(wb As Workbook)
    Dim lnk As Variant
    For Each lnk In wb.LinkSources(xlExcelLinks)
        wb.BreakLink lnk, xlLinkTypeExcelLinks
    Next
End Sub

Aby uruchomić kod, wykonaj następujące czynności:

1. Otwórz edytor VBA ( Alt+ F11)
2. W drzewie w lewym górnym rogu kliknij prawym przyciskiem myszy skoroszyt i wstaw nowy moduł
3. Skopiuj powyższy kod do tego modułu
4. Zamknij edytor VBA
5. W programie Excel naciśnij Alt+, F8aby uruchomić makra i wybierzSaveSheets

lub zobacz Jak dodać VBA w MS Office?

1. Po kliknięciu karty arkusza Excela prawym przyciskiem myszy możesz wybrać Przenieś lub Kopiuj ...

   

2. W wyświetlonym oknie dialogowym możesz wybrać docelowy skoroszyt. Wybierz (nowa książka) .

   

3. Kliknij OK . Twój arkusz jest teraz w nowym dokumencie.

Wypróbowałem rozwiązanie Petera Alberta i nie działało ono dla mnie, więc znalazłem rozwiązanie w tym poście („Excel - zapisuj arkusze jako osobne pliki”) w Dzienniku maniaka komputerowego .

Działa świetnie. Powinieneś zmienić nazwę arkuszy zawierających kropki, aby uzyskać poprawnie nazwane pliki z .xlsrozszerzeniami.

Sub CreateNewWBS()
Dim wbThis As Workbook
Dim wbNew As Workbook
Dim ws As Worksheet
Dim strFilename As String

    Set wbThis = ThisWorkbook
    For Each ws In wbThis.Worksheets
        strFilename = wbThis.Path & "/" & ws.Name
        ws.Copy
        Set wbNew = ActiveWorkbook
        wbNew.SaveAs strFilename
        wbNew.Close
    Next ws
End Sub

Skorzystaj z instrukcji, aby utworzyć i uruchomić to makro z posta Petera Alberta lub z Jak dodać VBA w MS Office?