如何在Microsoft Access中打开指定Excel工作簿并集成数据写入功能

错误原因说明 #

• user defined type not defined：Access默认未关联Excel对象库，无法识别Workbook这类Excel专属对象类型。
• variable not defined：直接调用Workbooks.Open时，Access不知道Workbooks属于Excel应用对象，必须先创建Excel实例才能调用其方法。

两种可行解决方法 #

方法1：前期绑定（需引用Excel对象库，代码提示更友好） #

1. 打开Access VBA编辑器（按Alt+F11），点击菜单栏工具→引用，勾选Microsoft Excel xx.x Object Library（xx.x对应你的Excel版本，比如16.0对应Office 2016/365）。
2. 编写如下Sub过程：

Sub PasteDataToExcel()
    Dim xlApp As Excel.Application
    Dim xlWB As Excel.Workbook
    Dim xlWS As Excel.Worksheet
    Dim excelFilePath As String
    
    ' 注意：原路径需补全反斜杠，修正为正确格式
    excelFilePath = "C:\Users\abcdef\Desktop\KDNR.xlsx"
    
    ' 创建Excel应用实例，设置为不可见（如需显示窗口，改为True）
    Set xlApp = New Excel.Application
    xlApp.Visible = False
    
    ' 打开目标工作簿
    Set xlWB = xlApp.Workbooks.Open(excelFilePath)
    ' 指定要粘贴数据的工作表（可根据实际修改为你的表名）
    Set xlWS = xlWB.Worksheets("Sheet1")
    
    ' 将剪贴板数据粘贴到指定单元格（示例为A1起始位置）
    xlWS.Range("A1").PasteSpecial Paste:=xlPasteAll ' 若只需粘贴值，改为xlPasteValues
    
    ' 保存并关闭工作簿
    xlWB.Save
    xlWB.Close
    
    ' 退出Excel并释放对象资源
    xlApp.Quit
    Set xlWS = Nothing
    Set xlWB = Nothing
    Set xlApp = Nothing
End Sub

方法2：后期绑定（无需引用，兼容不同Excel版本） #

不需要手动添加对象库引用，用通用Object类型代替Excel专属类型，代码如下：

Sub PasteDataToExcel_LateBinding()
    Dim xlApp As Object
    Dim xlWB As Object
    Dim xlWS As Object
    Dim excelFilePath As String
    
    excelFilePath = "C:\Users\abcdef\Desktop\KDNR.xlsx"
    
    ' 创建Excel应用实例
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False
    
    ' 打开目标工作簿
    Set xlWB = xlApp.Workbooks.Open(excelFilePath)
    Set xlWS = xlWB.Worksheets("Sheet1")
    
    ' 后期绑定需用常量数值替代Excel枚举值（-4104对应xlPasteAll，-4163对应xlPasteValues）
    xlWS.Range("A1").PasteSpecial Paste:=-4104
    
    ' 保存关闭并释放资源
    xlWB.Save
    xlWB.Close
    
    xlApp.Quit
    Set xlWS = Nothing
    Set xlWB = Nothing
    Set xlApp = Nothing
End Sub

关键注意事项 #

• 确保Excel文件路径正确，原路径中Desktop KDNR.xlsx缺少反斜杠，需修正为Desktop\KDNR.xlsx。
• 执行粘贴前，确认剪贴板中存在有效复制的数据。
• 若目标Excel文件被占用或设为只读，Workbooks.Open会报错，可添加On Error语句处理异常。

内容的提问来源于stack exchange，提问作者apor