4.1.3 单击“确定”按钮；
4.1.4 接下来使用下列代码可创建完整的应用程序对象实例：
Dim Excel As Excel.Application
'激活要与之通信的Excel应用程序
On Error Resume Next
Set Excel = GetObject(, "Excel.Application")
If Err
