Vraag : voorwerp vereiste fout

Ik probeer te schrijven een manuscript VB binnen uitblinkt dat sommige lijsten zal vragen en de resultaten in een spreadsheet zal terugkeren. Alvorens ik heb gebruikt blinkt een toegangsvraag en ingevoerd het in uit als gegevensbestandvraag. Nu, gebruik ik SQL de Manager van de Onderneming en ken niet van een manier om een vraag van de vraaganalysator in te voeren, zodat schreef ik dit manuscript VB die met mijn lijsten proberen te verbinden en de gegevens in te voeren die manier. Ik krijg een fout die vereist voorwerp zegt. Hier is mijn manuscript:

Sub CompareQry ()

' verklaart QueryTable object
Dim qt aangezien QueryTable

' gegevensbestand varaiables
Dim SQLDB als String
Dim SQLServer als String
Dim SQLDbase als String
Dim SQLUser als String
Dim SQLPword als String

Open App.Path & „\ SQLConnect.txt“ voor Input als #1
Input #1 verklaart, SQLServer, SQLDbase, SQLUser, de Opstelling #1

Close/>' SQL Statement
sqlstring = „UITGEZOCHTE a.item, a.qty, a.strnum, b.item als itemb, b.qty als qtyb, b.strnum“ _
& „VAN firsttbl een“ _
& „binnen zich [server1] bij .STORE.dbo.tablename B“ _
& „op a.strNum = b.strnum aansluit en “ _
& „a.Item = b.Item“ _
& „en a.qty <> orde b.qty“ _
& „waar a.strNum = „09“ door a.item "
' Opstelling/>
connstring = „Provider=sqloledb; Server=“ & SQLServer &“; Gebruiker - identiteitskaart = " & SQLUser & „; Pwd=“ & SQLPword &“; Database= " & SQLDbase

' voeren de verbinding, stellen de vraag, en add
' de resultaten uit aan de spreadsheet in werking die bij rij A1
With ActiveSheet.qt.Add beginnen (Connection: =connstring, Bestemming: =Range („A1“), Sql: =sqlstring)
. Het Eind With

End Sub

Thanks van Refresh

voor elk van uw hulp!
KT

Antwoord : voorwerp vereiste fout

Uw fout is hier most likely

ActiveSheet.qt.Add

Omdat ActiveSheet iets niet geroepen qt heeft

U kunt willen

Vastgesteld qt = ActiveSheet.QueryTables.Add (….