vba导入excel数据到access

下面是使用 VBA 将 Excel 数据导入 Access 的步骤：

1. 打开 Access 数据库并选择要导入数据的表格。

2. 在 Excel 中打开包含要导入的数据的工作簿。

3. 打开 VBA 编辑器并创建一个新的模块。

4. 在模块中编写 VBA 代码，以连接到 Access 数据库并将数据导入表格。

以下是一个基本的 VBA 代码示例：

Sub importData()

Dim objAccess As Object
Dim db As Object
Dim rs As Object
Dim strSQL As String
Dim strFile As String

'设置 Access 数据库文件路径
strFile = "C:\Users\username\Documents\myDatabase.accdb"

'创建一个新的 Access 对象
Set objAccess = CreateObject("Access.Application")

'打开 Access 数据库
objAccess.OpenCurrentDatabase strFile

'设置表格名称
strTable = "myTable"

'创建 SQL 语句
strSQL = "INSERT INTO " & strTable & " (field1, field2, field3) VALUES (?,?,?)"

'设置 Excel 工作簿和工作表
Set wb = ThisWorkbook
Set ws = wb.Worksheets("myWorksheet")

'设置要导入的数据范围
Set rngData = ws.Range("A2:C10")

'循环遍历数据并将其插入到 Access 数据库中
For Each row In rngData.Rows
    Set db = objAccess.CurrentDb
    Set rs = db.OpenRecordset(strSQL)
    rs.AddNew
    rs.Fields("field1").Value = row.Cells(1).Value
    rs.Fields("field2").Value = row.Cells(2).Value
    rs.Fields("field3").Value = row.Cells(3).Value
    rs.Update
    rs.Close
Next row

'关闭 Access 数据库并释放对象
objAccess.CloseCurrentDatabase
Set objAccess = Nothing

End Sub

请注意，此示例仅适用于包含三个字段的表格。如果要导入更多或更少的字段，请相应地更改 SQL 语句和代码。

此外，还需要确保已正确设置数据库路径和工作表名称，并且数据范围正确设置。