Exceldaten zu Access transferieren
17.02.2021 08:41:31
Mathe
Ich möchte Daten aus einer Excel-Tabelle nach Access transferieren. Folgenden Code habe ich erarbeitet aber mir fehlt noch etwas.
Die Zeilen welche hinten mit 3x! gekennzeichnet sind stimmen nicht. Meiner Meinung nach fehlt hier die korrekte Zuweisung zu der nächsten leere Zeile in Access!? Der Code mit den anfänglichen 1x! funktioniert. Dies ist aber nur ein Testcode. In dem richtigen Code hab ich 85 Spalten welche transportiert werden müssen.
Private Sub CommandButton1_Click()
Dim strDB As String
Dim strTab As String
Dim objcon As ADODB.Connection
Dim rst As ADODB.Recordset
Dim Zeile As Long
Dim arWerte As Variant
Dim lngZeile As Long
Dim intIndex As Integer
strDB = "c:\Users\matth\OneDrive\Desktop\Testing_Access\Test_Database1.accdb"
strTab = "Test_con"
Set objcon = New ADODB.Connection
objcon.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strDB
With Sheets("Tabelle1")
arWerte = .Range(.Range("A2"), .Range("A2").End(xlToRight))
End With
Set rst = New ADODB.Recordset
rst.Open strTab, objcon, adOpenKeyset, adLockOptimistic
For intIndex = 1 To UBound(arWerte, 2) '!!!
rst.Fields(arWerte(1, intIndex)) = arWerte(1, intIndex).Value '!!!
Next '!!!
'! With rst
'! .AddNew
'! !Feld01 = Tabelle1.Cells(2, 1)
'! !Feld02 = Tabelle1.Cells(2, 2)
'! !Feld03 = Tabelle1.Cells(2, 3)
'! !Feld04 = Tabelle1.Cells(2, 4)
'! !Feld05 = Tabelle1.Cells(2, 5)
'! !Feld06 = Tabelle1.Cells(2, 6)
'! !Feld07 = Tabelle1.Cells(2, 7)
'! !Feld08 = Tabelle1.Cells(2, 8)
'! !Feld09 = Tabelle1.Cells(2, 9)
'! !Feld10 = Tabelle1.Cells(2, 10)
'! .Update
'! End With
rst.Update
objcon.Close
' rst.Close
MsgBox ("Alle Werte an db übergeben!")
End Sub
Wäre Euch sehr dankbar wenn Ihr mir weiterhelfen könntet :-)
Liebe Grüsse
Mathe