Похоже, Workbooks.CanCheckIn(docCheckIn) = True
это проблема. Чего ты пытаешься достичь? Что такое CanCheckIn
?
/ редактирование:
Workbooks(docCheckIn).CanCheckIn
будет работать, но docCheckIn
должно быть именем книги, а не полным путем. В качестве альтернативы установите книгу в качестве объекта, используя путь docCheckIn
и используйте WbObj.CanCheckIn
/ edit2:
имейте в виду, что Workbooks.checkin docCheckIn
нужно будет изменить таким же образом на Workbooks("workbookname.xls").checkin
или WbObj.checkin
Чтобы установить объект рабочей книги:
Set WbObj = Workbooks("workbookname.xls") 'if it's open
Set WbObj = Workbooks.Open(docCheckIn) 'if it isn't open