求助:VS2003中的EXCEL进程问题!

来源:互联网 发布:淘宝信誉评级变成良好 编辑:程序博客网 时间:2024/04/28 11:17

我的代码如下:

  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进程。

望各位高手指点~~~~~~

原创粉丝点击