ReportViewer 使用密码导出到 Excel

Question

我在 MVC 中有一个代码可以成功导出 Excel 文件，但是如何将密码添加到 Excel 文件中？

我的代码：

public ActionResult Report(string id)

        {

            LocalReport lr = new LocalReport();
            string path = Path.Combine(Server.MapPath("~/Report"), "ReportStateArea.rdlc");
            if (System.IO.File.Exists(path))
            {
                lr.ReportPath = path;
            }
            else
            {
                return View("Index");
            }
            List<StateArea> cm = new List<StateArea>();
            using (myDatabaseEntities dc = new myDatabaseEntities())
            {
                cm = dc.StateAreas.ToList();
            }
            ReportDataSource rd = new ReportDataSource("MyDataset", cm);
            lr.DataSources.Add(rd);
            string reportType = id ;
            string mimeType;
            string encoding;
            string fileNameExtension;



            string deviceInfo =

            "<DeviceInfo>" +
            "  <OutputFormat>" + id + "</OutputFormat>" +
            "  <PageWidth>8.5in</PageWidth>" +
            "  <PageHeight>11in</PageHeight>" +
            "  <MarginTop>0.5in</MarginTop>" +
            "  <MarginLeft>1in</MarginLeft>" +
            "  <MarginRight>1in</MarginRight>" +
            "  <MarginBottom>0.5in</MarginBottom>" +
            "</DeviceInfo>";

            Warning[] warnings;

            string[] streams;
            byte[] renderedBytes;

            renderedBytes = lr.Render(
                reportType,
                deviceInfo,
                out mimeType,
                out encoding,
                out fileNameExtension,
                out streams,
                out warnings);





            return File(renderedBytes, mimeType);
        }

Answer 1

您可以使用FileStream Class 在文件上写入renderedBytes。

Dim strExcelFile As String = "C:\YourPathTo\ExcelFile.xls"

Dim fs As New FileStream(strExcelFile, FileMode.Create)
fs.Write(renderedBytes, 0, renderedBytes.Length)
fs.Close()
fs.Dispose()

然后使用Microsoft.Office.Interop.Excel.dll 为现有工作簿添加密码：

Dim appExcel As Excel.Application
Dim wbExcel As Excel.Workbook

appExcel = New Excel.Application
wbExcel = appExcel.Workbooks.Open(strExcelFile)

wbExcel.Password = "YourPassword"

appExcel.DisplayAlerts = False
wbExcel.SaveAs(strExcelFile)
appExcel.DisplayAlerts = True

wbExcel.Close()

我使用DisplayAlerts 来抑制提示和警报消息，同时使用SaveAs 覆盖现有文件；当消息需要响应时，Microsoft Excel 会选择默认响应。

我的代码在 VB.NET 中，但您可以简单地用 C# 翻译它。