[已解决]帮忙修改代码！

htcaiwuke

帮忙修改代码！不知道为什么错？ 谢谢！

Sub baocunjichushujv()    '保存基础数据
    Application.ScreenUpdating = False
    Dim x As Integer
    For x = ThisWorkbook.Worksheets.Count To 3 Step -1
        Worksheets(x).Copy                            这句报错！
        ActiveWorkbook.Close SaveChanges:=True, Filename:=ThisWorkbook.Path & "\" & Date & ThisWorkbook.Worksheets(x).Name & ".xls"
    Next
    Application.ScreenUpdating = True
    MsgBox "本月报表已备份！"

最佳答案

月排行榜 / 总排行榜

Dj_soo

2010-10-29 09:34

我猜的话,估计是你昨天试的时候在执行了copy之后,没有关掉那个工作簿,然后重新运行了,这样这个工作簿只有一个工作表,就会报错哦.(activeworkbook)

所以建议你,将代码中的Worksheets(x).Copy                           

改成Thisworkbook.Worksheets(x).Copy                           

跳转到最佳答案楼层

Dj_soo

你的工作表是不是少于3个了?

光看代码应该是没错的

wayy

上附件加代码。

Dj_soo

按F8应该可以自己解决[em10]

hhzjxss

经测试，只有一个工作表时，也不报错，可以正常运行代码，只是跳过Worksheets(x).Copy 而以!
[em01]

htcaiwuke

谢谢师傅和各位老师的帮助。昨天怎么试都报错，今天再打开试就好了。不知道为什么？[em06]

htcaiwuke

XIH3Epjs.rar (415.99 KB, 下载次数: 0)

2010-10-29 09:13 上传

点击文件名下载附件
帮忙修改代码！

Dj_soo

我猜的话,估计是你昨天试的时候在执行了copy之后,没有关掉那个工作簿,然后重新运行了,这样这个工作簿只有一个工作表,就会报错哦.(activeworkbook)

所以建议你,将代码中的Worksheets(x).Copy                           

改成Thisworkbook.Worksheets(x).Copy                           

htcaiwuke

QUOTE:

以下是引用Dj_soo在2010-10-29 9:34:00的发言：

我猜的话,估计是你昨天试的时候在执行了copy之后,没有关掉那个工作簿,然后重新运行了,这样这个工作簿只有一个工作表,就会报错哦.(activeworkbook)

所以建议你,将代码中的Worksheets(x).Copy                           

改成Thisworkbook.Worksheets(x).Copy                           

知道了！[em23]我试试！

llj85

学习