Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

mit SVerweis daten aus mysql auslesen

mit SVerweis daten aus mysql auslesen
Timo
Nabend.... ich bin auf der Suche nach einer Möglichkeit. sql-daten ca. 2000 Datensätze via SVerweis in Excel auszugeben. ich will in der ersten zeile eine id eingeben und excel soll sich automatisch die Daten für die weiteren Felder aus der db holen. bisher mache ich es mit einer exceldatei und das dauert solange da die Datei über 2mb groß ist. deswegegen habe ich die daten in mysql importiert. gibt es eine möglichkeit die daten aus mysql in excel einubinden ? Danke

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: mit SVerweis daten aus mysql auslesen
05.10.2009 17:35:11
effha
Hallo Timo,
da wirst Du mit Sverweis nichts werden.
Du musst eine Datenquelle anlegen(ODBC) und dann per sql die Daten abfragen
hier ein Beispiel:
Sub Aufruf
Dim SqlStr$
SqlStr="select * from Tabellenname       'Beispielsweise
SQLinTabelle(SqlStr,1,1)  ' fügt ab Zeile1, Spalte1 ein
End Sub
Function SQLinTabelle(Statement$, AbZeile&, AbSpalte&)
Dim DB As New ADODB.Connection          ' Datenbankobjekt
Dim CN                                  ' Connection
Dim rs As New ADODB.Recordset           ' RecordSet
Dim FieldCounter&
Dim I&, Spalte& ', Zeile&, Spalte&
On Error GoTo ErrHandler
If AbZeile = 0 Then AbZeile = 2
If AbSpalte = 0 Then AbSpalte = 1
DB.Open "DSN=Datenquelle;uid=datenbankbenutzer;pwd=Passwort"
Set rs = DB.Execute(Statement, CN)
FieldCounter = rs.Fields.Count
'J = AbZeile
Spalte = AbSpalte
Do
For I = 0 To rs.Fields.Count - 1
Cells(AbZeile, Spalte) = rs.Fields(I)
Spalte = Spalte + 1
Next
AbZeile = AbZeile + 1
rs.MoveNext
Spalte = AbSpalte
Loop While rs.EOF = False
Set rs = Nothing
DB.Close
Exit Function
ErrHandler:
'MsgBox (Err.Number)
Set rs = Nothing
DB.Close
If Err.Number = 1004 Then
MsgBox ("Keine Datesätze vorhanden!")
Else
MsgBox ("Fehler bei sql-Abfrage" & vbCrLf & Statement)
End If
End Function

Anzeige

365 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige