[VBA程序]：关于在Excel中插入AutoCAD对象的问题

xys1995

下面是我在VB中写的代码：
fname="e:\a1.dwg"
Set excelBook = excelApp.Workbooks.Open("e:\test.xls")
Set excelSheet = excelBook.Worksheets("sheet1")
excelSheet.Activate
excelBook.Application.Visible = True
excelSheet.Range("a1", "a2").Select
excelBook.ActiveSheet.OLEObjects.Add(FileName:=fname, Link:=False, _
          DisplayAsIcon:=False).Selec

运行后出现以下错误：

运行时错误：'-2145320900 (8021003c)':
无法获取Document 对象

我装的是AutoCad2005，出现这个问题的原因是因为我在AutoCad2005中加载了一些自己做的应用程序（*.dvb），并加在了启动组里面，如果我卸载掉这些应用程序的话程序不会出错，而且在AutoCad2002中即使我加载了应用程序也没有以上的错误。
各位大哥，这是什么原因啊？我应该怎么解决这个问题？