By alexoconnellsr@gmail.com ในวันพุธที่ 16 พฤษภาคม 2018
โพสต์ใน Kutools สำหรับ Excel
ตอบกลับ 2
การกดไลค์ 0
เข้าชม 5.1K
โหวต 0
ฉันใช้เครื่องมือแผ่นงาน สร้างแผ่นดัชนีด้วยปุ่ม (VBA) เมื่อฉันเลือกปุ่มใดปุ่มหนึ่ง โค้ดจะทำงานตามที่ควรจะเป็น ยกเว้นแต่จะมีข้อความว่า "ไม่สามารถเปิดใช้งาน ODBC ได้ โค้ดดังกล่าวอาจถูกลบหรือเปลี่ยนชื่อแล้ว" ข้อผิดพลาด. มันทำเช่นเดียวกันสำหรับแผ่นงานทั้งหมด มีปัญหาอะไร?? รหัสมีดังนี้:

ย่อย GoToButton1_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ชีต("ODBC")). เปิดใช้งาน
ถ้า Err <> 0 แสดงว่า MsgBox "ไม่สามารถเปิดใช้งาน ODBC ได้ อาจถูกลบหรือเปลี่ยนชื่อแล้ว"
เมื่อเกิดข้อผิดพลาด GoTo 0
ย่อยสิ้นสุด

ย่อย GoToButton2_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ชีต ("Master") เปิดใช้งาน
ถ้า Err <> 0 แสดงว่า MsgBox "ไม่สามารถเปิดใช้งาน Master ได้ มันอาจถูกลบหรือเปลี่ยนชื่อไปแล้ว"
เมื่อเกิดข้อผิดพลาด GoTo 0
ย่อยสิ้นสุด

ย่อย GoToButton3_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ชีต("ALL")). เปิดใช้งาน
ถ้า Err <> 0 แสดงว่า MsgBox "ไม่สามารถเปิดใช้งานได้ทั้งหมด อาจถูกลบหรือเปลี่ยนชื่อไปแล้ว"
เมื่อเกิดข้อผิดพลาด GoTo 0
ย่อยสิ้นสุด

ย่อย GoToButton4_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ชีต("จ่าย")).เปิดใช้งาน
ถ้า Err <> 0 แสดงว่า MsgBox "ไม่สามารถเปิดใช้งาน PAID ได้ อาจถูกลบหรือเปลี่ยนชื่อไปแล้ว"
เมื่อเกิดข้อผิดพลาด GoTo 0
ย่อยสิ้นสุด

ย่อย GoToButton5_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ชีต("SETTLED")).เปิดใช้งาน
ถ้า Err <> 0 แสดงว่า MsgBox "ไม่สามารถเปิดใช้งาน SETTLED ได้ อาจถูกลบหรือเปลี่ยนชื่อไปแล้ว"
เมื่อเกิดข้อผิดพลาด GoTo 0
ย่อยสิ้นสุด

ย่อย GoToButton6_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ชีต("CLOSED")).เปิดใช้งาน
ถ้า Err <> 0 แสดงว่า MsgBox "ไม่สามารถเปิดใช้งาน CLOSED ได้ อาจถูกลบหรือเปลี่ยนชื่อไปแล้ว"
เมื่อเกิดข้อผิดพลาด GoTo 0
ย่อยสิ้นสุด

ย่อย GoToButton7_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ชีต("NON-VIABLE")).เปิดใช้งาน
ถ้า Err <> 0 แสดงว่า MsgBox "ไม่สามารถเปิดใช้งาน NON-VIABLE ได้ อาจถูกลบหรือเปลี่ยนชื่อแล้ว"
เมื่อเกิดข้อผิดพลาด GoTo 0
ย่อยสิ้นสุด

ย่อย GoToButton8_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ชีต("ถูกกฎหมาย")).เปิดใช้งาน
หาก Err <> 0 แสดงว่า MsgBox "ไม่สามารถเปิดใช้งาน LEGAL ได้ อาจถูกลบหรือเปลี่ยนชื่อแล้ว"
เมื่อเกิดข้อผิดพลาด GoTo 0
ย่อยสิ้นสุด

ย่อย GoToButton9_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ชีต("SUMMARY")).เปิดใช้งาน
ถ้า Err <> 0 แสดงว่า MsgBox "ไม่สามารถเปิดใช้งาน SUMMARY ได้ อาจถูกลบหรือเปลี่ยนชื่อไปแล้ว"
เมื่อเกิดข้อผิดพลาด GoTo 0 KUTools VBError.PNG
KUTools VBError.PNG
KUTools VBError.PNG

ย่อยสิ้นสุด
สวัสดี
ขออภัย คุณไม่สามารถเข้าถึงฟังก์ชันหรือคุณลักษณะของซอฟต์แวร์ในโค้ด VBA
เรายังไม่สนับสนุนการดำเนินการดังกล่าว
·
5 ปีที่ผ่านมา
·
0 ชอบ
·
0 คะแนน
·
0 คอมเมนต์
·
นั่นเป็นการสนับสนุนที่ยอดเยี่ยม! ฉันจะยกเลิกการลงทะเบียนทั้งหมดของเราอย่างแน่นอนเมื่อครบระยะเวลา 3 ปี!
BTW - วิธีแก้ไขคือเพียงแค่ลบบรรทัดของรหัส (หาก Err <> 0 จากนั้น MsgBox "ไม่สามารถเปิดใช้งาน ODBC ได้ อาจถูกลบหรือเปลี่ยนชื่อแล้ว)
·
5 ปีที่ผ่านมา
·
0 ชอบ
·
0 คะแนน
·
0 คอมเมนต์
·
ดูโพสต์แบบเต็ม