A = Str(MaxcounterBOM - 7) '须要处理的数据 B = Str(BiJiaoShuMu) '找到多少条匹配的数据？ C = Str(RunTime) '运行了多长的时间？ 我想应该是库的问题吧，但我不知如何处理，，在OFFICE XP上的EXCEL库是Excel9,而OFFICE 2003上采用的是Excel11..
不要引用，使用后期绑定 Set xlApp = CreateObject("Excel.Application")
問題已經搞定了，，真的是很奇怪，，我僅僅是把這幾個引用去掉就沒有問題了： explorer ActiveX Control Windows Media Player OLE automation Microsoft Office 11.0 Object Library我把它們前面的勾勾去掉就沒有問題了，，呵呵，希望高人進來解釋一下，到底是爲什麽呢？
俺猜一下啊！ Microsoft Office 11.0 Object Library 主要问题可能出现在上面那个里面，你既然createobject对象就不再需要加入引用了，而如果你机器内部存在或者以前有不同版本的OFFICE，添加引用会让系统无法识别LIB库，所以去掉就OK了 类似于此种问题解决方案，在定义某变量时尽量采用 dim 变量名 as 库.类,反正我是这样解决的，遇到类似于OFFICE的情况取消引用，采用createobject这样即使在系统中安装的版本不同也可运行此程序，只不过由于版本问题某些功能不能实现而已。
B = Str(BiJiaoShuMu) '找到多少条匹配的数据？
C = Str(RunTime) '运行了多长的时间？
我想应该是库的问题吧，但我不知如何处理，，在OFFICE XP上的EXCEL库是Excel9,而OFFICE 2003上采用的是Excel11..
Set xlApp = CreateObject("Excel.Application")
Windows Media Player
OLE automation
Microsoft Office 11.0 Object Library我把它們前面的勾勾去掉就沒有問題了，，呵呵，希望高人進來解釋一下，到底是爲什麽呢？
Microsoft Office 11.0 Object Library
主要问题可能出现在上面那个里面，你既然createobject对象就不再需要加入引用了，而如果你机器内部存在或者以前有不同版本的OFFICE，添加引用会让系统无法识别LIB库，所以去掉就OK了
类似于此种问题解决方案，在定义某变量时尽量采用 dim 变量名 as 库.类,反正我是这样解决的，遇到类似于OFFICE的情况取消引用，采用createobject这样即使在系统中安装的版本不同也可运行此程序，只不过由于版本问题某些功能不能实现而已。