无法设置对象VBA

时间:2019-06-24 17:00:53

标签: excel vba

我不断得到

  

运行时错误13,键入不匹配。

我有以下代码:

Dim wkbObj As Workbook
Other dims

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

上面的行是发生错误的地方,我不知道为什么。尝试使用不同的版本来设置wkbObj,但会收到类似的错误。

1 个答案:

答案 0 :(得分:2)

我认为您会因为空格而出错,并且我想念一个反斜杠。但是您也可以使用

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

或者如果它已经打开

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