用VBA写一段入库保存的代码

以下是一个简单的 VBA 代码示例，用于将 Excel 表格中的数据保存到 Access 数据库中：

Sub SaveToAccess()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim i As Integer, j As Integer
    
    ' 打开 Access 数据库
    Set db = OpenDatabase("C:\Users\UserName\Documents\Database.accdb")
    
    ' 打开表格
    Set rs = db.OpenRecordset("Table1", dbOpenDynaset)
    
    ' 遍历 Excel 表格中的数据
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        ' 添加一条新记录
        rs.AddNew
        
        ' 将数据保存到 Access 数据库中
        For j = 1 To 3
            rs(j - 1) = Cells(i, j)
        Next j
        
        ' 保存记录
        rs.Update
    Next i
    
    ' 关闭记录集和数据库
    rs.Close
    db.Close
    
    ' 释放对象
    Set rs = Nothing
    Set db = Nothing
    
    MsgBox "数据已成功保存到 Access 数据库中。"
End Sub

以上代码假设你要将 Excel 表格中的第 1 列至第 3 列的数据保存到名为 `Table1` 的 Access 数据库表格中。你需要将代码中的文件路径和表格名字修改为你自己的。