Excel用程式碼將工作表儲存為工作簿
阿新 • • 發佈:2019-02-12
今天,做會計的朋友問我一個問題,怎麼講Excel的工作表拆分成單獨的檔案,並給我發了一個連結。
https://jingyan.baidu.com/article/75ab0bcb0ecc67d6874db27e.html 說這個在他那執行不了,他還以為是office是非正版,專門買了個正版的。 隨便試了下,發現能執行,讓他截圖,發現是他的工作表都是 用日期命名的,比如2016.1,然後拆分的檔案就直接把 .1當成字尾名了。 修改下,強制將儲存的檔案以xls結尾,讓他拿去執行了。我還真是第一次知道excel 還能用 程式碼來執行批量操作,又學到了。Private Sub 分拆工作表() Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook For Each sht In MyBook.Sheets sht.Copy ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name & ".xls", FileFormat:=xlNormal '將工作簿另存為EXCEL預設格式 ActiveWorkbook.Close Next MsgBox "檔案已經被分拆完畢!" End Sub