vba Excel中的Office版本和操作系统错误

Question

我正在使用Windows 11 在VBA Excel 365中运行此代码

Sub test()
Dim sBuild As String, sOP As String, sVersion As String
sBuild = Application.Build
sOP = Application.OperatingSystem
sVersion = Application.Version
MsgBox "Operating System " & sOP & " with Office version " & sVersion & " Build " & sBuild
End Sub

然而，我收到了这样的信息"；操作系统Windows(64位(NT 10.00与Office版本16.0 Build 15028"；

属性应用程序。版本和应用程序。操作系统显示的结果与我在Excel 2016中运行并使用Windows 10时相同。

有什么建议可以获得真正的Office和Windows版本吗？

谢谢。

Manuel

Answer 1

以上注释中的此链接适用于Office(请查看现代Office中的应用程序版本(。

我将此用于Windows:

Function GetWindowsInfo() As String
Dim oShell As Object
Set oShell = CreateObject("WScript.Shell")
Dim RegKeyProduct As String
RegKeyProduct = "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionProductName"
Dim ProductName As String
ProductName = oShell.RegRead(RegKeyProduct)
Dim VersionBuildNumbers(1 To 4) As Variant
Dim RegKeyMajor As String
RegKeyMajor = "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionCurrentMajorVersionNumber"
VersionBuildNumbers(1) = oShell.RegRead(RegKeyMajor)
Dim RegKeyMinor As String
RegKeyMinor = "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionCurrentMinorVersionNumber"
VersionBuildNumbers(2) = oShell.RegRead(RegKeyMinor)
Dim RegKeyBuild As String
RegKeyBuild = "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionCurrentBuildNumber"
VersionBuildNumbers(3) = oShell.RegRead(RegKeyBuild)
If VersionBuildNumbers(3) >= 22000 Then
ProductName = Replace(ProductName, "10", "11")
End If
Dim RegKeyUBR As String
RegKeyUBR = "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionUBR"
VersionBuildNumbers(4) = oShell.RegRead(RegKeyUBR)
Dim BuildNumber As String
BuildNumber = oShell.RegRead(RegKeyBuild) & "." & oShell.RegRead(RegKeyUBR)
Dim Bitness As String
Bitness = "32-bit"
If Len(Environ("PROGRAMFILES(x86)")) Then Bitness = "64-bit"
GetWindowsInfo = "Microsoft " & ProductName & " (" & Join(VersionBuildNumbers, ".") & ") " & Bitness
End Function