Office中国论坛/Access中国论坛

标题: [源码技巧]判断是否64位Access 64位Excel 64位Office的四种方法(区分32位) [打印本页]
作者: admin    时间: 2014-4-17 11:28
标题: [源码技巧]判断是否64位Access 64位Excel 64位Office的四种方法(区分32位)
[源码技巧]判断是否64位Access 64位Excel 64位Office的四种方法
整理:Office中国 admin

现在使用4G及以上内存的电脑越来越多,64位windows及64位Office也成为大家首选. Access excel office也将迎来64位的转换
如果使你的程序同时适应32位和64位呢,需要在程序中进行判断
Office中国整理了多种方法让你来判断是否32位Office 还是64位Office

一. 检查是否64位Access方法一
  1. Function gf_ChkIs64bit() As Boolean
  2.     gf_ChkIs64bit= Len(Environ("ProgramW6432")) > 0
  3. End Function
复制代码




二.检查是否64位Access/64位Office方法二
  1. Sub gf_Chk64BitOffice()
  2. Dim bIs64Bit As Boolean
  3. #If win64 Then
  4.     bIs64Bit = True
  5. #End If
  6. MsgBox "这是64位Office/Access: " & bIs64Bit
  7. End Sub
复制代码



三. 检查是否64位Excel方法三
  1. Private Function m_IsExcelx64(ExcelApp As Object) As Boolean
  2.     Dim l As Long

  4.     l = -1
  5.     On Error Resume Next
  6.     l = ExcelApp.hInstance
  7.     On Error GoTo 0

  9.     If l = -1 Then
  10.           m_IsExcelx64 = True
  11.     Else
  12.           m_IsExcelx64 = False
  13.     End If
  14. End Function
复制代码



四.检查是否64位Office方法四
  1. Private Function IsOfficex64() As Boolean
  2.         Dim result As Boolean = False

  4.         Dim productKey As String = _application.ProductCode

  6.         If String.Equals("1", productKey.Substring(20, 1), StringComparison.InvariantCulture) Then
  7.           result = True
  8.         End If

  10.         Return result
  11. End Function
复制代码


还有一种更快 更好的方法, 想不想知道, 回复贴子可见






(算法函数_API_系统-相关文章技巧链接)：
Access 或Excel VBA判断当前Office版本是32位Office还是64位Office的四种方法
作者: leonshi    时间: 2014-4-17 11:41
kankan
作者: koutx    时间: 2014-4-17 14:18
隐藏了的应该是好的
作者: remlie    时间: 2014-4-17 14:23
感谢楼主分享
作者: koutx    时间: 2014-4-17 14:23
检查完后怎么处理呢?
作者: zpy2    时间: 2014-6-24 07:08
学习了！
作者: zpy2    时间: 2014-6-24 07:11
第2种方法，条件编译可以写32位和64位兼容的vBA，不错的！！！
作者: 星辉    时间: 2015-3-10 11:04
看来64位系统还是带来了不少问题啊.
作者: wgboy    时间: 2015-5-13 19:13
我要最后一种方法
作者: loving_yyw    时间: 2015-7-15 09:15
学习！
作者: 花都是否    时间: 2015-7-18 21:17
啊啊啊，继续急需，泄愤
作者: lxjii    时间: 2015-8-12 14:09
还有更好的咩
作者: 123456111    时间: 2015-12-10 15:51
aaaa
作者: 3010318975    时间: 2016-1-18 10:08
123
作者: purplerose    时间: 2016-3-4 15:28
想知道呀，中国 还藏着一手呀
作者: purplerose    时间: 2016-3-4 15:29
啊，原来是这种方法呀 ，唉  OFFICE中国  XUE HUAI LE
作者: frostywolf    时间: 2016-3-5 19:26
想学习，看看
作者: 534732550    时间: 2016-3-19 11:56
作者: goldowl    时间: 2016-4-29 14:58
Thanks a lot.Good codes.
作者: caxtest    时间: 2016-5-3 16:25
学习学习，谢谢！
作者: svboy    时间: 2016-5-25 19:46
谢谢分享!!!!
作者: 阿库    时间: 2016-6-12 18:19
学习一下
作者: 764300778    时间: 2016-6-12 23:08
EEEE
作者: xiehuailian    时间: 2016-6-26 16:29
需要。看看
作者: access新新新手    时间: 2016-7-26 08:11
谢谢分享
作者: liucq    时间: 2016-10-11 22:14
支持一下，过来看看
作者: 570308456@qq.co    时间: 2016-11-22 22:51
11111
作者: hanzhuang123    时间: 2016-12-30 16:06
good luck ,楼主
作者: 2402264648    时间: 2017-2-20 22:43
看看
作者: yyalm    时间: 2017-2-22 08:51
感谢分享
作者: YXH_YXH    时间: 2017-4-16 23:15
多谢分享！！！！！！
作者: zxclen    时间: 2017-4-25 11:57
SEEEEEEEEEE
作者: fan13826031454    时间: 2017-5-8 15:27
继续使用
作者: tjhxm@163.com    时间: 2017-5-22 10:20
作者: wangjm    时间: 2017-6-15 12:27
燃眉之急啊
作者: yz_zax    时间: 2017-11-9 09:06

隐藏了的应该是好的
作者: xuwenning    时间: 2017-11-9 09:22
学习，学习
作者: yuanxing2016    时间: 2017-11-9 14:20
感谢分享。。。



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3