把datatable导出成excel文件

最新推荐文章于 2023-09-13 16:38:46 发布

抬头望天边一只雁

最新推荐文章于 2023-09-13 16:38:46 发布

阅读量359

点赞数

分类专栏： asp.net asp.net 文章标签： excel integer string office table class

本文链接：https://blog.csdn.net/hzfu007/article/details/5898975

版权

asp.net 同时被 2 个专栏收录

67 篇文章 0 订阅

订阅专栏

asp.net

26 篇文章 0 订阅

订阅专栏

Dim dt As DataTable = GetWorkListDT()
Dim colEXP As String() = New String() {"YWH", "YWMC", "XLMC", "SQR", "FWZL", "SYQZH", "ACT_NAME"}
Dim colEXPNames As String() = New String() {"收件编号", "大类名称", "小类名称", "姓名", "房屋坐落", "所有权证号", "当前步骤"}

Dim strb As New StringBuilder
        strb.Append(" <html xmlns:o=""urn:schemas-microsoft-com:office:office""")
        strb.Append("xmlns:x=""urn:schemas-microsoft-com:office:excel""")
        strb.Append("xmlns=""http://www.w3.org/TR/REC-html40""")
        strb.Append(" <head> <meta http-equiv='Content-Type' content='text/html; charset=gb2312'>")
        strb.Append(" <style>")
        strb.Append(".xl26")
        strb.Append(" {mso-style-parent:style0;")
        strb.Append(" font-family:""Times New Roman"", serif;")
        strb.Append(" mso-font-charset:0;")
        strb.Append(" mso-number-format:""@"";}")
        strb.Append(" </style>")
        strb.Append(" <xml>")
        strb.Append(" <x:ExcelWorkbook>")
        strb.Append(" <x:ExcelWorksheets>")
        strb.Append(" <x:ExcelWorksheet>")
        strb.Append(" <x:Name>Sheet1 </x:Name>")
        strb.Append(" <x:WorksheetOptions>")
        strb.Append(" <x:DefaultRowHeight>285 </x:DefaultRowHeight>")
        strb.Append(" <x:Selected/>")
        strb.Append(" <x:Panes>")
        strb.Append(" <x:Pane>")
        strb.Append(" <x:Number>3 </x:Number>")
        strb.Append(" <x:ActiveCol>1 </x:ActiveCol>")
        strb.Append(" </x:Pane>")
        strb.Append(" </x:Panes>")
        strb.Append(" <x:ProtectContents>False </x:ProtectContents>")
        strb.Append(" <x:ProtectObjects>False </x:ProtectObjects>")
        strb.Append(" <x:ProtectScenarios>False </x:ProtectScenarios>")
        strb.Append(" </x:WorksheetOptions>")
        strb.Append(" </x:ExcelWorksheet>")
        strb.Append(" <x:WindowHeight>6750 </x:WindowHeight>")
        strb.Append(" <x:WindowWidth>10620 </x:WindowWidth>")
        strb.Append(" <x:WindowTopX>480 </x:WindowTopX>")
        strb.Append(" <x:WindowTopY>75 </x:WindowTopY>")
        strb.Append(" <x:ProtectStructure>False </x:ProtectStructure>")
        strb.Append(" <x:ProtectWindows>False </x:ProtectWindows>")
        strb.Append(" </x:ExcelWorkbook>")
        strb.Append(" </xml>")
        strb.Append("")
        strb.Append(" </head> <body> <table align=""center"" style='border-collapse:collapse;table-layout:fixed'> <tr>")
        Dim columncount As Integer = dt.Columns.Count
        For columi As Integer = 0 To ColEXPName.Length - 1
            strb.Append(" <td> <b>" & ColEXPName(columi) & " </b> </td>")
        Next
        strb.Append(" </tr>")
        For i As Integer = 0 To dt.Rows.Count - 1
            strb.Append(" <tr>")
            For j As Integer = 0 To ColEXP.Length - 1
                strb.Append(" <td class='xl26'>" & dt.Rows(i)(ColEXP(j)).ToString() & " </td>")
            Next
            strb.Append(" </tr>")
        Next
        strb.Append(" </body> </html>")
        aPage.Response.Clear()
        aPage.Response.Buffer = True
        aPage.Response.Charset = "GB2312"

dim sFileName as string="导出文件名称"

        aPage.Response.AppendHeader("Content-Disposition", "attachment;filename=" & sFileName)
        aPage.Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312") '设置输出流为简体中文
        aPage.Response.ContentType = "application/ms-excel" ' '设置输出文件类型为excel文件。
        aPage.EnableViewState = False
        aPage.Response.Write(strb)
        aPage.Response.End()