安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access 或Excel VBA判断当前Office版本是32位Office还是64位Office的四种方法

2014-04-17 11:28:24
admin-Office交流网
原创
6231
Access 或Excel VBA判断当前Office版本是32位Office还是64位Office的四种方法
整理:Office交流网 admin


以下 方法同时适应于Access 以及 Exccel VBA

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

Office交流网整理了多种方法让你来判断是否32位Office 还是64位Office


如果需要判断 windows 版本是 32位或64位,可参?#23478;?#19979;这篇文章:

http://www.dvzne.live/access-function/144.html


一. 检查是否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

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

  7.     If l = -1 Then
  8.           m_IsExcelx64 = True
  9.     Else
  10.           m_IsExcelx64 = False
  11.     End If
  12. End Function

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

  3.         Dim productKey As String = _application.ProductCode

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

  7.         Return result
  8. End Function

还有一种更快 更好的方法, 想不想知道:)
直接打开Office access excel ,在帮助关于里看看是否64位:)  哈哈,看到这个内容的人估计都上当了



分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
内存占用:7.75MB
PHP 执行时间:0.23
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
怎么看老时时彩后组三 切尔西vs阿森纳胜负平 古墓宝藏在线客服 冠军足球经理2019 快三开奖助手 皇家贝蒂斯对阵皇家社会 塔什干火车头外援 山东11选5计划群 水果大战少儿游戏 dnf剑鬼