[VBA]CAD VBA访问Excel出错！
<P>如下程序：</P><P>Sub OutEx() </P>
<P> Dim Ex As Excel.Application<BR> Dim ExWorkBook As Workbook<BR> Dim ExSheet As Worksheet<BR> <BR> On Error Resume Next<BR> <BR> Set Ex = GetObject(, "Excel.Application")<BR> <BR> If Err <> 0 Then<BR> Err.Clear<BR> Set Ex = CreateObject("Excel.Application")<BR> If Err <> 0 Then<BR> Err.Clear<BR> MsgBox "建立Excel应用出错！"<BR> Exit Sub<BR> End If<BR> End If<BR> <BR> <FONT color=#ff0000> Set ExWorkBook = Ex.Workbooks.Add <BR> Set ExSheet = ExWorkBook.ActiveSheet <BR> Ex.Visible = True</FONT></P>
<P>End Sub</P>
<P>执行到红色部分，出现以下错误：</P>
<P><FONT color=#0000ff>运行时错误“91”：</FONT></P>
<P><FONT color=#0000ff>对象变量或With块变量未设置</FONT></P>
<P><FONT color=#0000ff></FONT> </P>
<P>程序已经引用了Microsoft Excel 11.0 Object Library</P>
<P>大家帮忙解决以下呀！分析下什么问题？</P> <P>改为</P>
<P>Dim Ex As new Excel.Application</P>
<P>试试</P> <P>改了就没问题了！</P>
<P> </P>
<P>为什么会出现这种问题？应该这样写也是没有错的吧！</P> <DIV>红色部分这样写:</DIV>
<DIV><FONT color=#ff0000> Ex.Workbooks.Add<BR> Ex.Worksheets.Add<BR> Ex.Visible = True</FONT></DIV> 4楼的写法，依然的到同样的错误！ <DIV>第一,要加引用;</DIV>
<DIV>第二,用不着那么复杂:</DIV>
<DIV>sub Exut()</DIV>
<DIV> Dim Ex As New Excel.Application</DIV>
<DIV> Ex.Workbooks.Add<BR> Ex.Worksheets.Add<BR> Ex.Visible = True</DIV>
<DIV>end sub</DIV>
<DIV>搞定!</DIV>
页:
[1]