excel - 文档库版本

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

当以下挂断过程时，我遇到了完全相同的问题:
设置 DocVersions=Activeworkbook.DocumentLibraryVersions

第一次 checkout 文件并再次 checkin 后，代码按预期继续运行，此时不再挂起。