數據導入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