Private Sub Command1_Click() Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Set xlApp = New Excel.Application ' Set xlBook = xlApp.workbooks.Add'创建新的Excel Set xlBook = xlApp.workbooks.Open("C:\Book1.xls")'打开已有的Excel ..... ..... xlBook.Close False xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing End Sub
我在程序的最后,使用了如下代码xlBook.Close False xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing但还是不能够完全关闭掉Excel,因为在[任务管理器]中还能够看到有Excel的进程存在,请问怎么处理PS:程序运行前提是要打开8个不同的工作簿,为了方便期间,我将workbook.visible设置为false.哪位大哥可以给帮忙解决一下啊~~~~如需代码进行分析,请留下信箱~~~~谢谢了~~~
在指定工作表后新建工作表:oExcel.Sheets.Add(,oExcel.Sheets(lnSheet),1,-4167) &&lnSheet为指定表号
在最后工作表后新建工作表:oExcel.Sheets.Add(,lnSheetsCnt,1,-4167) &&lnSheetCnt为工作表总数
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = New Excel.Application
' Set xlBook = xlApp.workbooks.Add'创建新的Excel
Set xlBook = xlApp.workbooks.Open("C:\Book1.xls")'打开已有的Excel
.....
.....
xlBook.Close False
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing但还是不能够完全关闭掉Excel,因为在[任务管理器]中还能够看到有Excel的进程存在,请问怎么处理PS:程序运行前提是要打开8个不同的工作簿,为了方便期间,我将workbook.visible设置为false.哪位大哥可以给帮忙解决一下啊~~~~如需代码进行分析,请留下信箱~~~~谢谢了~~~