用vba判断当前的office软件是32位还是64位

上文介绍的是手动查看office软件是32位还是64位,如果要在vba中判断当前使用的office软件是32位还是64位,可以使用如下的最简单的代码判断:

Sub QQ1722187970()
    Dim sText As String
    sText = Environ("PROCESSOR_ARCHITECTURE")
    Debug.Print sText
    If sText Like "*64*" Then
        MsgBox "当前使用的是64位office"
    ElseIf sText Like "*86*" Then
         MsgBox "当前使用的是32位office"
    End If
End Sub

其中

Environ(“PROCESSOR_ARCHITECTURE”)

返回的是当前的代码所在的软件的位数,这个是关键,它返回的并不是操作系统的位数。

 

    原文作者:yueliang2100
    原文地址: https://blog.csdn.net/yueliang2100/article/details/103238278
    本文转自网络文章,转载此文章仅为分享知识,如有侵权,请联系博主进行删除。
点赞