Array in Excel aus SQL füllen
11.06.2004 15:08:36
Arne
ich habe eine Frage bei der mir hoffentlich geholfen werden kann.
Ich würde gerne eine komplette Spalte aus einer SQL Datenbank ziehen (max.20 Einträge) und sie in ein Array zu schreiben, mit dem ich dann in Excel weiterarbeiten kann.
Ich weiss zwar wie ich mir einen Eintrag rausfische, aber leider nicht wie ich eine ganze Spalte in einen Array schreiben kann.
Vielen Dank im Vorraus
Arne
Sub Name()
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim vtSql As String
Dim arrSI() As Variant
con.Open "DRIVER=SQL Server;SERVER=XXXXX"
vtSql = "SELECT GetAllTeilnehmer.Name" & "FROM_ DATENBANK.dbo.GetAllTeilnehmer"
rs.Open vtSql, con, adOpenForwardOnly, adLockReadOnly
rs.Close
End Sub