[VBA ] 工作表另存新檔
各位神手午安，最近在寫將活頁簿內不同工作表另存成不同檔案的小程式。
但三不五時會跑出 Class Worksheet的Copy方法失敗的error '1004'。
奇怪的是偶爾會偶爾不會，或是跑幾個迴圈後就error，請問各位可以修改的方向或範例，
感激不盡，版本是Office 2010，程式如下：
Sub splitbook()
Dim xPath as string
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlarts = False
For Each xWs in ActiveWorkbook.Sheets
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name, _
FileFormat:=xlOpenXMLWorkbook
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlarts = True
Application.ScreenUpdating = True
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 203.116.65.227
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1536134101.A.11C.html
※ 編輯: atelierz21 (203.116.65.227), 09/05/2018 16:06:22
→
09/05 16:53,
6年前
, 1F
09/05 16:53, 1F
→
09/05 16:54,
6年前
, 2F
09/05 16:54, 2F
→
09/05 16:55,
6年前
, 3F
09/05 16:55, 3F
→
09/05 16:58,
6年前
, 4F
09/05 16:58, 4F
→
09/06 09:46,
6年前
, 5F
09/06 09:46, 5F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
