Вопрос : ошибка предмета необходимый

Я пытаюсь написать сценарий VB внутри первенствую запросит некоторые таблицы и возвратит результаты в электронная таблица. Прежде чем я использовал вопрос доступа и после того как я импортирован ему в первенствует как вопрос базы данных. Теперь, я использую менеджера предпринимательства SQL и не знаю дороги импортировать вопрос от анализатора вопроса, поэтому я написал этот сценарий VB пытаясь соединиться к моим таблицам и импортироваться данные которые дорога. Я получаю ошибку говорит необходимо предмет. Здесь мой сценарий:

'

Sub CompareQry () объявляет object
Dim qt по мере того как QueryTable

' объявляет varaiables
Dim SQLDB базы данных как String
Dim SQLServer как String
Dim SQLDbase как String
Dim SQLUser как String
Dim SQLPword как String

Open App.Path & «\ SQLConnect.txt» для входного сигнала как #1
Input #1, SQLServer QueryTable, SQLDbase, SQLUser, SQLPword
Close #1

' setup SQL Statement
sqlstring = «ОТБОРНОЕ a.item, a.qty, a.strnum, b.item как itemb, b.qty как qtyb, b.strnum» _
& «ОТ firsttbl» _
& «внутреннее соединяют [server1] .STORE.dbo.tablename b» _
& «на a.strNum = b.strnum и » _
& «a.Item = b.Item» _
& «и заказ «09» <> b.qty a.qty» _
& «где a.strNum = a.item "

' setup string
connstring = «Provider=sqloledb; Server=» & SQLServer &»; Потребитель - удостоверение личности = " & SQLUser & «; Pwd=» & SQLPword &»; Database= " & инструмент SQLDbase

' соединение, бегут вопрос, и add
' результаты к электронная таблица начиная на рядке A1
With ActiveSheet.qt.Add (Connection: =connstring, назначение: =Range («A1»), Sql: =sqlstring)
. Конец With

End Sub

Thanks
Refresh
для всей из вашей помощи!
KT

class=

Ответ : ошибка предмета необходимый

Ваша ошибка самая правоподобная здесь

ActiveSheet.qt.Add

Потому что ActiveSheet не имеет что-то вызванный qt

Вы можете хотеть

Установите qt = ActiveSheet.QueryTables.Add (….