Wo genau brauchst du denn Hilfe?
Meine Vorgehensweise wäre:
Verweise (im VBA-Editor Extras->Verweise) auf Microsoft ActiveX Data Objects 2.8 Library und Microsoft ActiveX Data Objects Recordset 2.8 Library setzen, damit du per
Code:
Dim connect As New ADODB.Connection
connect.Open "DEIN_ODBC_NAME", "user", "password"
connect.Execute "denk dir ein schönes insert aus"
connect.Close
Daten nach MySQL schreiben kannst..
Wie das mit ODBC-Treiber installieren und Verbindung zu deiner DB erstellen funktioniert weißt du, oder?
Dann musst du Dir noch was ausdenken wie du prüfst ob der Datensatz im MySQL vorhanden ist, dazu kannst du beispielsweise machen:
Code:
Dim recordset As New ADODB.recordset
recordset.Open "select 1 from xy where xy", connect
If recordset.EOF Then
connect.Execute "dein insert"
End If
Den Wert einer Zellen kannst du mit Cells(Zeile,Spalte) abfragen..
Insgesamt könnte das in etwa dann so aussehen:
Code:
Dim connect As New ADODB.Connection
Dim rec As New ADODB.recordset
connect.Open "DEIN_ODBC_NAME", "user", "password"
spalte = 1 'Die Spalte wo deine eindeutigen Werte stehen A=1,B=2...
For zeile = 1 To 2
wert = Cells(zeile, spalte)
rec.Open "select 1 from TABELLE where WERT='" & wert & "'", connect
If rec.EOF Then
connect.Execute "insert into TABELLE values ('" & wert & "','" & cells(zeile,andere_spalte) ....
End If
Next
connect.Close Btw: was ist das in deiner Signatur?! Ascii-Sex?