The 主要版本和次要版本可以使用 Office 应用程序找到Application.Version
.
返回示例:
15.0 = Office 2013
12.0 = Office 2007
我需要修订版和构建版本Office 应用程序的示例:
微软 Office PowerPoint 2007 原文:major.minor: 12.0
revision.build: 4518.1014
微软 Office PowerPoint 2007 SP2:major.minor: 12.0
revision.build: 6425.1000
Question: 有没有办法找到修订版和构建版本一个办公应用程序,使用VBA?
问题已更新:我这边的命名约定错误 - 寻找 Office 应用程序的修订版和构建版本,而不是次要版本。
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
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)