在asp.net中下載時調整excel文件的大小？

Question

我正在使用NOPI庫創建Excel文件下載。我需要很長時間和大文件大小的Excel文件中顯示大量數據。

無論如何，我們可以在下載時減少Excel文件大小嗎？現在文件大小是32 MB想要這個大小。

當前代碼：

If sqlDs.Tables(0).Rows.Count > 0 Then 
    Dim dtExcel As DataTable = sqlDs.Tables(0) 
    For Each column In dtExcel.Columns 
     row.CreateCell(j).SetCellValue(column.ColumnName) 
     'sheet1.AutoSizeColumn(j) 
     sheet1.SetColumnWidth(j, 500) 
     j = (j + 1) 
    Next 
    Dim iRow As Integer = 2 
    'Double Cell Style 
    Dim cellDoubleStyle As HSSFCellStyle = hssfworkbook.CreateCellStyle 
    cellDoubleStyle.DataFormat = HSSFDataFormat.GetBuiltinFormat("#,##0.00") 

    'Integer Cell Style 
    Dim cellIntStyle As HSSFCellStyle = hssfworkbook.CreateCellStyle 
    cellIntStyle.DataFormat = HSSFDataFormat.GetBuiltinFormat("0") 

    'Date Cell Style 
    Dim cellDateStyle As HSSFCellStyle = hssfworkbook.CreateCellStyle 
    cellDateStyle.DataFormat = HSSFDataFormat.GetBuiltinFormat(Format("m/d/yy")) 

    For Each dr As DataRow In dtExcel.Rows 
     j = 0 
     Dim value As Double 
     Dim colInt As Integer 
     row = sheet1.CreateRow(iRow) 
     For Each col As DataColumn In dtExcel.Columns 
      If Double.TryParse(dr(col).ToString, value) Then 
       Dim cell As HSSFCell = row.CreateCell(j) 
       If dr(col).ToString.Contains(".") Then 
        cell.SetCellValue(value) 
        cell.CellStyle = cellDoubleStyle 
       Else 
        cell.SetCellValue(value) 
        cell.CellStyle = cellIntStyle 
       End If      ' 
      ElseIf IsDate(dr(col).ToString) Then 
        Dim cell As HSSFCell = row.CreateCell(j) 
        Dim dt As New DateTime 
        DateTime.TryParse(dr(col).ToString, dt) 
        cell.SetCellValue(dt) 

        cell.CellStyle = cellDateStyle 
      ElseIf Integer.TryParse(dr(col).ToString, colInt) Then 
        Dim cell As HSSFCell = row.CreateCell(j) 
        cell.SetCellValue(colInt) 
      Else 
        row.CreateCell(j).SetCellValue(dr(col).ToString) 
        'sheet1.AutoSizeColumn(j) 
      End If 
      j = j + 1 
      Next 
      iRow = iRow + 1 
     Next 
    End If 

Answer 1

如果你不使用XSLX格式，你可以考慮將響應流之前打包文件。由於Excel文檔的大小與您存儲在其中的數據量有關，因此您可能無法在文檔中減少太多。