如何在asp.net中创建Excel文件

Question

我想在asp.net中创建Excel工作表。 我已经完成了此操作的代码，并且它在本地系统中运行良好，但是当我在服务器上对其进行测试时，会出现以下错误。

由于以下错误，检索具有CLSID {00024500-0000-0000-C000-000000000046}的组件的COM类工厂失败，原因是：80070005。

我的代码是。

private static System.Data.DataTable GetDataSet()
    {
        System.Data.DataTable dt = new System.Data.DataTable("Table");
        dt.Columns.Add("Name", Type.GetType("System.String"));
        dt.Columns.Add("Address", Type.GetType("System.String"));
        dt.Columns.Add("Phone", Type.GetType("System.String"));

        DataRow dr = dt.NewRow();
        dr["Name"] = "Balaji Selvarajan";
        dr["Address"] = "Reddiyur";
        dr["Phone"] = "000-000-0000";
        dt.Rows.Add(dr);

        dr = dt.NewRow();
        dr["Name"] = "Balaji S";
        dr["Address"] = "Kattumannar Koil";
        dr["Phone"] = "000-000-0000";
        dt.Rows.Add(dr);
        return dt;
    }


    private static void DataSetToExcel(System.Data.DataTable dt, Boolean generateIdentity)
    {
        try
        {
            string Filename = HttpContext.Current.Server.MapPath("~/Doc/") + "Test.xls";
            string imagepath1 = HttpContext.Current.Server.MapPath("~/Doc/") + "Test.xls";
            FileInfo fi = new FileInfo(HttpContext.Current.Server.MapPath("~/Doc/") + "Test.xls");
            if (fi.Exists)
            {
                fi.Delete();
            }
            Microsoft.Office.Interop.Excel.Application xlApp = new Microsoft.Office.Interop.Excel.Application();
            xlApp.Visible = false;
            Microsoft.Office.Interop.Excel.Workbook wb = xlApp.Workbooks.Add(Microsoft.Office.Interop.Excel.XlWBATemplate.xlWBATWorksheet);
            object misValue = System.Reflection.Missing.Value;
            Microsoft.Office.Interop.Excel.Worksheet ws = (Microsoft.Office.Interop.Excel.Worksheet)wb.Worksheets.Add(misValue, misValue, misValue, misValue);
            ws.Name = "Test";

            for (int i = 0; i < dt.Rows.Count; i++)
            {
                for (int j = 0; j < dt.Columns.Count; j++)
                {
                    if (i == 0)
                        ws.Cells[1, j + 1] = dt.Columns[j].ColumnName;
                    ws.Cells[i + 2, j + 1] = dt.Rows[i][j].ToString();
                }
                ws.Protect("1235", true, true, true, true, true, true, true, true, true, true, true, true, true, true, true);
            }
            wb.Protect("my", true, true);
            wb.Password = "1235";
            wb.SaveAs(Filename, Microsoft.Office.Interop.Excel.XlFileFormat.xlWorkbookNormal, "1235", misValue, misValue, misValue, Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlExclusive, misValue, misValue, misValue, misValue, misValue);
            wb.Close(true, misValue, misValue);
            xlApp.Visible = true;
            xlApp.Quit();
            System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp);
            HttpContext.Current.Response.ContentType = "Application/Excel";
            string FilePath = imagepath1;
            HttpContext.Current.Response.WriteFile(FilePath);
            HttpContext.Current.Response.AddHeader("Content-Disposition", "attachment;filename=Test.xls");
            HttpContext.Current.Response.End();
        }
        catch (Exception ex)
        {
            throw ex;
        }
    }
    protected void BtnDn_Click(object sender, EventArgs e)
    {
        DataSetToExcel(GetDataSet(), false);
    }

我无法解决此问题，请帮助我。 并尽快给我解决方案。

我正在使用Asp.net C＃。

Answer 1

试试这个

     using System;  
     using System.Collections.Generic;   
     using System.Data;  
     using System.Linq;  
     using System.Text;  
     using System.Threading.Tasks; 
     using Office = Microsoft.Office.Core;  
     using Excel = Microsoft.Office.Interop.Excel;

     namespace Excel   
     {   
         public class ExcelUtlity   
          {                      

    public bool WriteDataTableToExcel(System.Data.DataTable dataTable, string worksheetName, string saveAsLocation, string ReporType)        {
     Microsoft.Office.Interop.Excel.Application excel;
Microsoft.Office.Interop.Excel.Workbook excelworkBook;
Microsoft.Office.Interop.Excel.Worksheet excelSheet;
Microsoft.Office.Interop.Excel.Range excelCellrange;
try
{
    // Start Excel and get Application object.
   excel = new Microsoft.Office.Interop.Excel.Application();
    // for making Excel visible
    excel.Visible = false;
    excel.DisplayAlerts = false;
    // Creation a new Workbook
    excelworkBook = excel.Workbooks.Add(Type.Missing);
    // Workk sheet             
    excelSheet = (Microsoft.Office.Interop.Excel.Worksheet)excelworkBook.ActiveSheet;
    excelSheet.Name = worksheetName;
    excelSheet.Cells[1, 1] = ReporType;
    excelSheet.Cells[1, 2] = "Date : " + DateTime.Now.ToShortDateString();               
    // loop through each row and add values to our sheet
    int rowcount = 2;
    foreach (DataRow datarow in dataTable.Rows)
    {
        rowcount += 1;
        for (int i = 1; i <= dataTable.Columns.Count; i++)
        {
            // on the first iteration we add the column headers
            if (rowcount == 3)
            {
                excelSheet.Cells[2, i] = dataTable.Columns[i-1].ColumnName;
                excelSheet.Cells.Font.Color = System.Drawing.Color.Black;
            }
            excelSheet.Cells[rowcount, i] = datarow[i-1].ToString();
            //for alternate rows
            if (rowcount > 3)
            {
                if (i == dataTable.Columns.Count)
                {
                    if (rowcount % 2 == 0)
                    {
                        excelCellrange = excelSheet.Range[excelSheet.Cells[rowcount, 1], excelSheet.Cells[rowcount, dataTable.Columns.Count]];
                        FormattingExcelCells(excelCellrange, "#CCCCFF", System.Drawing.Color.Black,false);
                    }
                }
            }
        }
    }
    // now we resize the columns
    excelCellrange = excelSheet.Range[excelSheet.Cells[1, 1], excelSheet.Cells[rowcount, dataTable.Columns.Count]];
    excelCellrange.EntireColumn.AutoFit();
    Microsoft.Office.Interop.Excel.Borders border = excelCellrange.Borders;
    border.LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous;
    border.Weight = 2d;
    excelCellrange = excelSheet.Range[excelSheet.Cells[1, 1], excelSheet.Cells[2, dataTable.Columns.Count]];
    FormattingExcelCells(excelCellrange, "#000099", System.Drawing.Color.White, true);
    //now save the workbook and exit Excel
    excelworkBook.SaveAs(saveAsLocation);;
    excelworkBook.Close();
    excel.Quit();
    return true;
}
catch (Exception ex)
{
    MessageBox.Show(ex.Message);
    return false;
}
finally
{
    excelSheet = null;
    excelCellrange = null;
    excelworkBook = null;
}
 }       
    /// FUNCTION FOR FORMATTING EXCEL CELLS

public void FormattingExcelCells(Microsoft.Office.Interop.Excel.Range range, string HTMLcolorCode, System.Drawing.Color fontColor, bool IsFontbool)
  {
      range.Interior.Color=System.Drawing.ColorTranslator.FromHtml(HTMLcolorCode);
range.Font.Color = System.Drawing.ColorTranslator.ToOle(fontColor);
if (IsFontbool == true)
{
    range.Font.Bold = IsFontbool;
}
   }

  }

Answer 2

错误80070005是访问被拒绝错误。 尝试将您的AppPool配置为在LocalSystem下运行（而不是ApplicationPoolIdentity），或者尝试在Component Services中授予Excel的权限：

1. 在开始菜单上，单击运行，然后键入Dcomcnfg.exe。
2. 在“组件服务”中，单击“控制台根目录”，依次展开“组件服务”，“计算机”，“我的电脑”和“ DCOMConfig”。
3. 搜索Microsoft Word 14.0对象库。 点击它。
4. 右键单击并选择属性。
5. 在安全选项卡上，在“启动和激活”部分中选择“自定义”。
6. 单击编辑，然后添加要在其下运行应用程序的应用程序池的标识。
7. 对“访问权限”重复上述步骤

AppPool帐户解决方案来自此处： “正在检索组件的COM类工厂。...错误：80070005访问被拒绝。” （来自HRESULT的异常：0x80070005（E_ACCESSDENIED）） 。

组件服务权限的答案是从这里来的： 由于以下错误，为具有CLSID的组件检索COM类工厂失败：80070005访问被拒绝 。