各位神手午安，最近在写将活页簿内不同工作表另存成不同档案的小程式。
但三不五时会跑出 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

错的时候使用watch和即时视窗看每个变量内容找出错误以前我的机车下雨天会熄火 好不容易发动骑去车行老板说 现在没熄火 他也找不出来问题在哪里你的程式也是这样 下次熄火的时候自己检查

可以在xWs.Copy前加上xWs.Activate试试看