VBA 将 Excel 表导入 Access 指定表方法教程

要使用 VBA 将 Excel 表导入到 MDB（Microsoft Access 数据库）的指定表中，你可以按照以下方法进行操作：

打开 Microsoft Access：打开 MDB 文件并进入数据库，确保你具有足够的权限可以导入数据。
打开 Visual Basic Editor（VBE）：在 Excel 中按下 ALT+F11 或通过开发工具选项卡中的“Visual Basic”按钮打开 VBE。
添加对 Microsoft Office 类型库的引用：在 VBE 中，选择“工具” -> “引用”，在弹出的对话框中找到并勾选“Microsoft Office x.x Object Library”（其中 x.x 是你所使用的 Office 版本），然后点击“确定”。
编写 VBA 代码：在 VBE 中，插入一个新的模块，并在模块中编写下面的 VBA 代码：

Sub ImportDataToAccess()
    Dim objAccess As Object
    Dim objDB As Object
    Dim strDBPath As String
    Dim strTableName As String
    
    ' 设置 Access 数据库路径和表名
    strDBPath = 'C:\Your\Database.mdb'  ' 替换为你的 MDB 文件路径
    strTableName = 'YourTableName'  ' 替换为你的目标表名
    
    ' 创建 Access.Application 对象
    Set objAccess = CreateObject("Access.Application")
    
    ' 打开 Access 数据库
    objAccess.OpenCurrentDatabase strDBPath
    
    ' 获取数据库对象
    Set objDB = objAccess.CurrentDb
    
    ' 清空目标表中的数据
    objDB.Execute "DELETE FROM " & strTableName
    
    ' 导入 Excel 数据到目标表
    objDB.Execute "INSERT INTO " & strTableName & " SELECT * FROM [Sheet1$A1:E100]"  ' 替换为你的工作表名和数据范围
    
    ' 关闭数据库和 Access
    objDB.Close
    objAccess.Quit
    
    ' 释放对象
    Set objDB = Nothing
    Set objAccess = Nothing
    
    MsgBox "数据导入完成！"
End Sub

请根据你的实际情况修改代码中的 MDB 文件路径、目标表名和数据范围，以及其他相关设置。

运行 VBA 代码：在 VBE 中按下 F5 或点击“运行”选项卡中的“运行子过程”按钮来运行代码。代码会自动打开 Access 数据库并将 Excel 数据导入到指定的表中。

请确保在运行代码之前已经保存了 Excel 文件和关闭了任何可能与数据库冲突的应用程序。

这是使用 VBA 将 Excel 表导入到 MDB 的一种方法。根据你的具体需求，你可能需要调整和完善代码。