Private Sub ComboBox2_Click()
CopyTemp
Application.DisplayAlerts = False
ThisWorkbook.Worksheets("sheet1").Delete
ThisWorkbook.Worksheets("test模板").Name = "sheet1"
Application.DisplayAlerts = True
End Sub
Function CopyTemp()
Dim MyPath As String, RepTemp As Workbook
MyPath = ThisWorkbook.Path
Set RepTemp = Workbooks.Open(Filename:="d:\222.xlsm", ReadOnly:=True)
RepTemp.Sheets("test模板").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
RepTemp.Close False
End Function
我想通過這段代碼把222.xlsm的作業表“test模板”復制到當前的作業簿中，并且替換成當前的作業表sheet1，但運行到“ThisWorkbook.Worksheets("sheet1").Delete”時出現“不能進入中斷模式”，請大神們幫忙解答
uj5u.com熱心網友回復：
注釋掉所有On Error Resume Next陳述句，在VBA IDE中運行，出錯后點擊除錯，游標會停在出錯的那條陳述句處，
或者
事先在懷疑可能有邏輯錯誤的陳述句處設定斷點，運行經過斷點時中斷，
此時可以在立即視窗中使用
?變數名
或
?函式名(函式引數)
或
程序名(引數)
輔助除錯。
uj5u.com熱心網友回復：
這是軟體的限制吧！應該無解。正如你的VBA代碼在運行時：
你不能添加或洗掉：模塊（標準模塊、類模塊等）、用戶表單；
你也不能增加或洗掉：型別定義、API宣告、自定義函式/程序。
等等……
因為這些都牽涉到“工程結構”，在“運行中”時，是不能變工程結構的。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/50010.html
標籤：VBA