vb.net - 如何在 vb.net 的 MVC 4 中创建并返回带有 Controller 的 Excel 文件？

Question

我正在使用 ExcelLibrary enter link description here因为我不想安装 Microsoft Office Excel (microsoft.interop.office.excel)

 Public Function ObtenerExcel() As ActionResult
      Dim workbook As New Workbook()
      Dim worksheet As New Worksheet("Sheet1")
      worksheet.Cells(5, 5) = New Cell(999999)
      worksheet.Cells(10, 10) = New Cell(12354)
      workbook.Worksheets.Add(worksheet)

      Dim stream As New System.IO.MemoryStream
      workbook.SaveToStream(stream)
      stream.Position = 0

      Dim buffer(4096) As Byte
      stream.Read(buffer, 0, buffer.Length)

      Return File(buffer, "application/vnd.ms-excel", "mytestfile.xls")
    End Function

此代码返回一个 Excel 文件，但当我尝试打开此文件时，它显示一条错误消息(Excel 在“text.xls”中发现不可读的内容。您想恢复此工作簿的内容吗？如果您信任该工作簿的来源，单击"is"。)但它没有显示任何内容。

我使用 Windows 8.1(64 位)和 Microsoft Office 2013

Answer 1

您应该使用 File(...) 的 Stream 重载。您编写的代码似乎仅返回文件的前 4096 个字节，即您复制到缓冲区中的数量。您应该直接使用流。

Dim stream As New System.IO.MemoryStream
workbook.SaveToStream(stream)
stream.Position = 0

Return File(stream, "application/vnd.ms-excel", "mytestfile.xls")