Office中国论坛/Access中国论坛

标题: 技巧分享：兼容不同OFFICE平台一例 [打印本页]

作者: huanghai 时间: 2003-5-18 01:12
标题: 技巧分享：兼容不同OFFICE平台一例

这个技巧是在看别人程序总结出来的，如果大家有好的方案请帖上来来一起分享。

一般在使用操作EXCEL或者WORD这样的OFFICE对象时得先引用对应库，但是有一个问题
就是版本问题，如果是OFFICE2000，对应的库版本为9，如时是OFFICE XP，版本则是10
引用的库名称也就不一样，这样会造成不台版本平台的经常出现引用库找不到的现象，
而如果直接把变量声明成OBJECT，就不会出现这样的问题。

Dim xlsApp As Object
Dim objWorkbook As Object
Set xlsApp = CreateObject("excel.application") ，使用创建对象的方式，而不是NEW
'Set xlsApp = New excel.Application '如果使用NEW关键字创建EXCEL对象必须引用库
xlsApp.Visible = True
Set objWorkbook = xlsApp.workbooks.Add
objWorkbook.worksheets("sheet1").cells(1, 1) = "标题"

作者: ui 时间: 2003-5-18 01:29
不过编程时,无法获得对象属性了

作者: huanghai 时间: 2003-5-18 01:52
省事的方法可以先引用，然后写好程序再去掉引用，把代码简单一改，方便吧。

作者: zhuyiwen 时间: 2003-5-19 17:30
应加错误处理语句！因为，当对象创建错误时，程序会报错（也就是说可能没有安装该程序，此法也可用来判断某种组件是否安装，呵呵）。

[em24]

作者: huanghai 时间: 2003-6-5 19:24
是的,哈哈

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)