DocumentLibraryVersions

Question

Следующий код работал, но что-то случилось, и теперь он зависает на

Set DocVersions=Activeworkbook.DocumentLibraryVersions

Я даже пробовал простые сабвуферы, которые содержат только строки Dim и Set, и он просто зависает.Я также попытался удалить ссылку на библиотеку объектов Microsoft Office 16.0.

Даже не уверен, что еще попробовать

Sub getVersions()

Dim DocVersions As DocumentLibraryVersions
Dim DVersion As DocumentLibraryVersion
Dim clipobj As New DataObject
Dim clipdata As String
Dim i As Integer

Set DocVersions = ActiveWorkbook.DocumentLibraryVersions
i = DocVersions.Count
For Each DVersion In DocVersions
i = i - 1
Debug.Print i
clipdata = clipdata & DVersion.Index & vbTab & _
DVersion.Modified & vbTab & _
DVersion.ModifiedBy & vbTab & _
DVersion.Comments & vbCr

    Debug.Print "index " & DVersion.Index
    Debug.Print "comment " & DVersion.Comments
    'Debug.Print "creator " & DVersion.Creator
    Debug.Print "Modified Date " & DVersion.Modified
    Debug.Print "Modified By " & DVersion.ModifiedBy
   ' Debug.Print "application " & DVersion.Application

Next

Set DocVersions = Nothing
Set DVersion = Nothing


clipobj.SetText clipdata
clipobj.PutInClipboard

MsgBox "Version Info Placed on Clipboard"

End Sub

Answer 1

У меня была точно такая же проблема, когда следующее зависало: Set DocVersions = Activeworkbook.DocumentLibraryVersions

После первой проверки файла и повторной регистрации, затем кодапродолжается, как ожидалось, и больше не зависает в этой точке.