[VBA ] VBA执行后excel整个崩溃

楼主: paul60209 (我是保罗小小)   2018-04-20 18:02:04
各位版上的强者们,
最近遇到一个问题,我想执行一支VBA宏,
内容大致是把资料从第一个工作表复制出来,
然后整行插入在第二个工作表。
程式第一次执行时,不会出错,完整的达到我想要的功能,
但我把工作表二的内容删除,回复到原始状态后,
第二次执行就会跳出Automation的错误,
然后整个Excel就当掉,也无法侦错QQ
上网爬了文也找不太到相关资讯!
错误截图如下:https://imgur.com/a/SnxjKg7
CODE
Sub create_CM()
Dim LR, TLR As Integer
With ThisWorkbook.Sheets("底稿")
.Activate
LR = .Cells(1048576, "A").End(xlUp).Row
.Rows("2:" & LR).Select
Selection.Copy
Sheets("模板-对料单").Activate
Sheets("模板-对料单").Rows(6).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End With
希望有高手能出面解答,因为从未遇过这种错误讯息,
想知道bug在哪,或者有什么其他方式可以绕过去,
让程式能顺利运行,谢谢!
作者: newton41 (Newton)   2018-04-22 00:51:00
开头加一句on error resume next 执行会如何?
楼主: paul60209 (我是保罗小小)   2018-04-23 09:51:00
直接excel crash掉,必须用工作管理员强制关闭
作者: coyoteY (マジジョテッペン)   2018-04-24 00:02:00
Excel,OS版本?直接crash,把Excel重灌,更新跑完再试试
作者: newton41 (Newton)   2018-04-24 07:43:00
复制插入的资料量太大了我猜,把它分成一列列来做,可以的话用传值的方式不要复制插入的,试试看。
楼主: paul60209 (我是保罗小小)   2018-04-24 12:08:00
Excel 2016 x64 OS Win10 x64
作者: coyoteY (マジジョテッペン)   2018-04-24 18:03:00
Excel207 win7 64测试没问题,可照newton41兄的改传值试试

Links booklink

Contact Us: admin [ a t ] ucptt.com