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...

.net实现excel导入导出实例代码

  • 2008年08月26日 23:04
  • 149KB
  • 下载

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

asp.net 读取并显示excel数据的实现代码 发布:mdxy-dxy 字体:[增加 减小] 类型:转载 Microsoft Office Excel是一个很好的电...

npoihelper .net 平台excel生成代码

  • 2013年09月29日 10:55
  • 352KB
  • 下载

.net Excel数据导入到数据库

做为一名开发人员来说,数据的导入导出是很常见的一件事,不管我们要的是什么格式的文件导入,都是有很多种方法来实现的,初学.net的朋友都会碰到Excel数据的导入,呵呵...我以前也是这样过来的,现在我...

ExcelHelper(Excel和C#、asp.net导入导出,通用类)(二)

http://blog.163.com/it_software/blog/static/1238582962010518113452975/ ///   /// 将DataTab...
  • plean
  • plean
  • 2011年08月17日 16:55
  • 839
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:NET与EXCEL的有效导入代码
举报原因:
原因补充:

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