在 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，因為我有 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)

希望您可以根據自己的需要進行調整。

Answer 2

嘗試通過“Dim xl As Object”添加一組