导出EXCEL时,杀掉进程

最新推荐文章于 2021-03-16 11:31:02 发布

eastrise_liu

最新推荐文章于 2021-03-16 11:31:02 发布

阅读量520

点赞数

CC 4.0 BY-SA版权

文章标签： excel string exception integer javascript 语言

本文链接：https://blog.youkuaiyun.com/eastrise_liu/article/details/2781668

本文介绍了一种使用VB.NET将用户的技能信息从Web应用程序导出到Excel文件的方法。通过创建一个公共子程序，该方法能够复制模板文件、设置基本信息和技术语言信息，并通过Web界面提供下载链接。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Public Sub OutExcFile(ByVal strUserId As String, ByVal objControl As System.Web.UI.Control)

        Dim objExcel As Excel.Application
        Dim objWorkBooks As Excel.Workbooks = Nothing
        Dim objBook As Excel.Workbook = Nothing
        Dim objSheets As Excel.Sheets = Nothing
        Dim objWorkSheet As Excel.Worksheet = Nothing

objExcel = New Excel.Application

Try
Dim strOutFileName As String = CopyModel("SkillMap.xls", strUserId)

objWorkBooks = objExcel.Workbooks

            '文件打开
            objBook = objWorkBooks.Open(strOutFileName)
            objSheets = objBook.Worksheets
            objWorkSheet = objSheets(1)

' 基本信息输出
SetBaseInfo(strUserId, objWorkSheet)

' 技术语言信息输出
SetLangItemStatus(strUserId, objWorkSheet)

' 外语能力信息输出
SetForLanInfo(strUserId, objWorkSheet)

' 资格/培训,海外工作经历,业务经历,管理经历的取得设定
SetGridView(strUserId, objWorkSheet, objExcel)

objWorkSheet.Range("A1").Select()

objBook.Save()

            ' 作成的文件输出
            Dim strWebFilePath As String = Web.Configuration.WebConfigurationManager.AppSettings("OutFileWebPath")
            Dim strSkillFileName = strOutFileName.Substring(strOutFileName.LastIndexOf("/") + 1)
            Dim strURL As String = "<script LANGUAGE='JavaScript'>" & "window.open('" & objControl.ResolveUrl("/" & strWebFilePath & strSkillFileName) & "')" & "</script>"
            objControl.Page.ClientScript.RegisterStartupScript(Me.GetType(), "", strURL)

        Catch ex As Exception
            Throw ex
        Finally
            If Not IsNothing(objWorkSheet) Then
                ReleaseComObject(objWorkSheet)
            End If
            If Not IsNothing(objBook) Then
                ReleaseComObject(objBook)
            End If
            If Not IsNothing(objSheets) Then
                ReleaseComObject(objSheets)
            End If
            If Not IsNothing(objWorkBooks) Then
                ReleaseComObject(objWorkBooks)
            End If

            If objExcel IsNot Nothing Then
                objExcel.UserControl = False
                'Excel退出
                objExcel.Quit()
                '对像释放
                ReleaseComObject(objExcel)
                Dim intgeneration As Integer = 0
                intgeneration = System.GC.GetGeneration(objExcel)
                objExcel = Nothing
                System.GC.Collect(intgeneration)
                System.GC.Collect()
            End If
        End Try
    End Sub