将 Excel 范围导出到 Access 表 VBA

Question

我想在 Excel 电子表格上有一个按钮，并将数据复制到 Access 表中。 该范围是同一工作簿中另一个工作表中的自动填充字段。

我尝试了一些代码来实现这一点，但我得到一个错误 1004：应用程序定义或对象定义的错误，或者没有错误但数据没有被复制到 Access DB 中。

我的代码复制如下。

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

查看您的子例程，我发现有两件事可能使其无法正常工作：

• rst(Cells(1, i).Value) = Cells(x, i).Value

• 只有一个循环在字段上移动，但我认为它应该是 Excel 中行的另一个循环。

通过这两个更改，保存记录时的循环可能会变成这样：

    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

希望对你有帮助。