Database 将Excel数据保存到Access数据库

我计划将一个特定的单元格引用值保存到并访问数据库表，该表包括学生姓名、学生#、为宏选择的文件。 我已在excel的各个单元格中提取了上述性能项。这必须保存在access数据库表中

---

谢谢。

这里有一种方法可以使用ACCDB格式完成您想做的事情

Sub InsertIntoX2()

    Dim cn As ADODB.Connection, rs As ADODB.Recordset, row As Long
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & _
            "Data Source=C:\Users\Excel\Desktop\Test.accdb;"

    ' open a recordset
    Set rs = New ADODB.Recordset
    rs.Open "tblTrx", cn, adOpenKeyset, adLockOptimistic, adCmdTable

    row = 3    ' the start row in the worksheet
    Do While Not IsEmpty(Worksheets("Sheet1").Range("A" & row))

        With rs
            .AddNew    ' create a new record
            .Fields("ID") = Worksheets("Sheet1").Range("A" & row).Value
            .Fields("Product") = Worksheets("Sheet1").Range("B" & row).Value
            .Fields("ProdDate") = Worksheets("Sheet1").Range("C" & row).Value
            .Update
        End With
        row = row + 1
    Loop

    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing

End Sub

---

只需在Excel中设置对“Microsoft Active X数据对象2.8库”的引用。

请在此处分享您的成果。你为了达到你的目标做了什么？嗨。非常感谢您的快速回复。我相信64位操作系统不支持Microsoft.Jet.OLEDB.4.0。还有其他方法吗？Jet在64位上不受支持，微软已经非常明确地声明它永远不会受支持。哈哈，总有办法的！！我刚刚更新了我原来的帖子，以适应你的更新要求。如果答案确实对你有帮助，请让它对你有帮助。我的解决方案对我很有效。这对你来说应该也很好。我真是太感谢你了！！！我也可以看一下原始答案吗。对于Microsoft.Jet.OLEDB.4.0？？？Microsoft.ACE.OLEDB.12.0在32位机器上会有问题吗？如果有帮助，请将我的答案标记为“有用”。