将 Excel 文件导出为 .zip 以减小文件大小。如何在将 xmldata 发送到客户端之前对其进行压缩？

Question

我喜欢在将数据作为 Excel 文件提供给客户端之前压缩 xmldata。我正在尝试将其压缩并作为 .zip 文件提供。它不起作用这是我的代码如下。请帮助

我尝试压缩它，将其转换为字节等。下面代码的问题是，XSL 转换没有正确发生，并且输出 excel 文件是原始 xml，最后有一些 .net 异常。 （这就是我在最后下载的 .xls 文件中看到的内容） 在开始压缩之前，我的下面的代码运行良好，可以从 xml 输入提供格式正确的 excel 文件。 excel 文件非常漂亮，您甚至无法看出它是来自 XML。 请帮忙压缩

 Dim attachment As String = "attachment; filename=DataDownload.xls"
        Response.ClearContent()
        Response.AddHeader("content-disposition", attachment)
        Response.ContentType = "application/vnd.ms-excel"
        'Response.ContentType = "text/csv"

        Response.Charset = ""
        Dim ds As New DataSet()

        Dim objXMLReader As XmlReader
        objXMLReader = Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteXmlReader(ConnectionString, CommandType.StoredProcedure, "SPName")

        ds.ReadXml(objXMLReader)

        Dim xdd As New XmlDataDocument(ds)
        Dim xt As New XslCompiledTransform()
        'xt.Transform(xdd, Nothing, Response.OutputStream)

        Dim bytearr() As Byte
        bytearr = System.Text.Encoding.Default.GetBytes(xdd.OuterXml)

        Dim objMemStream As New MemoryStream()
        objMemStream.Write(bytearr, 0, bytearr.Length)
        objMemStream.WriteTo(Response.OutputStream)
        xt.Transform(xdd, Nothing, Response.OutputStream)

        Response.End()

Answer 1

为什么不使用 XLSX 格式而不是 XLS？它已经是 XML 数据压缩在 ZIP 文件中。您可以将 XLSX 文件重命名为 ZIP 来验证这一点。

更新：顺便说一句，ContentType 在这种情况下应该是“application/vnd.openxmlformats-officedocument.spreadsheetml.sheet”而不是“application/vnd.ms-excel” 。