数据导入Excel，word

一些项目须要打印报表等，简单的记录一下数据导入到Excel，word等

1导入到word 数据源为html表，或div指定区域里的内容

 

    function AllAreaWord()
{

  try{
   var oWD = new ActiveXObject("Word.Application");
  }catch(e)
  {
   alert("没法调用Office对象，请确保您的机器已安装了Office并已将本系统的站点名加入到IE的信任站点列表中！");
   return;
  }
var oDC = oWD.Documents.Add("",0,1);
var oRange =oDC.Range(0,1);
var sel = document.body.createTextRange();
sel.moveToElementText(tab); //tab 为导出数据所在的表格ID
sel.select();
sel.execCommand("Copy");
oRange.Paste();
oWD.Application.Visible = true;
}

2导入到excel，数据源为datagrid

  //------------------------------数据导出到excel
       function excel()
       {
          var xlApp;
             try
             {
               xlApp=new ActiveXObject("Excel.Application");
             }
             catch(e)
             {
               alert("excel未安装");
               return;
             }
             var xlWorkbook=xlApp.Workbooks.Add;
             var oSheet=xlWorkbook.ActiveSheet;
             oSheet.Name="成绩";
             //获取页面DataGrid
             var oTable=document.getElementById("ItemsGrid");
             var oRow;
             var curr_row,curr_cell;
             //设置数据的样式
//             var CellFormat=new Array("@","@","0.00","yyyy-MM-dd");
             for(curr_row=1;curr_row<oTable.rows.length+1;curr_row++)
             {
               oRow=oTable.rows[curr_row-1];
                 for(curr_cell=1;curr_cell<oRow.cells.length+1;curr_cell++)
                 {
                   //制定Excel Sheet中数据样式
//                   oSheet.Cells(curr_row,curr_cell).NumberFormatLocal=CellFormat[curr_cell-1];
                   //讲DataGrid中的数据插入到Excel中
                   oSheet.cells(curr_row,curr_cell).value=oRow.cells[curr_cell-1].innerHTML;
                 }
             }
             xlApp.Visible=true;
       }

 

3导入到excel，数据源为页面指定区域

 

//指定页面区域内容导入Excel
function AllAreaExcel()
{
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var sel=document.body.createTextRange();
sel.moveToElementText(PrintA);
sel.select();
sel.execCommand("Copy");
oSheet.Paste();
oXL.Visible = true;
}

 4.excel数据导入到数据库，网上找了个源码，供本身学习

http://blog.sina.com.cn/s/blog_60b5d4b20100dknq.html