[VBA ] 工作表另存新檔

[atelierz21 (HOXTON)]

各位神手午安，最近在寫將活頁簿內不同工作表另存成不同檔案的小程式。

但三不五時會跑出 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
→ MOONRAKER: 錯的時候使用watch和即時視窗看每個變數內容找出錯誤
→ MOONRAKER: 以前我的機車下雨天會熄火 好不容易發動騎去車行
→ MOONRAKER: 老板說 現在沒熄火 他也找不出來問題在哪裡
→ MOONRAKER: 你的程式也是這樣 下次熄火的時候自己檢查
→ paul60209: 可以在xWs.Copy前加上xWs.Activate試試看