vba判断系统版本

1. excel vba 不同版本执行不了的问题

【不正确】是个什么情况呢？
如果是报错，请拷屏两个图，一是报错后拷屏，二是点【调试】按钮后拷屏。
如果是1+1计算结果不为2，请拷屏
版本之间的不兼容是小概率事件，一般人遇不到的，不容易获得经验，需要具体情况仔细分析和调试。

2. Excel 在VBA中怎样判断操作系统

Sub ExcelVersion()

verarr = Array("8.0", "9.0", "10.0", "11.0", "12.0", "14.0")

vername = Array("97", "2000", "2002", "2003", "2007", "2010")

For i = 1 To 6

If verarr(i - 1) = Application.Version Then

MsgBox "当前Excel版本为：Excel " & vername(i - 1)

Exit For

End If

Next i

End Sub

3. VBA如何针对不同版本的OFFICE进行引用

你提到的2个方法我觉得都不可行，因为VBE里代码运行跟应用程序的代码运行不是一回事，一个是在代码编辑时的，一个是在应用程序运行时的。

提供另一个思路，你可以试试，找到你自己编制的代码中，使用到的不同object library库文件版本的函数或引用常数，直接改为自己重写的函数或者常数。避免去调用系统库文件里的内容，然后就可以不依赖库文件运行了。既然不依赖任何库文件，意味着也无需去管理不同电脑上的库文件的版本了。

简单点说就是编程过程中尽量用各版本库文件都通用的那些函数或者常数，不要用个别版本不支持的。那么你的代码通用性就有保障。

4. excel vba使用sql时，提示 运行时错误 -2147467259(80004005) 自动化(Automation)错误

可能只是 Sheet1 这个表名 不存在，

要不然就是版本 问题了， 2007 可能版本有点低，你好像写的 Excel12.0

5. EXCEL中自带的VBA和VB有什么区别

EXCEL中自带的VBA和VB区别为：性质不同、运行依赖性不同、独立性不同。

一、性质不同

1、VBA：VBA是VB的一个子集，是使已有的应用程序(EXCEL)自动化。

2、VB：VB是设计用于创建应用程序(EXCEL)标准的应用程序。

二、运行依赖性不同

1、VBA：运行VBA开发的程序必须依赖于它的父应用程序。

2、VB：运行VB开发的应用程序，用户不必安装VB，因为VB开发出的应用程序是可执行文件。

三、独立性不同

1、VBA：VBA独立性差，必须寄生于已有的应用程序。

2、VB：VB独立性强，具有自己的开发环境。

6. vba 与系统兼容问题

改成ColorIndex试试。

t.font.colorindex=3

具体索引值对照见下图：

7. VBA获得软件版本号

'VB Environ系统环境变量函数大全：

PublicSubGet_Environ()
Debug.PrintEnviron("Windir")'c:windowsWindows目录
Debug.PrintEnviron("ProgramFiles")'c:ProgramFiles应用程序文件夹
Debug.PrintEnviron("UserProfile")'C:用户配置文件目录
Debug.PrintEnviron("ALLUSERSPROFILE")'局部返回所有“用户配置文件”的位置。
Debug.PrintEnviron("APPDATA")'局部返回默认情况下应用程序存储数据的位置。
Debug.PrintEnviron("COMPUTERNAME")'系统返回计算机的名称。
Debug.PrintEnviron("COMSPEC")'系统返回命令行解释器可执行程序的准确路径。
Debug.PrintEnviron("HOMEDRIVE")'系统返回连接到用户主目录的本地工作站驱动器号。基于主目录值的设置。用户主目录是在“本地用户和组”中指定的。
Debug.PrintEnviron("HOMEPATH")'系统返回用户主目录的完整路径。基于主目录值的设置。用户主目录是在“本地用户和组”中指定的。
Debug.PrintEnviron("NUMBER_OF_PROCESSORS")'系统指定安装在计算机上的处理器的数目。
Debug.PrintEnviron("OS")'系统返回操作系统的名称。Windows2000将操作系统显示为Windows_NT。
Debug.PrintEnviron("PATH")'系统指定可执行文件的搜索路径。
Debug.PrintEnviron("PATHEXT")'系统返回操作系统认为可执行的文件扩展名的列表。
Debug.PrintEnviron("PROCESSOR_ARCHITECTURE")'系统返回处理器的芯片体系结构。值:x86，IA64。
Debug.PrintEnviron("PROCESSOR_LEVEL")'系统返回计算机上安装的处理器的型号。
Debug.PrintEnviron("PROCESSOR_LEVEL")'系统返回处理器的版本号。
Debug.PrintEnviron("SYSTEMDRIVE")'系统返回包含WindowsXP根目录（即系统根目录）的驱动器。
Debug.PrintEnviron("SYSTEMROOT")'系统返回WindowsXP根目录的位置。
Debug.PrintEnviron("TEMP")'and%TMP")'系统和用户返回对当前登录用户可用的应用程序所使用的默认临时目录。有些应用程序需要TEMP，而其它应用程序则需要TMP。
Debug.PrintEnviron("USERDOMAIN")'局部返回包含用户帐户的域的名称。
Debug.PrintEnviron("USERNAME")'局部返回当前登录的用户的名称。
EndSub