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

Question

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

Dim wb As Workbook

或者

Set objExcelApp = New Excel.Application

或者

.Borders(xlEdgeBottom)

Answer 1

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

  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 应用程序将失败。