[VBA]CAD VBA访问Excel出错！

macula

如下程序：

Sub OutEx() 

  Dim Ex As Excel.Application
  Dim ExWorkBook As Workbook
  Dim ExSheet As Worksheet
       
  On Error Resume Next
 
  Set Ex = GetObject(, "Excel.Application")
 
  If Err <> 0 Then
    Err.Clear
    Set Ex = CreateObject("Excel.Application")
    If Err <> 0 Then
      Err.Clear
      MsgBox "建立Excel应用出错！"
      Exit Sub
    End If
  End If
  
  Set ExWorkBook = Ex.Workbooks.Add  
  Set ExSheet = ExWorkBook.ActiveSheet  
  Ex.Visible = True

End Sub

执行到红色部分，出现以下错误：

运行时错误“91”：

对象变量或With块变量未设置

 

程序已经引用了Microsoft Excel 11.0 Object Library

大家帮忙解决以下呀！分析下什么问题？

dfgs

改为

Dim Ex As [U]new[/U]  Excel.Application

试试

macula

改了就没问题了！

 

为什么会出现这种问题？应该这样写也是没有错的吧！

wmz

红色部分这样写:

   Ex.Workbooks.Add
   Ex.Worksheets.Add
   Ex.Visible = True

macula

4楼的写法，依然的到同样的错误！

wmz

第一,要加引用;

第二,用不着那么复杂:

sub Exut()

   Dim Ex As New Excel.Application

     Ex.Workbooks.Add
     Ex.Worksheets.Add
     Ex.Visible = True

end sub

搞定!