在Access VBA中将变量声明为Excel应用程序会生成错误：未定义用户定义的类型

Question

我有一个Access数据库，并且在Excel工作表中有数据。我需要使用Excel工作表中某些单元格中的数据来更新Access数据库中表中的单元格。

我正在努力与Excel工作簿工作表建立连接。

我正在尝试

Sub test()
Dim xl As Excel.Application
Dim ws As Excel.Worksheet
Dim wb As Excel.Workbook

Set xl = CreateObject("Excel.Application")
Set wb = GetObject("H:/ggg.xls")
Set ws = xlWrkBk.Worksheets(1) 

我得到了错误

  

未定义用户定义的类型

第一行

Dim xl As Excel.Application

我需要添加参考吗？

Answer 1

关于代码，如果要在访问模块中执行此操作，则需要添加对Microsoft Excel对象库的引用（我的版本是12.0，因为我有Excel2007。如果具有更高的版本，则可以使用不同的数字）

此外，您的代码应如下所示：

Dim xl As Excel.Application
Dim ws As Worksheet
Dim wb As Workbook

Set xl = New Excel.Application
Set wb = xl.Workbooks.Open("H:/ggg.xls")
Set ws = wb.Worksheets(1)

希望您可以使其适应您的需求。

Answer 2

尝试添加一组 “将xim作为对象”