Excel сбои при проверке в неизмененной книге Excel в SharePoint с помощью VBA

Question

Я работаю над проектом, который vba по существу выглядит следующим образом:

if workbooks.canCheckOut(filename) = true then  
    workbooks.CheckOut(filename) 
    set workbookVariable = workboooks.Open(filename) 
else  
    ' Pesudocode: Display error message 
    '    Quit 
end if 

' Pseudocode: Do some stuff with workbookVariable.  
If workbookVariable.saved = false then  
    workbookVariable.save 
end if 

If workbookVariable.canCheckIn then  
    workbookVariable.checkIn 
    Set workbookVariable = Nothing 
else  
    msgbox "Error message goes here", vbCritical 
end if  
' Pseudocode: quit 

(Edit: я был «Если workbookVariable.Saved = True»; что было неправильно. Нет смысла сохранять файл, если он уже сохранен ... Итак, теперь это обновление, чтобы отразить то, что у меня действительно есть.)

Если книга изменена и сохраняется, все работает нормально. Он сохраняет, проверяется обратно в SharePoint, и программа заканчивается нормально.

Однако, если рабочая книга не изменяется, когда она идет на проверку в части программы, происходит сбой, и появляется сообщение об ошибке: «Ошибка автоматизации».

Я даже пытался ставить в команде ожидания после команды checkIn, не повезло ...

Что здесь происходит? Может ли кто-нибудь указать мне в правильном направлении?

Answer 1

Если никаких изменений не было сделано (workbookVariable.saved = true), используйте workbookVariable.CheckIn(False). Вы не хотите, чтобы в CheckIn была такая же версия, как и у оригинала. Отходы пространства, по крайней мере. Это должно отменить вашу «CheckOut». См. MSDN.

Благодаря this page за то, что было очевидно.

Конечная точка любопытства. Почему вы можете проверить книгу, если не можете внести в нее изменения?