Excel-Bereich exportieren, um auf Tabelle VBA zuzugreifen

Question

Ich möchte eine Schaltfläche in der Excel-Tabelle haben und die Daten in die Access-Tabelle kopiert haben. Der Bereich ist ein automatisch ausgefülltes Feld von einem anderen Blatt in derselben Arbeitsmappe.

Ich habe versucht, einige Codes, um dies geschehen zu lassen, aber ich erhalte entweder einen Fehler 1004: applikations- oder objektdefinierter Fehler oder kein Fehler, aber Daten werden nicht in Access DB kopiert.

Mein Code wird unten kopiert.

Sub Export_Data() 

    Dim cnn As ADODB.Connection 
    Dim rst As ADODB.Recordset 
    Dim dbPath 
    Dim x As Long, i As Long 

    dbPath = "H:\RFD\RequestForData.accdb" 

    Set cnn = New ADODB.Connection 

    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath 

    Set rst = New ADODB.Recordset 'assign memory to the recordset 

    rst.Open Source:="tblRequests", ActiveConnection:=cnn, _ 
      CursorType:=adOpenDynamic, LockType:=adLockOptimistic, _ 
      Options:=adCmdTable 

    rst.AddNew 
    For i = 1 To 13 
     rst(Cells(1, i).Value) = Cells(x, i).Value 
    Next i 
    rst.Update 

    rst.Close 
    cnn.Close 

    Set rst = Nothing 
    Set cnn = Nothing 

    MsgBox " The data has been successfully sent to the access database" 

    Set rst = Nothing 
    Set cnn = Nothing 

End Sub 

Answer 1

an Ihrem Unterprogramm Blick sehe ich zwei Dinge, die es nicht zur Arbeit machen:

• rst (Cells (1, i) .Value) = Cells (x, i) .Value < - Wo wird 'x' initialisiert?

• Es gibt nur eine Schleife, die sich über die Felder bewegt, aber ich denke, es sollte eine andere Schleife für die Zeilen im Excel sein.

Mit diesen beiden Änderungen, die Schleife, wenn die Datensätze sind so etwas geworden retten könnte:

For x = 1 TO lastRow ' Last row has to be calculated somehow 
     rst.AddNew 
     For i = 1 To 13 
      rst(Cells(1, i).Value) = Cells(x, i).Value 
     Next i 
     rst.Update 
    Next x 

Hoffe, es hilft.