VB .NET 服务器动态生成 Excel 文件

Question

我有一个运行在具有多个请求和性能要求的服务器上的 VB .NET Web 应用程序。 我有一个函数可以从数据库中检索一些数据，并且必须生成一个 Excel 报告以显示给系统用户。 我以某种方式做到了，但我的解决方案没有我想要的性能：基本上我的代码所做的是：

• 服务器接受报表生成请求
• 服务器填写一个excel文件
• 服务器在本地保存 xls 文件
• 服务器将文件附加到 html 响应中，用户下载它
• 服务器删除文件（什么时候？我也需要处理临界情况）

sn-p的代码是这样的：

Public Sub ExportaDataTableToExcel(ByVal dt As System.Data.DataTable, ByVal Page As System.Web.UI.Page, ByVal ReportName As String)
        Dim oExcel As Excel.Application
        Dim oBook As Excel.Workbook
        Dim oSheet As Excel.Worksheet
        Dim colIndex As Integer
        Dim rowIndex As Integer

        oExcel = New Excel.Application
        oBook = oExcel.Workbooks.Add(Type.Missing)
        oSheet = oBook.Worksheets(1)


        'Export the Columns to excel file
        For Each dc In dt.Columns
            colIndex = colIndex + 1
            oSheet.Cells(1, colIndex) = dc.ColumnName

        Next

        oBook.SaveAs("C:\file.xls")
        oSheet = Nothing
        oBook.Close()

        Page.Response.AddHeader("content-disposition", "attachment;filename=" & ReportName & ".xls")
        Page.Response.Charset = String.Empty
        Page.Response.ContentType = "vnd.application/ms-excel"


        Page.Response.TransmitFile("C:\file.xls")

        Page.Response.Flush()

        Page.Response.End()

        oExcel.Quit()
    End Sub

如您所见，服务器在本地 C:\file.xls 中生成 xls 文件，然后在响应页面中传输该文件。

我想要做的，我真的不知道这是否可能，因为我没有找到任何示例，正在动态生成 xls 文件而不将其保存在本地（可能以 Stream 的形式返回字节或类似的东西），然后在响应页面中将其组装为 xls 文件，而不在本地保存文件。

我尝试同时使用 Page 和 System.IO.StringWriter 都没有运气，也许我做错了什么。 以下代码行为异常，要求我保存对文件的修改（在服务器端），并下载包含页面部分 html 的 xls 文件，生成有关缺少 css 文件的错误并显示部分页面。所以，通过这种方法，我几乎为零。这是代码：

Public Sub ExportaDataTableToExcel(ByVal dt As System.Data.DataTable, ByVal Page As System.Web.UI.Page, ByVal ReportName As String)
        Dim oExcel As Excel.Application
        Dim oBook As Excel.Workbook
        Dim oSheet As Excel.Worksheet
        Dim colIndex As Integer
        Dim rowIndex As Integer

        oExcel = New Excel.Application
        oBook = oExcel.Workbooks.Add(Type.Missing)
        oSheet = oBook.Worksheets(1)


        'Export the Columns to excel file
        For Each dc In dt.Columns
            colIndex = colIndex + 1
            oSheet.Cells(1, colIndex) = dc.ColumnName

        Next

        oSheet = Nothing
        oBook.Close()


        Dim stringWrite As System.IO.StringWriter = New System.IO.StringWriter
        Dim htmlWrite As System.Web.UI.Html32TextWriter = New System.Web.UI.Html32TextWriter(stringWrite)
        Page.Response.Clear()
        Page.Response.AddHeader("content-disposition", "attachment;filename=" & ReportName & ".xls")
        Page.Response.Charset = String.Empty
        Page.Response.ContentType = "vnd.application/ms-excel"




        Page.Response.WriteFile(stringWrite.ToString)
        Page.Response.Flush()

        Page.Response.End()

        oExcel.Quit()
    End Sub

Answer 1

我知道我至少可以帮助您解决其中一个问题，Lateralus。我已经从我们的实时服务器中获取了一个 sn-p 来向您展示。

编辑：这个传输一个 CSV 文件，我们最初遇到了 HTML 显示在文件中的问题。在这个特定的例子中，我们选择不使用 excel，但是问题很可能是同一个问题。

我认为您需要在页面响应中添加额外的标头才能删除您在文件中获得的 HTML。

这是一个例子。作为警告，我不完全确定这种方法有多安全。我们在我们的网络中使用它，因此它不需要被锁定。

Dim LiveFileStream As FileStream = New FileStream("C:\inetpub\wwwroot\" &_
"Website\CSVFile.csv", FileMode.Open, FileAccess.Read)
Dim fileBuffer(CInt(LiveFileStream.Length)) As Byte

LiveFileStream.Read(fileBuffer, 0, CInt(LiveFileStream.Length)) 
LiveFileStream.Close()

Response.Clear()
Response.Charset = "utf-8"
Response.ContentType = "text/plain"
'I believe if you are to add the following header
'it will fix the problem with HTML showing in document
Response.AddHeader("Content-Length", fileBuffer.Length.ToString) 
Response.AddHeader("Content-Disposition", "attachment; filename=CSVFile.csv")
Response.BinaryWrite(fileBuffer)
Response.End()