Pergunta : erro required do objeto

Eu estou tentando escrever um certificado de VB primo dentro que pergunte algumas tabelas e retorne os resultados em um spreadsheet. Antes que eu me use uma pergunta do acesso e importado lhe em prima como uma pergunta da base de dados. Agora, eu estou usando o gerente da empresa do SQL e não o sei de uma maneira de importar uma pergunta do analisador de pergunta, assim que eu escrevi este certificado de VB que tenta conetar a minhas tabelas e importar os dados que maneira. Eu estou começ um erro que diga o objeto exigido. Está aqui meu certificado: o

' do

Sub CompareQry () declara o object
Dim quarto como QueryTable

' declara o varaiables
Dim SQLDB da base de dados como String
Dim SQLServer como String
Dim SQLDbase como String
Dim SQLUser como String
Dim SQLPword como String

Open App.Path & “\ SQLConnect.txt” para a entrada como #1
Input #1, SQLServer de QueryTable, SQLDbase, SQLUser, SQLPword
Close #1

' setup o SQL Statement
sqlstring = “a.item SELETO, a.qty, a.strnum, b.item como o itemb, b.qty como o qtyb, b.strnum” _
& “do firsttbl” um _
& “interno juntam-se [server1] a .STORE.dbo.tablename b” _
& “em a.strNum = b.strnum e ” _
& “a.Item = b.Item” _
& “e ordem “09” do <> b.qty da.qty” _
& “onde a.strNum = por a.item "

' setup o string
connstring = “Provider=sqloledb; Server=” & SQLServer &”; Usuário - identificação = " & SQLUser & “; Pwd=” & SQLPword &”; Database= " & o instrumento de SQLDbase

' a conexão, funcionam a pergunta, e o add
' os resultados ao spreadsheet que começa na fileira A1
With ActiveSheet.qt.Add (Connection: =connstring, destino: =Range (“A1”), Sql: )
. Extremidade With

End Sub

Thanks do
de Refresh
para toda sua ajuda!
KT

class= do

Resposta : erro required do objeto

Seu erro é mais provável aqui

ActiveSheet.qt.Add

Porque ActiveSheet não tem algo quarto chamado

Você pode querer

Ajustar quarto = ActiveSheet.QueryTables.Add (….