Questione : errore required dell'oggetto

Sto provando a scrivere uno scritto di VB dentro eccello che interrogherà alcune tabelle e restituirà i risultati in un foglio elettronico. Prima che usi una domanda di accesso ed importato esso in eccelle come domanda della base di dati. Ora, sto usando il responsabile di impresa di SQL e non so di un senso importare una domanda dall'analizzatore di domanda, in modo da ho scritto questo scritto di VB che prova a collegarmi alle mie tabelle ed ad importare i dati che senso. Sto ottenendo un errore che dice l'oggetto richiesto. Qui è il mio scritto: il

'del

Sub CompareQry () dichiara il object
Dim il quarto mentre QueryTable

'dichiara il varaiables
Dim SQLDB della base di dati come String
Dim SQLServer come String
Dim SQLDbase come String
Dim SQLUser come String
Dim SQLPword come String

Open App.Path & “\ SQLConnect.txt„ per input come #1
Input #1, SQLServer, SQLDbase, SQLUser di QueryTable, SQLPword
Close #1

'ha installato lo SQL Statement
sqlstring = “a.item PRESCELTO, a.qty, a.strnum, b.item come itemb, b.qty come qtyb, b.strnum„ il _
& “da firsttbl„ un _
& “interno uniscono [server1] .STORE.dbo.tablename la b„ il _
& “su a.strNum = b.strnum e „ _
& “a.Item = b.Item„ _
& “e l'ordine “09„ del <> b.qty di a.qty„ _
& “dove a.strNum = da a.item " il

'ha installato lo string
connstring = “Provider=sqloledb; Server=„ & SQLServer &„; Identificazione usuario = " & SQLUser & “; Pwd=„ & SQLPword &„; Database= " & lo strumento di SQLDbase

'il collegamento, fanno funzionare la domanda e il add
'i risultati al foglio elettronico che comincia alla fila A1
With ActiveSheet.qt.Add (Connection: =connstring, destinazione: =Range (“A1„), Sql: )
. Estremità With

End Sub

Thanks del
di Refresh
per tutto il vostro aiuto!
KT

class= del

Risposta : errore required dell'oggetto

Il vostro errore è più probabile qui

ActiveSheet.qt.Add

Poiché ActiveSheet non ha qualcosa quarto denominato

Potete volere

Regolar quarto = ActiveSheet.QueryTables.Add (….