Microsoft
Software
Hardware
Network
Question : object required error
I am trying to write a VB script in excel that will query some tables and return the results in a spreadsheet. Before I've used an access query and imported it into excel as a database query. Now, I'm using SQL Enterprise Manager and don't know of a way to import a query from the query analyzer, so I wrote this VB script trying to connect to my tables and import the data that way. I'm getting an error that says object required. Here is my script:
Sub CompareQry()
' Declare the QueryTable object
Dim qt As QueryTable
' Declare database varaiables
Dim SQLDB As String
Dim SQLServer As String
Dim SQLDbase As String
Dim SQLUser As String
Dim SQLPword As String
Open App.Path & "\SQLConnect.txt" For Input As #1
Input #1, SQLServer, SQLDbase, SQLUser, SQLPword
Close #1
' Set up the SQL Statement
sqlstring = "SELECT a.item,a.qty,a.strnum,b.it
em as itemb, b.qty as qtyb,b.strnum " _
& "FROM firsttbl a " _
& "inner join [server1].STORE.dbo.tablen
ame b " _
& "on a.strNum = b.strnum and " _
& "a.Item = b.Item " _
& "and a.qty <> b.qty " _
& "Where a.strNum = '09' order by a.item"
' Set up the connection string
connstring = "Provider=sqloledb;Server=
" & SQLServer & ";User Id=" & SQLUser & ";Pwd=" & SQLPword & ";Database=" & SQLDbase
' Implement the connection, run the query, and add
' the results to the spreadsheet starting at row A1
With ActiveSheet.qt.Add(Connect
ion:=conns
tring, Destination:=Range("A1"), Sql:=sqlstring)
.Refresh
End With
End Sub
Thanks for all of your help!
KT
Answer : object required error
Your error is most likely here
ActiveSheet.qt.Add
Because ActiveSheet does not have something called qt
You may want
Set qt = ActiveSheet.QueryTables.Ad
d(....
Random Solutions
SQL 2005 Database in Suspect Mode
Adding the Dynamic Prameter makes report run slow?
How do I allow data entry under certain conditions in an access form
How to automatically resize pictures in Outlook 2007
Why aren't all my profiles showing up with I boot up in SAFE MODE?
Manual Update of WSUS Data Files
Access DB network performance very slow
Problem using Windows 7 and Access 2007
How do I get the next and previous record of one target record in a set of records?
Window XP Backup Utility