作者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/m.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