Question : erreur required d'objet

J'essaye d'écrire un manuscrit de VB excelle dedans qui questionnera quelques tables et renverra les résultats dans un bilan. Avant que j'aie employé une question d'accès et importé lui dans excellent comme question de base de données. Maintenant, j'emploie le directeur d'entreprise de SQL et ne le sais pas d'une manière d'importer une question de l'analyseur de question, ainsi j'ai écrit ce manuscrit de VB essayant de se relier à mes tables et d'importer les données qui manière. J'obtiens une erreur qui indique l'objet exigé. Voici mon manuscrit : le

'du

Sub CompareQry () déclarent l'object
Dim quart pendant que QueryTable

'déclarent le varaiables
Dim SQLDB de base de données comme String
Dim SQLServer comme String
Dim SQLDbase comme String
Dim SQLUser comme String
Dim SQLPword comme String

Open App.Path et « \ SQLConnect.txt » pour l'entrée comme #1
Input #1, SQLServer, SQLDbase, SQLUser de QueryTable, SQLPword
Close #1

'a installé le SQL Statement
sqlstring = « a.item CHOISI, a.qty, a.strnum, b.item comme itemb, b.qty comme qtyb, b.strnum » le _
& « du firsttbl » un _
& « intérieur joignent [server1] .STORE.dbo.tablename b » le _
& « sur a.strNum = b.strnum et  » _
& « a.Item = b.Item » _
& « et ordre « 09 » du <> b.qty d'a.qty » _
& « où a.strNum = par a.item le "

'a installé le string
connstring = « Provider=sqloledb ; Server= » et SQLServer et » ; Identification de l'utilisateur = " et SQLUser et « ; Pwd= » et SQLPword et » ; Database= " et instrument de SQLDbase

'le raccordement, courent la question, et l'add
'les résultats au bilan démarrant à la rangée A1
With ActiveSheet.qt.Add (Connection : =connstring, destination : =Range (« A1 »), SQL : )
. Extrémité With

End Sub

Thanks du
de Refresh
pour toute votre aide !
KT

class= de

Réponse : erreur required d'objet

Votre erreur est le plus susceptible ici

ActiveSheet.qt.Add

Puisqu'ActiveSheet n'a pas quelque chose quart appelé

Vous pouvez vouloir

Placer quart = ActiveSheet.QueryTables.Add (….