[VBA ] VBA執行後excel整個崩潰

看板Visual_Basic作者 (我是保羅小小)時間6年前 (2018/04/20 18:02), 6年前編輯推噓2(205)
留言7則, 3人參與, 6年前最新討論串1/1
各位版上的強者們, 最近遇到一個問題,我想執行一支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://www.ptt.cc/bbs/Visual_Basic/M.1524218526.A.C3C.html

04/22 00:51, 6年前 , 1F
開頭加一句on error resume next 執行會如何?
04/22 00:51, 1F

04/23 09:51, 6年前 , 2F
直接excel crash掉,必須用工作管理員強制關閉
04/23 09:51, 2F

04/24 00:02, 6年前 , 3F
Excel,OS版本?直接crash,把Excel重灌,更新跑完再試試
04/24 00:02, 3F

04/24 07:43, 6年前 , 4F
複製插入的資料量太大了我猜,把它分成一列列來做,可以
04/24 07:43, 4F

04/24 07:43, 6年前 , 5F
的話用傳值的方式不要複製插入的,試試看。
04/24 07:43, 5F

04/24 12:08, 6年前 , 6F
Excel 2016 x64 OS Win10 x64
04/24 12:08, 6F

04/24 18:03, 6年前 , 7F
Excel207 win7 64測試沒問題,可照newton41兄的改傳值試試
04/24 18:03, 7F
※ 編輯: paul60209 (114.36.5.220), 09/01/2018 10:25:12
文章代碼(AID): #1QsRgUmy (Visual_Basic)
文章代碼(AID): #1QsRgUmy (Visual_Basic)