判断64位还是32位office

andysky

Sub test()
Dim abc
On Error Resume Next
abc = Application.Hinstance
If Err.Number = 0 Then MsgBox "32位office" Else MsgBox "64位office"
End Sub

Hinstance只在 32 位版 Excel 中返回正确的句柄,所以当装了64位的office时，代码一定会出错。
判断代码有没有出错就知道是不是64位的了。

LittleBird2006

学习了，多谢分享。。

microyip

支持一下版主的分享

AnjinYim

学习了，多谢分享。。

ggmmlol

1. Function IsWin64() As Boolean
   
2.     #If Win64 Then
   
3.         IsWin64 = True
   
4.     #End If
   
5. End Function
   
6. Sub test()
   
7.     MsgBox IIf(IsWin64, "", "不") & "是64位Office！"
   
8. End Sub

复制代码

lss001

方法A→
Sub PDXTA()
    If "%PROCESSOR_ARCHITECTURE%" = "x86" Then MsgBox "32位系统" Else MsgBox "64位系统"
End Sub
方法B→
Sub PDXTB()
    Set MyFile = CreateObject("Scripting.FileSystemObject")
    If MyFile.FileExists("C:\Windows\SysWOW64") Then MsgBox "64位系统" Else MsgBox "32位系统"
End Sub


补充内容 (2019-12-19 21:50):
Sub kk()
    Dim sText As String
    sText = Environ("PROCESSOR_ARCHITECTURE")
    If sText Like "*64" Then
        MsgBox "当前使用的是64位office"
    Else
         MsgBox "当前使用的是32位office"
    End If
End Sub

774115495

好low的代码

andysky

lss001 发表于 2018-12-12 14:45
方法A→
Sub PDXTA()
    If "%PROCESSOR_ARCHITECTURE%" = "x86" Then MsgBox "32位系统" Else MsgBox " ...

看错了吧
一楼讲的office的位数  ，不是操作系数统的位数。
64位操作系数可以装32位的office

lss001

兼容问题？

andysky

lss001 发表于 2018-12-12 18:11
兼容问题？

开发office插件通常与操作系统没什么关系
与office是多少位的关系很大