我不断得到
运行时错误13,键入不匹配。
我有以下代码:
Dim wkbObj As Workbook
Other dims
Set wkbObj = GetObject(This Workbook.Path & "Contacts_SF. xlsx")
上面的行是发生错误的地方,我不知道为什么。尝试使用不同的版本来设置wkbObj
,但会收到类似的错误。
答案 0 :(得分:2)
我认为您会因为空格而出错,并且我想念一个反斜杠。但是您也可以使用
Set wkbObj = Application.Workbooks.Open(Thisworkbook.Path & "\Contacts_SF.xlsx")
或者如果它已经打开
Set wkbObj = Application.Workbooks("Contacts_SF.xlsx")