无法设置对象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")