我正在使用工作表工具,創建帶有按鈕的索引表(VBA)。 當我選擇其中一個按鈕時,代碼會按預期運行,但它不斷拋出“無法激活 ODBC。它可能已被刪除或重命名”。 錯誤。 它對所有工作表執行相同的操作。 有什麼問題?? 代碼如下:
子 GoToButton1_Click()
在錯誤恢復下一頁
工作表(“ODBC”).激活
如果 Err <> 0 則 MsgBox“無法激活 ODBC。它可能已被刪除或重命名。”
在錯誤轉到0
END SUB
子 GoToButton2_Click()
在錯誤恢復下一頁
表格(“主”).激活
如果 Err <> 0 則 MsgBox“無法激活 Master。它可能已被刪除或重命名。”
在錯誤轉到0
END SUB
子 GoToButton3_Click()
在錯誤恢復下一頁
工作表(“全部”).激活
如果 Err <> 0 則 MsgBox“無法激活全部。它可能已被刪除或重命名。”
在錯誤轉到0
END SUB
子 GoToButton4_Click()
在錯誤恢復下一頁
表格(“付費”).激活
如果 Err <> 0 則 MsgBox“無法激活 PAID。它可能已被刪除或重命名。”
在錯誤轉到0
END SUB
子 GoToButton5_Click()
在錯誤恢復下一頁
工作表(“SETTLED”).激活
如果 Err <> 0 則 MsgBox“無法激活 SETTLED。它可能已被刪除或重命名。”
在錯誤轉到0
END SUB
子 GoToButton6_Click()
在錯誤恢復下一頁
工作表(“已關閉”)。激活
如果 Err <> 0 則 MsgBox“無法激活 CLOSED。它可能已被刪除或重命名。”
在錯誤轉到0
END SUB
子 GoToButton7_Click()
在錯誤恢復下一頁
工作表(“不可行”)。激活
如果 Err <> 0 則 MsgBox“無法激活 NON-VIABLE。它可能已被刪除或重命名。”
在錯誤轉到0
END SUB
子 GoToButton8_Click()
在錯誤恢復下一頁
工作表(“法律”).激活
如果 Err <> 0 則 MsgBox“無法激活 LEGAL。它可能已被刪除或重命名。”
在錯誤轉到0
END SUB
子 GoToButton9_Click()
在錯誤恢復下一頁
工作表(“摘要”).激活
如果 Err <> 0 則 MsgBox“無法激活摘要。它可能已被刪除或重命名。”
在錯誤轉到0
END SUB
子 GoToButton1_Click()
在錯誤恢復下一頁
工作表(“ODBC”).激活
如果 Err <> 0 則 MsgBox“無法激活 ODBC。它可能已被刪除或重命名。”
在錯誤轉到0
END SUB
子 GoToButton2_Click()
在錯誤恢復下一頁
表格(“主”).激活
如果 Err <> 0 則 MsgBox“無法激活 Master。它可能已被刪除或重命名。”
在錯誤轉到0
END SUB
子 GoToButton3_Click()
在錯誤恢復下一頁
工作表(“全部”).激活
如果 Err <> 0 則 MsgBox“無法激活全部。它可能已被刪除或重命名。”
在錯誤轉到0
END SUB
子 GoToButton4_Click()
在錯誤恢復下一頁
表格(“付費”).激活
如果 Err <> 0 則 MsgBox“無法激活 PAID。它可能已被刪除或重命名。”
在錯誤轉到0
END SUB
子 GoToButton5_Click()
在錯誤恢復下一頁
工作表(“SETTLED”).激活
如果 Err <> 0 則 MsgBox“無法激活 SETTLED。它可能已被刪除或重命名。”
在錯誤轉到0
END SUB
子 GoToButton6_Click()
在錯誤恢復下一頁
工作表(“已關閉”)。激活
如果 Err <> 0 則 MsgBox“無法激活 CLOSED。它可能已被刪除或重命名。”
在錯誤轉到0
END SUB
子 GoToButton7_Click()
在錯誤恢復下一頁
工作表(“不可行”)。激活
如果 Err <> 0 則 MsgBox“無法激活 NON-VIABLE。它可能已被刪除或重命名。”
在錯誤轉到0
END SUB
子 GoToButton8_Click()
在錯誤恢復下一頁
工作表(“法律”).激活
如果 Err <> 0 則 MsgBox“無法激活 LEGAL。它可能已被刪除或重命名。”
在錯誤轉到0
END SUB
子 GoToButton9_Click()
在錯誤恢復下一頁
工作表(“摘要”).激活
如果 Err <> 0 則 MsgBox“無法激活摘要。它可能已被刪除或重命名。”
在錯誤轉到0
END SUB