Объявление переменной как приложения Excel в Access VBA приводит к ошибке: пользовательский тип не определен

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"