C#导入Excel表

在  <system.web>中添加<identity impersonate="true"/>

using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;

public partial class _Default : System.Web.UI.Page
{
    protected void Page_Load(object sender, EventArgs e)
    {
        string sFile = Server.MapPath("2006222102122.xls");       
        Excel.Application oExcel = new Excel.Application();
        object objMissing = System.Reflection.Missing.Value;
        Excel.Workbook mybook = (Excel.Workbook)oExcel.Workbooks.Open(sFile, objMissing, objMissing, objMissing, objMissing, objMissing, objMissing, objMissing, objMissing, objMissing, objMissing, objMissing, objMissing, objMissing, objMissing);
        Excel.Sheets excelSheets = mybook.Worksheets;
        Excel.Worksheet xlsheet = (Excel.Worksheet)excelSheets.get_Item(1);
        int i=1;
        while (xlsheet.get_Range(xlsheet.Cells[i, 1], xlsheet.Cells[i, 1]).Text.ToString()!="")
        {
            Response.Write(xlsheet.get_Range(xlsheet.Cells[i, 1], xlsheet.Cells[i, 1]).Text.ToString() + "--");
            Response.Write(xlsheet.get_Range(xlsheet.Cells[i, 2], xlsheet.Cells[i, 2]).Text.ToString() + "--");
            Response.Write(xlsheet.get_Range(xlsheet.Cells[i, 3], xlsheet.Cells[i, 3]).Text.ToString() + "--");
            Response.Write(xlsheet.get_Range(xlsheet.Cells[i, 4], xlsheet.Cells[i, 4]).Text.ToString() + "--");
            Response.Write(xlsheet.get_Range(xlsheet.Cells[i, 5], xlsheet.Cells[i, 5]).Text.ToString() + "--");
            Response.Write(xlsheet.get_Range(xlsheet.Cells[i, 6], xlsheet.Cells[i, 6]).Text.ToString() + "--");
            Response.Write(xlsheet.get_Range(xlsheet.Cells[i, 7], xlsheet.Cells[i, 7]).Text.ToString() + "--");
            Response.Write(xlsheet.get_Range(xlsheet.Cells[i, 8], xlsheet.Cells[i, 8]).Text.ToString() + "<br/>");
            i++;
        }
        mybook = null;
        xlsheet = null;
        oExcel.Quit();
    }
}

posted @ 2006-09-29 09:45  '.Elvis.'  阅读(484)  评论(0编辑  收藏  举报