.Net 服务器端写Excel，并关闭Excel进程示例

Imports Microsoft.Office.Interop

Public Class VBExcell
    Inherits System.Web.UI.Page

    Dim myExcel As Excel.Application
    Dim myBook As Excel.Workbook
    Dim mySheet As Excel.Worksheet
    Dim strPath As String
    Dim pApp As Integer
    Dim strLiter As New System.Web.UI.LiteralControl

    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents PlaceHolder1 As System.Web.UI.WebControls.PlaceHolder
    Protected WithEvents btnNow As System.Web.UI.WebControls.Button
    Dim i As Integer

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        myExcel = CreateObject("Excel.Application")
        myBook = myExcel.Workbooks.Add(Server.MapPath("/WebDemo/DocTemp/") + "Test.xls")
        mySheet = myBook.Worksheets(1)
        myExcel.Visible = False
        pApp = System.GC.GetGeneration(myExcel)

        For i = 1 To 10
            mySheet.Cells(2, i) = i.ToString()
        Next

        Dim temp As String
        temp = DateTime.Now.ToString("yyyyMMddhhmmss") + ".xls"
        strPath = Server.MapPath("/WebDemo/DocTemp/") + temp

        myExcel.ActiveWorkbook.SaveAs(Filename:=strPath, ReadOnlyRecommended:=False, CreateBackup:=True)

        strLiter.Text = "保存路径为：" + strPath + "<br>"

        mySheet = Nothing
        If Not myBook Is Nothing Then
            myBook.Close(SaveChanges:=True)
            myBook = Nothing
        End If

        strLiter.Text = strLiter.Text + "释放myBook... <br>"

        If Not myExcel Is Nothing Then
            myExcel.Quit()
            myExcel = Nothing
        End If
        System.GC.Collect(pApp)

        strLiter.Text = strLiter.Text + "释放myExcel... <br>"
        Me.PlaceHolder1.Controls.Add(strLiter)

    End Sub

    Private Sub Page_Error(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Error
        Dim curError As Exception = Server.GetLastError()
        Dim msg As String

        msg = "<h1>Page Error</h1><hr/>" + _
        msg = msg + "错误发生在: " + Request.Url.ToString() + "<br/>"
        msg = msg + "错误信息如下: <font color='#656565'>" + curError.Message.ToString() + "</font><hr/>" + _
        msg = msg + "<b>错误跟踪:</b><br/>" + curError.ToString()

        strLiter.Text = msg
        Me.PlaceHolder1.Controls.Add(strLiter)

    End Sub

    Private Sub btnNow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNow.Click
        strLiter.Text = DateTime.Now.ToString("yyyyMMddhhmmss")
        Me.PlaceHolder1.Controls.Add(strLiter)
    End Sub
End Class

Type text here