用VB控制，在EXCEL中粘贴 AutoCad 图形出错！


以下是关键代码：
fileName="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，以前装AutoCad2002时没有这个问题。