用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时没有这个问题。 问题点数：20、回复次数：1Top

1 楼hhjjhjhj（大头)(http://office.9zp.com）回复于 2004-09-04 11:59:38 得分 20

fileName="e:\a1.dwg"  
  改成  
  fname="e:\a1.dwg"Top

相关问题

• a1
• autocad
• dwg
• excelbook
• excelsheet
• 错误
• fname
• filename
• set

• 帖主：xys1995
• hhjjhjhj

• Visual Basic类图书
• Visual Basic类源码下载