asp.net - Excel 文件 "Open" "Save As"对话框未显示在 asp.net 中

Question

我已经搜索了 S/O，但找不到可以帮助我解决问题的解决方案。我正在将数据从我的 asp.net 应用程序导出到 xls 文件。当用户单击“导出数据”按钮时，我需要显示“打开/另存为/取消”对话框。

我该如何实现这一目标？

        oSheet = Nothing
        oRange = Nothing
        oWB.SaveAs(sFileName.ToString())
        oWB.Close()
        oWB = Nothing
        oXL.Quit()

Answer 1

尝试这个代码块。您可能需要对其进行微调。代码的 Response block 与对话框有关:

Private Sub GenerateXLSXFile(tbl As DataTable) 

    Dim excelPackage = New ExcelPackage 

    Dim excelWorksheet = excelPackage.Workbook.Worksheets.Add("DemoPage") 

    excelWorksheet.Cells("A1").LoadFromDataTable(tbl, True) 

    Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet" 
    Response.AddHeader("content-disposition", "attachment;  filename=ExcelDemo.xlsx") 

    Dim stream As MemoryStream = New MemoryStream(excelPackage.GetAsByteArray()) 

    Response.OutputStream.Write(stream.ToArray(), 0, stream.ToArray().Length) 

    Response.Flush() 

    Response.Close() 

End Sub