vba - 使用 VBA 查找 MS Office 修订版和构建版本

Question

主要和次要版本可以使用 Application.Version 找到办公应用程序。 .

返回示例:

15.0 = Office 2013
12.0 = Office 2007

我需要 修订和构建版本 办公室应用程序，例如:

Microsoft Office PowerPoint 2007 原版: major.minor: 12.0 revision.build: 4518.1014
Microsoft Office PowerPoint 2007 SP2: major.minor: 12.0 revision.build: 6425.1000
问题 : 有没有办法找到 修订和构建版本 办公应用程序， 使用 VBA ?

问题更新 :我这边的命名约定错误 - 寻找办公应用程序的修订和构建版本，而不是次要版本。

Answer 1

VBA 没有直接执行此操作的函数，您必须编写一个函数来执行此操作:

Public Sub test()
    Dim version As String
    Dim chkref As Object

    ' List of references
    For Each chkref In ThisWorkbook.VBProject.References
        version = RetrieveDllVersion(chkref.fullpath)
        major = RetrievePart(version, 0)
        majorup = RetrievePart(version, 1)
        minor = RetrievePart(version, 2)
        minorup = RetrievePart(version, 3)

        MsgBox chkref.Name & " : " & major & "." & majorup & "." & minor & "." & minorup
    Next
End Sub

Private Function RetrieveDllVersion(ByVal dll As String) As String
  Dim fso As Object 'Scripting.FileSystemObject
  Set fso = CreateObject("Scripting.FileSystemObject")
  RetrieveDllVersion = fso.GetFileVersion(dll)
End Function

Private Function RetrievePart(ByVal version As String, ByVal pos As Integer) As String
    RetrievePart = Split(version, ".")(pos)
End Function

在 chkref.name 上过滤 Excel/Office/Word