Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fehler beim Kompilieren
Autor: Mark
Datum: 13.11.01 07:38
Bringt kann db1.mdb nicht finden! Warum nur? Anbei der Quellcode! Hoffe ihr könnt mir da weiter helfen! ' Excel-Tabelle in Access-Datenbank kopieren Private Sub CopyExcel2Access(ByVal sWorkBookName As String, ByVal sTableSheet As String, ByVal sDBName As String) Dim DB1 As Database Dim DB2 As Database Dim Rs1 As Recordset Dim Rs2 As Recordset Dim fld As Field Dim tble As TableDef ' Access-DB öffnen und neue Tabelle anlegen: Set DB1 = DBEngine.OpenDatabase(sDBName, True, False) Set DB2 = DBEngine.OpenDatabase(sWorkBookName, False, False, "Excel 8.0;") Set Rs2 = DB2.OpenRecordset(sTableSheet & "$", dbOpenDynaset) Set tble = DB1.CreateTableDef("Kopie") With tble For Each fld In Rs2.Fields .Fields.Append .CreateField(fld.Name, fld.Type, fld.Size) Next End With DB1.TableDefs.Append tble ' Tabellen zeilenweise kopieren: Set Rs1 = DB1.OpenRecordset("Kopie", dbOpenDynaset) Do While Not Rs2.EOF With Rs1 .AddNew For Each fld In Rs2.Fields .Fields(fld.Name).Value = fld.Value Next .Update End With Rs2.MoveNext Loop DB1.Close DB2.Close End Sub Private Sub Command1_Click() CopyExcel2Access "D:MarkoAPH Eppendorf.xls", "Kalkulation", "db1.mdb" End Sub

Fehler beim Kompilieren	69	Mark	13.11.01 07:38
Re: Fehler beim Kompilieren	53	Mark	13.11.01 09:11
Re: Fehler beim Kompilieren	331	Dieter	13.11.01 10:01

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen