[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