求助版主：cad中无法启动excel？？？

ebigsong

我想在cad中写个从excel中导入材料表的vba程序
我用以下程序建立了cad和Excel的连接，并根据命令行输入的路径打开材料表所在的Excel文件
但我运行后，发现cad无法启动Excel，即使将ExcelApp.visible改为true，也不行。（我从vb中则可以启动cab），如果运行时Excel已经启动，则读数据正常，如果Excel尚未启动，则数据不对。

我想问：为什么在的cad中没法启动Excel，为什么不起动Excel也可以建立联系，为什么本例中，非要启动Excel才能正确读数据？？（运行环境win2k，cad2002，excel2000）

code：
Dim ExcelApp As Excel.Application
On Error Resume Next
Set ExcelApp = GetObject(, "Excel.Application")
If Err <> 0 Then
Set ExcelApp = CreateObject("Excel.Applicationn")
End If

Dim FilePath As String
Dim Objxcel As Workbook
FilePath = ThisDrawing.Utility.GetString(1, "请输入Excel表格所在路径:")
Set ObjExcel = ExcelApp.Workbooks.Open(FilePath)
ObjExcel.Activate

Dim ExcelData As Double
ExcelApp.Range("A1").Select
ExcelData = ExcelApp.ActiveCell.Value
……

efan2000

1、Set ExcelApp = CreateObject("Excel.Applicationn")，其中的Application多了一个n。
2、声明时使用Objxcel，而赋值时则为ObjExcel。
由于使用On Error Resume Next，发生错误时，会屏蔽错误，即产生错误时后面的语句也继续执行，但已经不是按原来的想法了。所以在调试时，暂时要关闭它，而改为手动单步调试。

ebigsong