Ich stehe vor folgendem Problem: ich möchte aus einer bestehenden Datenbank Daten downloaden. Dabei werden die Daten in die Range zurückgegeben. Wie ist es möglich, nur einzelne Werte abzufragen und diese in einer Array zu speichern? (z.B. Select id from....WHERE id = 2)
Vielen Dank für die Hilfe.
Sub GetData()
'
' Macro1 Macro
' Macro recorded 07.06.2002 by Kurt Müller
'
' Delete existing rows
Rows("2:20000").Select
Selection.Delete Shift:=xlUp
'
' Fetch data from PSG bondmasterlist
Range("A2").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=QWEDB;Description=QWE;UID=QWEAdmin;PWD=admin;APP=Microsoft® Query;WSID=W01B0RMP" _
, Destination:=Range("A2"))
.Sql = Array( _
"SELECT id FROM QWEDB.dbo.test")
.FieldNames = True
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = True
.SaveData = True
End With
Range("B3").Select
ActiveWindow.LargeScroll ToRight:=1
ActDate = Range("J3").Value
ActDate2 = Range("J4").Value
Sheets(2).Select
Range("A1").Value = ActDate
Range("A2").Value = ActDate2
Sheets(1).Select
Rows("2:4").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub