作者atelierz21 (HOXTON)
看板Visual_Basic
标题[VBA ] 工作表另存新档
时间Wed Sep 5 15:54:55 2018
各位神手午安，最近在写将活页簿内不同工作表另存成不同档案的小程式。
但三不五时会跑出 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://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1536134101.A.11C.html
※ 编辑: atelierz21 (203.116.65.227), 09/05/2018 16:06:22
1F：→ MOONRAKER: 错的时候使用watch和即时视窗看每个变数内容找出错误 09/05 16:53
2F：→ MOONRAKER: 以前我的机车下雨天会熄火 好不容易发动骑去车行 09/05 16:54
3F：→ MOONRAKER: 老板说 现在没熄火 他也找不出来问题在哪里 09/05 16:55
4F：→ MOONRAKER: 你的程式也是这样 下次熄火的时候自己检查 09/05 16:58
5F：→ paul60209: 可以在xWs.Copy前加上xWs.Activate试试看 09/06 09:46