VBA生成

[cajhbb]

區域業務績業00.xlsx

(24.5 KiB) 已下載 87 次

生成VBA代碼,Excel檔內的每個工作表,各自生成一個新的Excel檔,存在原來的路徑下

生成代碼如下：

代碼: 選擇全部

Sub SplitWorksheetsIntoWorkbooks()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Copy
        ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".xlsx"
        ActiveWorkbook.Close False
    Next ws
End Sub

如何使用代碼
1.打開 區域業務績業.xlsx
2.按ALT+F11

2023-02-11_150521.jpg (65.83 KiB) 已瀏覽 1084 次

2023-02-11_150659.jpg (80.4 KiB) 已瀏覽 1084 次

2023-02-11_150735.jpg (50.8 KiB) 已瀏覽 1084 次