如何在Access VBA中引用Excel对象？

为了能够使用 Access 2007 VBA 脚本中的 Excel 对象和常量，我必须做出哪些声明？

Dim wb As Workbook

or

Set objExcelApp = New Excel.Application

or

.Borders(xlEdgeBottom)

我不同意这两个答案。根本不创建引用，而是使用后期绑定：

  Dim objExcelApp As Object
  Dim wb As Object

  Sub Initialize()
    Set objExcelApp = CreateObject("Excel.Application")
  End Sub

  Sub ProcessDataWorkbook()
     Set wb = objExcelApp.Workbooks.Open("path to my workbook")
     Dim ws As Object
     Set ws = wb.Sheets(1)

     ws.Cells(1, 1).Value = "Hello"
     ws.Cells(1, 2).Value = "World"

     'Close the workbook
     wb.Close
     Set wb = Nothing
  End Sub

您会注意到，上面代码中的唯一区别是变量全部声明为对象，并且您使用 CreateObject() 实例化 Excel 实例。

无论安装哪个版本的 Excel，此代码都会运行，而如果安装了不同版本的 Excel，或者安装在不同的位置，则使用引用很容易导致代码中断。

另外，可以将错误处理添加到上面的代码中，以便如果 Excel 实例的初始实例化失败（例如，因为未安装或未正确注册 Excel），您的代码可以继续。使用参考集，如果未安装 Excel，整个 Access 应用程序将失败。