asp.net中把结果输出成excel格式-优快云博客

此博客展示了一段ASP.NET代码，用于将数据写入Excel文件。代码中定义了文件名，获取当前日期并格式化，从数据库读取数据，将数据标题和内容输出到Excel表格，最后尝试将表格导出到指定路径，若出错则输出错误信息。

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

Private Sub WriteDataGridtoExcel()
        Dim FileName As String
        Dim FileExtName As String = ".xls"
        Dim strMonth As String, strDay As String, j As Integer

        strMonth = CStr(Month(Now()))
        strDay = CStr(Day(Now()))
        For j = 1 To 2 - Len(strMonth)
            strMonth = "0" & strMonth
        Next
        For j = 1 To 2 - Len(strDay)
            strDay = "0" & strDay
        Next
        FileName = "Ensure"
        FileName = FileName & Year(Now()) & strMonth & strDay & FileExtName
        'Response.Write(FileName)
        'Response.End()

        Dim xlsheet As New SpreadsheetClass
        cnn.Open()
        Dim reader As SqlDataReader = Me.sql.ExecuteReader()
        Dim numbercols As Integer = reader.FieldCount
        Dim row As Integer = 2
        Dim i As Integer = 0
        ' 輸出標題
        For i = 0 To numbercols - 1
            xlsheet.ActiveSheet.Cells(1, i + 1) = reader.GetName(i).ToString()
        Next

        ' 輸出欄位內容
        While (reader.Read())
            For i = 0 To numbercols - 1
                xlsheet.ActiveSheet.Cells(row, i + 1) = reader.GetValue(i).ToString()
            Next
            row = row + 1
        End While
        reader.Close()
        cnn.Close()
        Try
            'xlsheet.ActiveSheet.Export(Server.MapPath(".") + "/Images/" + Me.xlfile.Text, OWC.SheetExportActionEnum.ssExportActionNone)
            xlsheet.ActiveSheet.Export(Server.MapPath(".") + "/Images/" + FileName, OWC.SheetExportActionEnum.ssExportActionNone)
        Catch e As System.Runtime.InteropServices.COMException
            Response.Write("錯誤：" + e.Message)
        End Try
    End Sub