VB引用金山的ET(excel)有关问题

VB引用金山的ET(excel)问题。
引用微软的excel代码会写。
引用WPS的et就不会了。


如何能适用两种不同的环境（EXCEL和ET），请大大们指教。



非常感谢。

------解决方案--------------------
On Error Resume Next
Dim xlsApp As Object '定义应用程序对象，采用后期绑定,ET的对象和Excel对象有很大的相似性，可以只用一个对象变量处理
Set xlsApp = CreateObject("ET.Application") '创建ET对象
If xlsApp Is Nothing Then '如果不成功，则创建Excel对象
Set xlsApp = CreateObject("Excel.Application")
If xlsApp Is Nothing Then
MsgBox "出错啦！你的机器没有安装Excel或ET"
Exit Sub
End If
End If

'后期处理,其它工作簿，工作表等对象类似处理
xlsApp.Visible = True
xlsApp.ActiveSheet.....
.....