在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

尝试通过“Dim xl As Object”添加一个集合

Answer 2

关于你的代码，如果你在访问模块中这样做，你需要添加一个对Microsoft Excel对象库的引用（我的是12.0，因为我有Excel 2007.如果你有更高的版本，它可以是不同的数字）

此外，您的代码应该是这样的：

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)

希望您能够根据您的需求进行调整。