Cuestión : error required del objeto

Estoy intentando escribir una escritura de VB adentro sobresalgo que pregunte algunas tablas y vuelva los resultados en una hoja de balance. Antes de que haya utilizado una pregunta del acceso e importado le en sobresale como pregunta de la base de datos. Ahora, estoy utilizando a encargado de la empresa del SQL y no lo sé de una manera de importar una pregunta del analizador de pregunta, así que escribí esta escritura de VB que intentaba conectar con mis tablas e importar los datos que manera. Estoy consiguiendo un error que diga el objeto requerido. Aquí está mi escritura: el

' del

Sub CompareQry () declara el object
Dim cuarto de galón como QueryTable

' declara el varaiables
Dim SQLDB de la base de datos como String
Dim SQLServer como String
Dim SQLDbase como String
Dim SQLUser como String
Dim SQLPword como String

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

' fijó el SQL Statement
sqlstring = “a.item SELECTO, a.qty, a.strnum, b.item como itemb, b.qty como qtyb, b.strnum” _
& “del firsttbl” un _
& “interno ensamblan [server1] .STORE.dbo.tablename b” _
& “en a.strNum = b.strnum y ” _
& “a.Item = b.Item” _
& “y orden “09” del <> b.qty de a.qty” _
& “donde a.strNum = por a.item "

' fijó el string
connstring = “Provider=sqloledb; Server=” y SQLServer y”; Identificación del usuario = " y SQLUser y “; Pwd=” y SQLPword y”; Database= " y el instrumento de SQLDbase

' la conexión, funcionan la pregunta, y el add
' los resultados a la hoja de balance que comienza en la fila A1
With ActiveSheet.qt.Add (Connection: =connstring, destinación: =Range (“A1”), Sql: )
. ¡Extremo With

End Sub

Thanks del
de Refresh
para toda su ayuda!
KT

class= del

Respuesta : error required del objeto

Su error es más probable aquí

ActiveSheet.qt.Add

Porque ActiveSheet no tiene algo cuarto de galón llamado

Usted puede querer

Fijar cuarto de galón = ActiveSheet.QueryTables.Add (….  
Otras soluciones  
 
programming4us programming4us