NET与EXCEL的有效导入代码

原创 2006年06月14日 15:35:00

   Excel.ApplicationClass exl=new Excel.ApplicationClass();
   Excel.Workbook wb = exl.Workbooks.Open(
    sExcelFileName,
    System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing,
    System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing,
    System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing
    );
   Excel._Worksheet ws=(Excel._Worksheet)wb.Worksheets[sSheetName];
   System.Data.DataTable NewDataTable=new System.Data.DataTable("TableData");
   NewDataTable.Columns.Add("Cell");
   NewDataTable.Columns.Add("Shift");
   NewDataTable.Columns.Add("Manufacture_Order");
   NewDataTable.Columns.Add("Line");
   NewDataTable.Columns.Add("Customer Order");
   NewDataTable.Columns.Add("Item No");
   NewDataTable.Columns.Add("SIZE");
   NewDataTable.Columns.Add("Plan_Qty");
   NewDataTable.Columns.Add("Plan_Time");
   NewDataTable.Columns.Add("Plan_OT");
   NewDataTable.Columns.Add("UNBUDGET_HR");
   NewDataTable.Columns.Add("UNBUDGET_RSN");
   NewDataTable.Columns.Add("REMARK");

   int nRowi=7;
   int nClnj;
   double nQty;
   string sCell;
   while (true)
   {
    System.Data.DataRow myRow=NewDataTable.NewRow();
    sCell=((Excel.Range)ws.UsedRange.Cells[nRowi,2]).Text.ToString().Trim();
    if (sCell=="")
    {
     break;
    }
    for (nClnj=2;nClnj<15;nClnj++)
    {
     sCell=((Excel.Range)ws.UsedRange.Cells[nRowi,nClnj]).Text.ToString().Trim();
     if (nClnj==8 || nClnj==9 || nClnj==10 || nClnj==11 || nClnj==12)
     {
      if (sCell=="")
       myRow[nClnj-2]="0" ;
      else
       myRow[nClnj-2]=sCell ;
      try
      {
       nQty=Convert.ToDouble(myRow[nClnj-2]);
      }
      catch
      {
       nClnj++;
       Console(nClnj+"列数据类型非数字型!");
       return null;
      }
     }
     else
     {
      myRow[nClnj-2]=sCell ;
     }
    }
    nRowi++;
    NewDataTable.Rows.Add(myRow);
   }
   ws=null;
   wb.Close(Type.Missing ,Type.Missing,Type.Missing);
   exl.Quit();
   wb=null;
   exl=null;
   if (nRowi==7) NewDataTable=null;
   return NewDataTable;

版权声明:本文为博主原创文章,未经博主允许不得转载。 举报

相关文章推荐

SQL Server中导入/导出 Excel (包括SQL实现和Net代码实现)的基本方法 .

1.从SQL Server中导入/导出 Excel 的基本方法 我的导入EXCEL方法        if exists (select * from dbo...

asp.net 读取并显示excel数据的实现代码

asp.net 读取并显示excel数据的实现代码 发布:mdxy-dxy 字体:[增加 减小] 类型:转载 Microsoft Office Excel是一个很好的电...
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)