我的代码如下:
Dim ColuCount As Integer
Dim fileName As String = System.IO.Path.GetTempPath() + "/" + Rnd().ToString() & ".xls"
Dim i As Integer
Dim j As Integer
Dim Mark As String = "A"
Dim MarkSec As String = ""
Dim BM As String = ""
Dim Temp As Integer
Try
myExcle = CreateObject("Excel.Application")
myExcle.Visible = True
'System.IO.File.Copy("Stat/aa", fileName, True)
myBooks = myExcle.WorkBooks
myBook = myBooks.Add()
mySheet = myExcle.ActiveSheet
'mySheet = myExcle.Worksheets.Item(1)
'mySheet = myWorkSheet.item(1)
ColuCount = Me.myDbSet.Tables(0).Columns.Count - 1
for j = 1 to myDbSet.Tables.row.count -1
mySheet.range( j + 2).value = Me.myDbSet.Tables(0).Rows(j).Item(0)
Mark = Chr(Asc(Mark) + 1)
Next
Me.ClearExcel()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
Private Sub ClearExcel()
NAR(mySheet)
myBook.Close(False)
NAR(myBook)
NAR(myBooks)
myExcle.Quit()
NAR(myExcle)
end sub
Private Sub NAR(ByVal o As Object)
Try
System.Runtime.InteropServices.Marshal.ReleaseComObject(o)
Catch
Finally
o = Nothing
End Try
End Sub
情况说明:
本人想生成EXCEL后,自动关闭EXCEL进程,但执行完成后。进程管理器中的EXCEL总是存在。
但是我如果不对文档进行操作的话(只生成对象,不进行数据填充),就可以释放EXCEL进程。
望各位高手指点~~~~~~