Pytanie : przedmiot wymagany błąd

I próbować VB pismo wewnątrz przodować który query niektóre stół i wracać the rezultat w spreadsheet. Zanim I używać dojazdowy zapytanie i ono w przodować jako baza danych zapytanie. Teraz, I używać SQL Przedsięwzięcie Kierownik i znać sposób zapytanie od the zapytanie analyzer, więc I napisać ten VB pismo mój stół i the dane który sposób. I dostawać błąd który mówić przedmiot wymagać. Tutaj być mój pismo:

Sub CompareQry ()

' Oznajmiać the QueryTable object
Dim qt Gdy QueryTable

' Oznajmiać baza danych varaiables
Dim SQLDB Jako String
Dim SQLServer Jako String
Dim SQLDbase Jako String
Dim SQLUser Jako String
Dim SQLPword Jako String

Open App.Path & "\ SQLConnect.txt" Dla Wkład Gdy #1
Input #1, SQLServer, SQLDbase, SQLUser, SQLPword
Close #1

' Ustawianie the SQL Statement
sqlstring = "WYBRANY a.item, a.qty, a.strnum, b.item jako itemb, b.qty jako qtyb, b.strnum" _
& "OD firsttbl" _
& "wewnętrzny łączyć [server1] .STORE.dbo.tablename B" _
& "na a.strNum = b.strnum i " _
& "a.Item = b.Item" _
& "i a.qty <> b.qty" _
& "Dokąd a.strNum = "09" rozkaz a.item "

' Ustawianie the podłączeniowy string
connstring = "Provider=sqloledb; Server=" & SQLServer &"; Użytkownik - id = " & SQLUser & "; Pwd=" & SQLPword &"; Database= " & SQLDbase

' Narzędzie the związek, biegać the zapytanie, i add
' the rezultat the spreadsheet przy rząd A1
With ActiveSheet.qt.Add (Connection: =connstring, Miejsce przeznaczenia: =Range ("A1"), Sql: =sqlstring)
. Refresh

Końcówka With

End Sub

Thanks dla pomoc twój pomoc!
KT

Odpowiedź : przedmiot wymagany błąd

Twój błąd być najprawdopodobniejszy tutaj

ActiveSheet.qt.Add

Ponieważ ActiveSheet mieć coś dzwonić qt

Ty móc

Set qt = ActiveSheet.QueryTables.Add (….