將資料匯入excel表格

標籤：

 var oExcel = new ActiveXObject("Excel.application");  //建立Excel對象
    var oWork =oExcel.Workbooks.Add();                     //建立一個Excel活頁簿
    var oSheet =oWork.ActiveSheet;                      //指定要寫入內容的工作表為使用中工作表
    var table =document.all.table1;             //指定要寫入的資料來源的id
    var myRow =table.rows.length;              //取資料來源行數
    var myCell =table.rows(0).cells.length;          //取資料來源列數
 
    for(i=0;i<myRow;i++){  //在Excel中寫行
        for(j=0;j<myCell;j++){  //在Excel中寫列
            //定義格式
            if ((i==0) | (i==myRow-1)){
                oSheet.Cells(i+1,j+1).Font.Bold =true;   //加粗
                oSheet.Cells(i+1,j+1).Font.Size =12;   //字型大小
            }else{
                oSheet.Cells(i+1,j+1).Font.Bold =false;   
                oSheet.Cells(i+1,j+1).Font.Size =10;   //字型大小   
            }
            oSheet.Cells(i+1,j+1).value =table.rows(i).cells(j).innerText;   //向儲存格寫入值
        }
    }
    oExcel.Visible = true;
    oExcel.UserControl = true;

將資料匯入excel表格