Die Accesstabelle
Die Exceltabelle
Nach Codeausführung.
Die Zieltabelle mit den angefügten Datensätzen.
Der Code für ein allgemeines Modul:
Public Sub Daten_nach_Access()
'###########################################
'Unter Extras - Verweise - Häkchen bei "Microsoft DAO 3.6 Object Library" setzen
'##########################################
Dim DB As Database
Dim RS As Recordset
Dim strPfad As String
Dim wks As Worksheet
Dim lngZ As Long
Dim lngLast As Long
strPfad = "C:\ImportDB.mdb"
Set DB = Workspaces(0).OpenDatabase(strPfad)
Set RS = DB.OpenRecordset("tblDaten", dbOpenTable)
Set wks = Worksheets("Tabelle1")
lngLast = wks.Cells(Rows.Count, 1).End(xlUp).Row
For lngZ = 2 To lngLast
RS.AddNew
RS!Name = wks.Cells(lngZ, 1).Value
RS!Vorname = wks.Cells(lngZ, 2).Value
RS!Betrag = wks.Cells(lngZ, 3).Value
RS.Update
Next
Set wks = Nothing
Set RS = Nothing
Set DB = Nothing
MsgBox "Es wurden " & lngLast - 1 & " Datensätze übertragen.", 64
End Sub
|
||||||
