Как открыть конкретную базу данных доступа с помощью Application.ActivateMicrosoftApp xlMicrosoftAccess

Question

Я пытаюсь использовать код TransferSpreadsheet для импорта листа Excel в Access.

Код работает, если Access (и таблица) открыты. Я хочу активировать приложение напрямую из Excel и импортировать его позже.

Чтобы открыть приложение, у меня есть:

Application.ActivateMicrosoftApp xlMicrosoftAccess

Эта команда открывает приложение, но мне нужно было бы открыть непосредственно определенную базу данных Access с таблицей, в которую я хочу импортировать.

Answer 1

Dim a As Access.Application   ' Add Access reference

Application.ActivateMicrosoftApp (xlMicrosoftAccess)
Set a = GetObject(, "Access.Application")

Этот код делает то, что вам нужно, но с помощью getObject получает объект имени класса, если он передан объекту, в этом случае a типа access.application

Помните, что это только открытие приложения, вам необходимо открыть соответствующую базу данных в приложении Access, прежде чем продолжить.