ASP.NET之Excel下載模板、導入、導出操作

1.下載模板功能

　　前提是服務器某文件夾中有這個文件。代碼如下

protected void btnDownload_Click(object sender, EventArgs e)
{
    var path = Server.MapPath(("upfiles\\") + "test.xlt");      //upfiles-文件夾 test.xlt-文件
    var name = "test.xlt";

    try
    {
        var file = new FileInfo(path);
        Response.Clear();
        Response.Charset = "GB2312";
        Response.ContentEncoding = System.Text.Encoding.UTF8;
        Response.AddHeader("Content-Disposition", "attachment; filename=" + Server.UrlEncode(name)); //頭信息，指定默認文件名
        Response.AddHeader("Content-Length", file.Length.ToString());//顯示下載進度
        Response.ContentType = "application/ms-excel";     // 指定返回的是一個不能被客戶端讀取的流，必須被下載
        Response.WriteFile(file.FullName);    // 把文件流發送到客戶端
            
        HttpContext.Current.ApplicationInstance.CompleteRequest();
    }
    catch (Exception ex)
    {
        Response.Write("<script>alert('錯誤:" + ex.Message + ",請盡快與管理員聯系')</script>");
    }
}

2.導入數據

　　Excel數據導入到數據庫中。

protected void btnImport_Click(object sender, EventArgs e)
{
    if (FileUpload1.HasFile == false)   //判斷是否包含一個文件
    {
        Response.Write("<script>alert('請您選擇Excel文件！')</script>");//未上傳就點擊了導入按鈕
        return;
    }
    string isXls = Path.GetExtension(FileUpload1.FileName).ToString().ToLower();//獲得文件的擴展名
    var extenLen = isXls.Length;

    if (!isXls.Contains(".xls"))    //判斷是否 是excel文件
    {
        Response.Write("<script>alert('只可以選擇Excel文件！')</script>");
        return;
    }

    string filename = FileUpload1.FileName;              //獲取Excle文件名
    string savePath = Server.MapPath(("upfiles\\") + filename);//Server.MapPath 獲得虛擬服務器相對路徑
    string savePath2 = Server.MapPath(("upfiles\\"));

    if (!Directory.Exists(savePath2))   //如果不存在upfiles文件夾則創建
    {
        Directory.CreateDirectory(savePath2);
    }
    FileUpload1.SaveAs(savePath);  //SaveAs 將上傳的文件內容保存在服務器上
    var ds = ExcelSqlConnection(savePath, filename);           //將Excel轉成DataSet
    var dtRows = ds.Tables[0].Rows.Count;
    var dt = ds.Tables[0];
    if (dtRows == 0)
    {
        Response.Write("<script>alert('Excel表無數據！')</script>");
        return;
    }
    try
    {
        for(int i = 0; i < dt.Rows.Count; i++)
        {
            string ve = dt.Rows[i]["車號"].ToString();
            if (string.IsNullOrEmpty(ve))   //因數據庫中車號不能為空 所以表格中車號為空的跳過這行
            {
                continue;
            }
            //用自己的方式保存進數據庫ADO/EF/...
            var model = new TEST(); //實體
            model.id = 1;
            model.ve = ve;
            model.name = dt.Rows[i]["姓名"].ToString();
            model.Update();
        }
    }catch (Exception ex)
    {
        Response.Write("<script>alert('" + ex.Message + "')</script>");   
    }
    
}

private DataSet ExcelSqlConnection(string savePath, string tableName)
{
    //string strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + savePath + ";Extended Properties='Excel 8.0;HDR=YES;IMEX=1'";
    string strCon = "Provider=Microsoft.Ace.OLEDB.12.0;" + "data source=" + savePath + ";Extended Properties='Excel 12.0; HDR=Yes; IMEX=1'";    //HDR=YES Excel文件的第一行是列名而不是數據 IMEX=1可必免數據類型沖突
    var excelConn = new OleDbConnection(strCon);
    try
    {
        string strCom = string.Format("SELECT * FROM [Sheet1$]");
        excelConn.Open();
        OleDbDataAdapter myCommand = new OleDbDataAdapter(strCom, excelConn);
        DataSet ds = new DataSet();
        myCommand.Fill(ds, "[" + tableName + "$]");
        excelConn.Close();
        return ds;
    }
    catch (Exception)
    {
        excelConn.Close();
        //Response.Write("<script>alert('" + ex.Message + "')</script>");
        return null;
    }

}

3.導出數據到Excel中

插件采用MyXLS.
以下代碼大部分基本不用改。

private void Export()
{
    XlsDocument xls = new XlsDocument();
    org.in2bits.MyXls.Cell cell;
    int rowIndex = 2;

    xls.FileName = DateTime.Now.ToString().Replace("-", "").Replace(":", "").Replace(" ", "") + HttpUtility.UrlEncode("TEST") + ".xls"; //TEST要改
    Worksheet sheet = xls.Workbook.Worksheets.AddNamed("TEST");//狀態欄標題名稱
    org.in2bits.MyXls.Cells cells = sheet.Cells;

    #region 導出Excel列寬
    ColumnInfo colInfo = new ColumnInfo(xls, sheet);
    colInfo.ColumnIndexStart = 0;
    colInfo.ColumnIndexEnd = 2;     
    colInfo.Width = 15 * 300;
    sheet.AddColumnInfo(colInfo);
    #endregion

    #region 表頭
    MergeArea area = new MergeArea(1, 1, 1, 2); //MergeArea(int rowMin, int rowMax, int colMin, int colMax)
    org.in2bits.MyXls.Cell cellTitle = cells.AddValueCell(1, 1, "TEST");    //Excel 第一行第1到2列顯示TEST
    sheet.AddMergeArea(area);
    cellTitle.Font.Height = 20 * 20;
    cellTitle.Font.Bold = true;//設置標題行的字體為粗體
    cellTitle.Font.FontFamily = FontFamilies.Roman;//設置標題行的字體為FontFamilies.Roman
    cellTitle.HorizontalAlignment = HorizontalAlignments.Centered;

    area = new MergeArea(2, 2, 1, 1);
    cellTitle = cells.AddValueCell(2, 1, "車號"); //第二行第一列 顯示車號
    sheet.AddMergeArea(area);
    cellTitle.Font.Bold = true;
    cellTitle.Font.Height = 16 * 16;
    cellTitle.Font.FontFamily = FontFamilies.Roman;
    cellTitle.HorizontalAlignment = HorizontalAlignments.Centered;
    cellTitle.VerticalAlignment = VerticalAlignments.Centered;
    cellTitle.TopLineStyle = 1;
    cellTitle.BottomLineStyle = 1;
    cellTitle.LeftLineStyle = 1;
    cellTitle.RightLineStyle = 1;

    area = new MergeArea(2, 2, 2, 2);
    cellTitle = cells.AddValueCell(2, 2, "姓名");
    sheet.AddMergeArea(area);
    cellTitle.Font.Bold = true;
    cellTitle.Font.Height = 16 * 16;
    cellTitle.Font.FontFamily = FontFamilies.Roman;
    cellTitle.HorizontalAlignment = HorizontalAlignments.Centered;
    cellTitle.VerticalAlignment = VerticalAlignments.Centered;
    cellTitle.TopLineStyle = 1;
    cellTitle.BottomLineStyle = 1;
    cellTitle.LeftLineStyle = 1;
    cellTitle.RightLineStyle = 1;

    #endregion

    var list = GetList();  //獲取數據

    for (int i = 0; i < list.Count; i++)
    {
        rowIndex++;
        cell = cells.AddValueCell(rowIndex, 1, list[i].VehicleNO);  //車號
        cell.TopLineStyle = 1;
        cell.BottomLineStyle = 1;
        cell.LeftLineStyle = 1;
        cell.RightLineStyle = 1;

        cell = cells.AddValueCell(rowIndex, 2, list[i].Name);   //姓名
        cell.TopLineStyle = 1;
        cell.BottomLineStyle = 1;
        cell.LeftLineStyle = 1;
        cell.RightLineStyle = 1;

    }
    xls.Send();
}

 

4.錯誤-未在本地計算機上注冊“Microsoft.ACE.OLEDB.12.0”提供程序

　　01.將平台換成X86

　　02.安裝 AccessDatabaseEngine.exe(點擊下載)

5.錯誤-服務器無法在發送HTTP標頭之后設置內容類型

　　給導出按鈕增加'全局刷新'的能力。本文例子是aspx做的

　在<asp:UpdatePanel> 標簽中 增加如下代碼即可

<Triggers>
    <%--<asp:AsyncPostBackTrigger ControlID="" />--%> <%--局部刷新 值刷新UpdatePanel內部 --%>
    <asp:PostBackTrigger ControlID="btnExport" /> <%--全部刷新 --%> <%--2016年7月1日 解決點擊導出按鈕報錯“服務器無法在發送HTTP標頭之后設置內容類型”的錯誤--%>
</Triggers>