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

xianglongg

各位高手好

下面的是我编的一部分程序

可是就是不能关闭打开的excel表，麻烦各位给我改一下

Sub jisuan()
    Dim Excel As Excel.Application
    Dim ExcelSheet As Object
    Dim ExcelWorkbook As Object
   
    Workbooks.Open ("C:\abc.xls")

   close

End Sub

pal_21

 Set Excel= CreateObject("Excel.Application")  '建立Excel application对象
       
        Set newbook = Excel.Workbooks.Add             '建立新的工作薄
           
               
                If Val(temp_xls.Application.Version) >= 8 Then '判断版本
                Set excel_sheet = Excel.ActiveSheet
                Else
                Set excel_sheet = Excel
                End If
          Excel.Visible = True

自己看看，应该会明白的

wyj7485

set  Excel = new Excel.Application'打开

Excel .quit'关闭

xianglongg

都不行

我试了一下

这样一改就行了

Sub jisuan()
    Dim Excel As Excel.Application
    Dim ExcelSheet As Object
    Dim ExcelWorkbook As Object
   
    Workbooks.Open ("C:\abc.xls")

   Workbooks. close

End Sub

xianglongg

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

hookkk

Excel.ActiveWorkbook.Close

只关掉当前工作表

xianglongg

我刚才试过了

应该是

ActiveWorkbook.Close

xianglongg

怎么样才能实现不打开excel表直接提取excel表中的数据