作者paul60209 (我是保罗小小)
看板Visual_Basic
标题[VBA ] VBA执行後excel整个崩溃
时间Fri Apr 20 18:02:04 2018
各位版上的强者们，
最近遇到一个问题，我想执行一支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在哪，或者有什麽其他方式可以绕过去，
让程式能顺利运行，谢谢！
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 220.135.50.86
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1524218526.A.C3C.html
1F：→ newton41: 开头加一句on error resume next 执行会如何？ 04/22 00:51
2F：→ paul60209: 直接excel crash掉，必须用工作管理员强制关闭 04/23 09:51
3F：推 coyoteY: Excel,OS版本?直接crash,把Excel重灌,更新跑完再试试 04/24 00:02
4F：→ newton41: 复制插入的资料量太大了我猜，把它分成一列列来做，可以 04/24 07:43
5F：→ newton41: 的话用传值的方式不要复制插入的，试试看。 04/24 07:43
6F：→ paul60209: Excel 2016 x64 OS Win10 x64 04/24 12:08
7F：推 coyoteY: Excel207 win7 64测试没问题,可照newton41兄的改传值试试 04/24 18:03
※ 编辑: paul60209 (114.36.5.220), 09/01/2018 10:25:12