Re: aus einer exceltabelle eine sql tabelle machen
31.07.2002 10:27:42
alex
ich hab hier mal nen bissel code von meinem versuch, excel zu öffnen über odbc.
ich hab eine odbc datenquelle nacmens excel hinzügefugt und dort die exceltreiber ausgewählt Dim wa1 As Excel.Workbook
Dim wa2 As Excel.Worksheet
Set wa1 = appExcel.Workbooks.Open(Tabellenpfad)
Set wa2 = appExcel.Worksheets(1)
' Öffnen der Datenbank
' --- Objektname wird als Verweis eines Connection-Objekts verwendet
Dim Connexcel As ADODB.Connection
Set Connexcel = New ADODB.Connection
' --- Objektname.open "System-DSN", "UserName", "Passwort"
Connexcel.Open "excel", "", ""
' --- Öffnen eines Recordset-Objekts
Dim rsexcel As ADODB.Recordset
Set rsexcel = New ADODB.Recordset
Dim SQLstringexcel As StringSQLstringexcel = "select Anlage from Tabelle1""
' --- Objektname.open "SQLString", Aktive Verbindung, CursorType, Öffnungsmodus
rsexcel.Open SQLstringexcel, Connexcel
es kommt immer die fehlermeldung, dass das objekt Tabelle1 nicht gefunden wird.
TAbelle1 ist das erste sheet in der excelatbelle. ich hab sonst keien ahnung wie ich es aufrufgen sollte.
mit wa2 etc hab ich es schon versuchgt.
gruss
alex