Невозможно установить объект VBA

Question

Я продолжаю получать

ошибка времени выполнения 13, несоответствие типов.

У меня есть следующий код:

Dim wkbObj As Workbook
Other dims

Set wkbObj = GetObject(This Workbook.Path & "Contacts_SF. xlsx")

В приведенной выше строке происходит ошибка, и я не могу понять, почему. Пробовал разные варианты, чтобы установить wkbObj, но получаю похожие ошибки.

Answer 1

Я думаю, что вы получаете ошибку из-за пробелов, и я думаю, что вы пропустите обратную косую черту.Но вы также можете использовать

Set wkbObj = Application.Workbooks.Open(Thisworkbook.Path & "\Contacts_SF.xlsx")

или, если он уже открыт

Set wkbObj = Application.Workbooks("Contacts_SF.xlsx")