.net中使用excel

//添加引用 
Import* **cel.ApplicationClass   '可以防止.NET中的函数无法使用 
Imports System.Runtime.InteropServices.Marshal 
//定义要使用的EXECL类型 
Public xlapp A* **cel.Application 
Public oBooks A* **cel.Workbooks, oBook A* **cel.Workbook 
Public oSheets A* **cel.Sheets, oSheet A* **cel.Worksheet 
//启动EXCEL进程 
Private Sub start_excel(ByVal filename As String) 
        xlapp = New Excel.Application   '构建EXCEL应用对象 
        If xlapp Is Nothing Then 
            RegisterStartupScript("alert", "<script language=javascript>alert('EXCEL程序未能启动!');</script>") 
            Environment.ExitCode = 0 
            Exit Sub 
        End If 
        xlapp.Visible = Fal** 
        *lapp.DisplayAlerts = False 
        oBooks = xlapp.Workbooks       '定义工作薄 
        oBooks.Open(Server.MapPath(filename)) 
        oBook = oBooks.Item(1) 
        oSheets = oBook.Worksheets     '定义工作表 
        oSheet = CType(oSheets.Item(1), Excel.Worksheet) 
    End Sub    '启动EXCEL应用 
//结束进程 
Private Sub end_excel() 
        xlapp.Quit() 
        ReleaseComObject(oSheets) 
        ReleaseComObject(oBooks) 
        ReleaseComObject(oSheet) 
        ReleaseComObject(oBook)