Astuces Excel
  1. Astuces Excel
  3. Fonctionnement interdit lorsque l'object est fermé
Intereting Posts
Remplissez deux colonnes en combobox et affiche une valeur d'une autre colonne dans la textbox de manière dynamic Choix de données temporelles spécifiques de SQL avec une boucle Colonne de sum B jusqu'à ce qu'il y ait un changement dans la colonne A Colonne la plus longue dans la gamme Excel multi-colonne (dans une seule formule)? Faire un file Excel avec le nom souhaité à partir de XML dans Python Comment replace un Combobox Mise en forme de la date de sortie excel vba – pour la boucle Formule pour searchr le tableau et returnner les en-têtes de plusieurs colonnes Comment puis-je vérifier un directory pour un nom de file donné par un InputBox dans VBA? Multiplication d'une constante sur datatables brutes lors de la création d'un graphique dans Excel excel 2016 – supprime les lignes en fonction de multiples Copier du text du file à la colonne Excel spécifiée VBA modifie mon contenu variable Modifier la colonne de la date en fonction de la colonne de l'heure dans Excel java.lang.ClassCastException: java.lang.NoClassDefFoundError ne peut pas être jeté sur java.lang.Exception

Fonctionnement interdit lorsque l'object est fermé

Je suis plutôt nouveau pour l'interaction VBA – SQL Server. Actuellement, j'essaie de lire datatables d'Excel et de l'append à une table dans SQL Server. Je ne comprends pas pourquoi j'ai l'erreur que l'object est fermé. S'il y a d'autres erreurs ou des choses qui peuvent être codées plus facilement ou mieux, n'hésitez pas à partager! 

Sub UpdateBG_Results() Dim dbConnectStr As Ssortingng Dim connect As ADODB.Connection Dim results() As Variant Dim rec As ADODB.Recordset Dim fieldsArray() As Ssortingng Sheets("Operational KPI's ROUND").Select fieldsArray() = GetSsortingngArray(ActiveSheet.Range("Y12:AO12")) results = ActiveSheet.Range("Y14:AO14").Value dbConnectStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=HOME27C4K12\SQLEXPRESS" Set connect = New ADODB.Connection connect.Open dbConnectStr Set rec = New ADODB.Recordset rec.Open "USE Current_state1 SELECT * FROM BG_Results", connect, adOpenKeyset, adLockOptimistic rec.AddNew fieldsArray, results rec.Update rec.Close End Sub