Folosesc instrumentele pentru foi de lucru, creează o foaie de index cu butoane (VBA). Când selectez unul dintre butoane, codul rulează așa cum ar trebui, cu excepția faptului că continuă să arunce un „Nu se poate activa ODBC. Este posibil să fi fost șters sau redenumit”. eroare. Face la fel pentru toate foile. Care este problema?? Codul este următorul:
Sub GoToButton1_Click()
La data de eroare CV următoare
Foi de calcul(„ODBC”).Activare
Dacă Err <> 0, MsgBox „Nu se poate activa ODBC. Este posibil să fi fost șters sau redenumit.”
La eroare GoTo 0
End Sub
Sub GoToButton2_Click()
La data de eroare CV următoare
Foi de calcul („Maestru”). Activați
Dacă Err <> 0, MsgBox „Nu se poate activa Master. Este posibil să fi fost șters sau redenumit.”
La eroare GoTo 0
End Sub
Sub GoToButton3_Click()
La data de eroare CV următoare
Foi de calcul(„ALL”).Activare
Dacă Err <> 0, atunci MsgBox „Nu se pot activa TOATE. Este posibil să fi fost șters sau redenumit.”
La eroare GoTo 0
End Sub
Sub GoToButton4_Click()
La data de eroare CV următoare
Foi de calcul(„PLĂTIT”).Activați
Dacă Err <> 0, MsgBox „Nu se poate activa PAID. Este posibil să fi fost șters sau redenumit.”
La eroare GoTo 0
End Sub
Sub GoToButton5_Click()
La data de eroare CV următoare
Foi de calcul ("SETLED").Activare
Dacă Err <> 0, MsgBox „Nu se poate activa SETLED. Este posibil să fi fost șters sau redenumit.”
La eroare GoTo 0
End Sub
Sub GoToButton6_Click()
La data de eroare CV următoare
Foi de calcul(„ÎNCHIS”).Activați
Dacă Err <> 0, MsgBox „Nu se poate activa ÎNCHIS. Este posibil să fi fost șters sau redenumit.”
La eroare GoTo 0
End Sub
Sub GoToButton7_Click()
La data de eroare CV următoare
Foi de calcul ("NON-VIABLE").Activare
Dacă Err <> 0, MsgBox „Nu se poate activa NON-VIABLE. Este posibil să fi fost șters sau redenumit.”
La eroare GoTo 0
End Sub
Sub GoToButton8_Click()
La data de eroare CV următoare
Foi de calcul(„LEGAL”).Activați
Dacă Err <> 0, MsgBox „Nu se poate activa LEGAL. Este posibil să fi fost șters sau redenumit.”
La eroare GoTo 0
End Sub
Sub GoToButton9_Click()
La data de eroare CV următoare
Foi de calcul(„SUMMARY”).Activare
Dacă Err <> 0, MsgBox „Nu se poate activa REZUMAT. Este posibil să fi fost șters sau redenumit.”
La eroare GoTo 0
End Sub