Daten via Query nach Excel II
02.07.2003 19:07:11
Steve
ich habe zwei Variablen definiert: Eine steht in der Connection Anweisung (Variable_1), die zweite in der Where-Klausel (Variable_2). Warum funktioniert die erste und nicht die zweite?
Ersetze ich die letzte Zeile mit WHERE (TABLE_1.ATTRIB_2='WERT')") dann funktioniert die Abfrage. Ansonsten erhalte ich jedesmal einen Laufzeitfehler '1004'.
Vielen Dank im voraus!
Steve
VARIABLE_1= Range("Tabelle1!A1").Text
VARIABLE_2= Range("Tabelle1!A2").Text
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=XXX;UID=" & VARIABLE_1 & " ;PWD=" & VARIABLE_1 & ";SERVER=XXX;", Destination:=Range("A1"))
.CommandText = Array( _
"SELECT TABLE_1.ATTRIBUT_1, TABLE_1.ATTRIB_2, TABLE_1.ATTRIB_3, ..... TABLE_1.ATTRIB_10 FROM " & VARIABLE_1 & ".TABLE_1 TABLE_1" _
, _
" WHERE (TABLE_1.ATTRIB_2=" & VARIABLE_2 & ")")