Thứ tư, 16 May 2018
  2 Trả lời
  5.1 nghìn lượt truy cập
0
Bình chọn
Undo
Tôi đang sử dụng Công cụ Trang tính, Tạo Trang Chỉ mục với các nút (VBA). Khi tôi chọn một trong các nút, mã sẽ chạy như bình thường, ngoại trừ, nó tiếp tục thông báo "Không thể kích hoạt ODBC. Nó có thể đã bị xóa hoặc đổi tên." lỗi. Nó làm tương tự cho tất cả các trang tính. Có vấn đề gì vậy ?? Mã như sau:

Sub GoToButton1_Click ()
On Error Resume Next
Trang tính ("ODBC"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt ODBC. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub

Sub GoToButton2_Click ()
On Error Resume Next
Trang tính ("Chính"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt Master. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub

Sub GoToButton3_Click ()
On Error Resume Next
Trang tính ("TẤT CẢ"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt TẤT CẢ. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub

Sub GoToButton4_Click ()
On Error Resume Next
Trang tính ("TRẢ TIỀN"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt PAID. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub

Sub GoToButton5_Click ()
On Error Resume Next
Trang tính ("SETTLED"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt SETTLED. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub

Sub GoToButton6_Click ()
On Error Resume Next
Trang tính ("ĐÃ ĐÓNG CỬA"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt ĐÃ ĐÓNG CỬA. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub

Sub GoToButton7_Click ()
On Error Resume Next
Trang tính ("KHÔNG THỂ XEM"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt KHÔNG THỂ VIẾT ĐƯỢC. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub

Sub GoToButton8_Click ()
On Error Resume Next
Trang tính ("PHÁP LÝ"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt HỢP PHÁP. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub

Sub GoToButton9_Click ()
On Error Resume Next
Trang tính ("SUMMARY"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt SUMMARY. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0 KUTools VBError.PNG KUTools VBError.PNG KUTools VBError.PNG
End Sub
năm 5 trước
·
#1586
0
Bình chọn
Undo
Chào bạn,
Xin lỗi, bạn không thể truy cập các chức năng hoặc tính năng của phần mềm bằng mã VBA. :)
Chúng tôi chưa hỗ trợ hoạt động như vậy.
Đó là sự hỗ trợ tuyệt vời! Tôi chắc chắn sẽ hủy tất cả các đăng ký của chúng tôi khi hết thời hạn 3 năm!
BTW - Giải pháp là chỉ cần xóa dòng mã (Nếu Err <> 0 Thì MsgBox "Không thể kích hoạt ODBC. Nó có thể đã bị xóa hoặc đổi tên.)
  • Trang :
  • 1
Không có câu trả lời cho bài viết này.