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
CSS layout problem in IE6
How do I put commas between the letters in my output?
Is it possible to put an image in a table cell and have it overflow UNDERNEATH the text in adjacent cells?
Form Load Failed in my organisational form library
basic integration question
Is it normal to get Java errors during Oracle 11g installation
Need to Get Windows XP Pro booting - OS Must be missing a boot up file
PHP: Combine many elseif for parsing search term
How to create Join using LinqDataSource?
I need to know if I have a fraction.