xianglongg 发表于 2006-12-13 12:50:00

在cad中vba编程时怎么打开和关闭excel

<p>各位高手好</p><p>下面的是我编的一部分程序</p><p>可是就是不能关闭打开的excel表，麻烦各位给我改一下</p><p>Sub jisuan()<br/>&nbsp;&nbsp;&nbsp; Dim Excel As Excel.Application<br/>&nbsp;&nbsp;&nbsp; Dim ExcelSheet As Object<br/>&nbsp;&nbsp;&nbsp; Dim ExcelWorkbook As Object<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Workbooks.Open ("C:\abc.xls")</p><p>&nbsp;&nbsp; close</p><p>End Sub</p><p></p>

pal_21 发表于 2006-12-14 17:07:00

<p>&nbsp;Set Excel= CreateObject("Excel.Application")&nbsp; '建立Excel application对象<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set newbook = Excel.Workbooks.Add&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '建立新的工作薄<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Val(temp_xls.Application.Version) &gt;= 8 Then '判断版本<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set excel_sheet = Excel.ActiveSheet<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set excel_sheet = Excel<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Excel.Visible = True</p><p></p><p>自己看看，应该会明白的</p>

wyj7485 发表于 2006-12-14 17:09:00

<p>set&nbsp; Excel = new Excel.Application'打开 </p><p>Excel .quit'关闭<br/></p>

xianglongg 发表于 2006-12-14 19:36:00

<div style="FLOAT: right; WIDTH: 300px; HEIGHT: 250px;"><script type="text/javascript"></script><script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript"></script></div><p>都不行</p><p>我试了一下</p><p>这样一改就行了</p><p>Sub jisuan()<br/>&nbsp;&nbsp;&nbsp; Dim Excel As Excel.Application<br/>&nbsp;&nbsp;&nbsp; Dim ExcelSheet As Object<br/>&nbsp;&nbsp;&nbsp; Dim ExcelWorkbook As Object<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Workbooks.Open ("C:\abc.xls")</p><p>&nbsp;&nbsp; Workbooks.&nbsp;close</p><p>End Sub</p>

xianglongg 发表于 2006-12-14 19:49:00

<p>不过这有一个缺点，就是会把全部的excel关掉。</p>

hookkk 发表于 2006-12-15 16:03:00

<p>Excel.ActiveWorkbook.Close</p><p>只关掉当前工作表</p>

xianglongg 发表于 2006-12-16 12:46:00

<p>我刚才试过了</p><p>应该是</p><p>ActiveWorkbook.Close</p><p></p>

xianglongg 发表于 2006-12-16 12:53:00

怎么样才能实现不打开excel表直接提取excel表中的数据
页: [1]
查看完整版本: 在cad中vba编程时怎么打开和关闭excel