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