Im Excel Datenbanken abfragen
29.08.2002 09:55:50
S.Hauser
Das einzige was ich bisher schlaues zu dem Thema gefunden hab ist das hier:
Public Sub SQLCommander2(ByVal SQLString As String)
Dim sCon As String
Dim Qt As QueryTable
'String zusammenstellen, der die Connection
'zur DB herstellen soll
sCon = "ODBC;DSN = MS Access-Datenbank;DBQ = D:\test2\test.MDB;UID=admin;pwd="
With Application
'Tabelle 1 auswählen und Inhalte löschen,
'aber nicht eine bestehende Formatierung!
.Sheets("Tabelle1").Select
.Cells.Select
.Selection.ClearContents
For Each Qt In .ActiveSheet.QueryTables
Qt.Delete
Next
Set Qt = .ActiveSheet.QueryTables.Add(Connection:=sCon, Destination:=Range("A1"), SQL:=SQLString)
End With
'Die QueryTable ist erstellt. Jetzt werden der Tabelle
'Daten zugewiesen. Dies geschieht mit der Refresh-Methode
Qt.Refresh
End Sub
Nur bei mir geht das nicht und weiss nicht warum.
Kann mir jemand helfen? Ich brauche etwas womit ich SQL-Abfragen im VBA machen und dann am besten in einem Array ablegen kann.