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

我的代码如下:

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

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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值