技巧分享：兼容不同OFFICE平台一例

huanghai

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

一般在使用操作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

不过编程时,无法获得对象属性了

huanghai

省事的方法可以先引用，然后写好程序再去掉引用，把代码简单一改，方便吧。

zhuyiwen

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

[em24]

huanghai

是的,哈哈