hab mal wieder ein Problem. Da ich viele Querry Dateien habe arbeite ich für die eine oder andere abfrage mit diesem Makro (übrigens hier aus dem Forum, Danke)
Dim qt As QueryTable
sqlstring = "select 96Sales.totals from 96Sales where profit < 5"
connstring = _
"ODBC;DSN=96SalesData;UID=Rep21;PWD=NUyHwYQI;Database=96Sales"
With ActiveSheet.QueryTables.Add(Connection:=connstring, _
Destination:=Range("B1"), Sql:=sqlstring)
.Refresh
End With
~f~
Nun bin ich dabei eine Abfrage zu erstellen wo der SQL String sich in meinem Tabelblatt z.B. Tabelle1, A1 befindet
Dazu habe ich dann folgendes geschrieben
~f~
Dim qt As QueryTable
Dim ort As String
ort = "A1"
sqlstring = ort
connstring = _
"ODBC;DSN=96SalesData;UID=Rep21;PWD=NUyHwYQI;Database=96Sales"
With ActiveSheet.QueryTables.Add(Connection:=connstring, _
Destination:=Range("B1"), Sql:=sqlstring)
.Refresh
End With
Nun gibt er mir immer .Refresh als fehler an, ich kann mir das nicht erklären jemand ne Idee ?
Gruß
Heinz