vb调用excel的问题

[quickman]

我在一个窗体的某个模块内定义了Excel.Application对象变量来生成excel表，
模块结束时调用了quit方法，然后设变量为nothing,
但任务管理器内还有excel进程，
只有把主程序关掉后该excel进程才消失，
请问有什么办法在程序内把它结束掉？

[dingfuhao]

按照你的方法应该可以的啊
确定两句话都执行了吗？

[quickman]

确认！
你现在能试一下吗？
怪异！

[donotbesilent]

给出代码来看看.

[dingfuhao]

我以前也用过，也是这么做的，没出现这样的问题啊

[Lester_Zhang]

It works with me.

[aopiee]

看看excel有没有Add-Ins。

[quickman]

Dim iCols As Integer '列数
Dim iRows As Integer '行数

Dim iCol As Integer
Dim strCol As String

Dim iRow As Integer
Dim strRange As String

Dim iColHeader As Integer '列头的起始位置
Dim iRowBegin As Integer '数据行的起始位置

Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Dim strTemplateFile As String
Dim strTempFile As String
strTemplateFile = App.Path & "\sysdata\Template.xls"
strTempFile = App.Path & "\sysdata\Temp.xls"

FileCopy strTemplateFile, strTempFile

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Open(strTempFile)
' xlBook.Sheets.Delete
Set xlSheet = xlBook.Worksheets.Add

iCols = Me.grdData.Cols


' xlApp.Visible = True '显示表格
xlBook.Save '保存"
xlApp.Quit

Shell "D:\Program Files\Microsoft Office\Office\excel " & strTempFile

Set xlApp = Nothing '交还控制给Excel
Set xlBook = Nothing
Set xlSheet = Nothing

[quickman]

Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Dim strTemplateFile As String
Dim strTempFile As String
strTemplateFile = App.Path & "\sysdata\Template.xls"
strTempFile = App.Path & "\sysdata\Temp.xls"

FileCopy strTemplateFile, strTempFile

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Open(strTempFile)
' xlBook.Sheets.Delete
Set xlSheet = xlBook.Worksheets.Add

〈往exce里写数据〉。。。。。。。。。。。。。。

xlApp.Visible = True '显示表格
xlBook.Save '保存"
xlApp.Quit

Shell "D:\Program Files\Microsoft Office\Office\excel " & strTempFile

Set xlApp = Nothing '交还控制给Excel
Set xlBook = Nothing
Set xlSheet = Nothing

[quickman]

不错，
我把shell的那个excel关掉后系统中还有一个excel,
正是那个xlApp没有关掉,
太奇怪了。。。。

[quickman]

其他地方有点莫名其妙的小错误，
现在好了，谢谢各位

[dingfuhao]

你shell 了一个excel文件
在你的进程列表中应该有一个excel.exe进程