用vba判断当前系统是32位还是64位

perfect131

系统版本跟 office版本不是一回事

经测试 系统64，office 32 结果为 32 -32 ，很显然这种判断不是很正确


这个可以，参考
https://stackoverflow.com/questi ... is-32-bit-or-64-bit

jiangxiaoyun

benhum 发表于 2023-6-13 15:30
想向大家了解，用32位office还是64位office好些？

64位快些。差别不是很大，除了使用一些api，改改也没啥大问题的。

Yanxi2021

不对，运行代码后给的结果是32位，但是我的电脑，属性下看到的是明明是64位

frl-2005

我的结果也和楼上的一样

sosomc

taller 发表于 2023-6-12 11:03

我的WIN10企业版64位 显示32  office2016 64位有些常量失效了

Lastdoor

benhum 发表于 2023-6-13 15:30
想向大家了解，用32位office还是64位office好些？

日常使用差不太多。
我公司是系统通过ActiveX导到Excel的代码定死了，32能导，64不能导。所以都32了。

benhum

Lastdoor 发表于 2023-6-26 17:38
日常使用差不太多。
我公司是系统通过ActiveX导到Excel的代码定死了，32能导，64不能导。所以都32了。

是的，如果使用VBA，32位仍是主流。

vitrel

我也来凑一下热闹。

我查了一下资料，利用Environ获取系统环境变量，使用“Processor_Architecture”作为参数，
返回的应该处理器的芯片体系结构，参考值为: x86，IA64。（注意，是CPU芯片，并非Win系统）
但奇怪的是，现在的CPU都应是64位的，但返回值却是x86，这点我也不理解。

我自己也摸索出两个判断Win系统是32位还是64位的方法 ，
先声明，以下判断方法仅是利用原理编写，仅在64位的Win上测试通过，
至于运行到32位的Win，能否如实反回“32”，则需网友们进一步测试验证，
测试结果望告知，虚心接受指正。

1. '判断SysWow64目录是否存在，从而判断当前系统的位数
   
2. Sub Test1()
   
3.     MsgBox IIf(Dir(Environ("WINDIR") & "\SysWOW64", vbDirectory) = "", 32, 64) & "位操作系统"
   
4. End Sub
   
5. 
   
6. '判断Program Files目录的名字特点，从而判断当前系统的位数
   
7. Sub Test2()
   
8.     MsgBox IIf(Environ("PROGRAMFILES") Like "*x86*", 64, 32) & "位操作系统"
   
9. End Sub

复制代码

perfect131

vitrel 发表于 2023-6-28 08:49
我也来凑一下热闹。

我查了一下资料，利用Environ获取系统环境变量，使用“Processor_Architecture”作 ...

11 楼

1. Public Function isWin64bit() As Boolean
   
2.     isWin64bit = 0 < Len(Environ("ProgramW6432"))
   
3.     If isWin64bit Then
   
4.         MsgBox "64- bit"
   
5.     Else
   
6.         MsgBox "32- bit"
   
7.     End If
   
8. End Function

复制代码

机智

谢谢分享。真不错