Fråga : anmärka det required felet

Pröva förmiddag I att skriva en VB skrivar överträffar, att den ska queryen några bordlägger och går in resultaten i ett räkneark tillbaka. För jag har använt, en ta framquery och importerat det in i överträffar som en databasquery. Nu I-förmiddagen using SQL-företagchef och vet inte av a långt till importen en query från queryanalysatorn, så jag skrev denna VB skrivar pröva för att förbinda till mitt bordlägger och importen datan ditåt. Förmiddag som I får ett fel som något att säga anmärker required. Är här mitt skrivar:

' för

Sub CompareQry () förklarar den QueryTable objectDim qt, som QueryTable

' förklarar att databasvaraiables
Dim SQLDB som String
Dim SQLServer som String
Dim SQLDbase som String
Dim SQLUser som String
Dim SQLPword som String

Open App.Path & ”\ SQLConnect.txt” för matar in som #1
Input #1, SQLServer, SQLDbase, SQLUser, SQLPword
Close #1

' ställer in SQLEN Statement
sqlstring = ”VALD a.item, a.qty, a.strnum, b.item som itemb, b.qty som qtyb, b.strnum” _
& ”FRÅN firsttbl en inre” _
& ”sammanfogar [server1] .STORE.dbo.tablename b” _
& ”på a.strNum = b.strnum och ” _
& ”a.Item = b.Item” _
& ”och a.qty-<> b.qty” _
& ”var a.strNum = ”09” beställer vid a.item "

' ställer in anslutningsstringconnstring = ”Provider=sqloledb; Server=” & SQLServer &”; Användare - ID = " & SQLUser & ”; Pwd=” & SQLPword &”; Database= " & SQLDbase

' genomför anslutningen, kör queryen, och add
' resultaten till räknearkstarten på ror A1
With ActiveSheet.qt.Add (Connection: =connstring, destination: =Range (”A1”), Sql: =sqlstring)
. Refresh

avslutar With

End Sub

Thanks för all din hjälp!
KT

" klar "

Svar : anmärka det required felet

Ditt fel är mest rimlig här

ActiveSheet.qt.Add

Därför att ActiveSheet inte har något kallad qt

Du kan önska

Uppsättning qt = ActiveSheet.QueryTables.Add (….,  
Andra lösningar  
 
programming4us programming4us