1 頁 (共 1 頁)

VBA生成

發表於 : 2023年 2月 11日, 07:01
cajhbb
區域業務績業00.xlsx
(24.5 KiB) 已下載 91 次
生成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
2023-02-11_150521.jpg (65.83 KiB) 已瀏覽 1101 次
2023-02-11_150659.jpg
2023-02-11_150659.jpg (80.4 KiB) 已瀏覽 1101 次
2023-02-11_150735.jpg
2023-02-11_150735.jpg (50.8 KiB) 已瀏覽 1101 次