excelperfect

標(biāo)簽：VBA

有時候，我們想將工作簿中的每個工作表都保存為一個單獨的工作簿,。

你可以使用下面的操作逐個保存工作表：

1.在工作表標(biāo)簽中單擊右鍵,。

2.選取“移動或復(fù)制…”命令。

3.選擇“(新工作簿)”,。

4.保存該工作簿,。

圖1

這樣，有多少工作表,，你就要操作上面的步驟多少次,。

然而，如果存在很多個工作簿,，這樣的重復(fù)工作使用VBA是最合適的,。下面是代碼：

Sub SaveWorksheetsToWorkbook()

    Dim wks As Worksheet

    Dim strPath As String

    Dim strFileName As String

    Dim strExtension As String

    Dim lngFileFormatCode As Long

    Dim arr

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

    With Application.FileDialog(msoFileDialogFolderPicker)

        .InitialFileName =Application.DefaultFilePath & '\'

        .Title = '選擇保存工作表的位置'

        .Show

        If .SelectedItems.Count = 0 Then

            MsgBox '取消'

            Exit Sub

        Else

            strPath = .SelectedItems(1) &'\'

        End If

    End With

    arr = Split(ThisWorkbook.FullName,'.')

    strExtension = arr(UBound(arr))

    Select Case strExtension

        Case 'xlsb':lngFileFormatCode = 50

        Case 'xlsx':lngFileFormatCode = 51

        Case 'xlsm':lngFileFormatCode = 52

        Case 'xls': lngFileFormatCode= 56

    End Select

    For Each wks In Worksheets

        strFileName = strPath & wks.Name& '.' & strExtension

        wks.Copy

        ActiveWorkbook.SaveAsFilename:=strFileName, FileFormat:=lngFileFormatCode

        ActiveWorkbook.Close

    Next wks

    Application.ScreenUpdating = True

    Application.DisplayAlerts = True

End Sub

只需在要拆分的工作簿中運行上述代碼，就可將該工作簿中的所有工作表全部保存為單獨的工作簿,。

歡迎在下面留言,，完善本文內(nèi)容，讓更多的人學(xué)到更完美的知識,。

歡迎到知識星球：完美Excel社群,，進行技術(shù)交流和提問，獲取更多電子資料,，并通過社群加入專門的微信討論群,，更方便交流。