js操作excel读模板

AddZDaddress.js

Code [http://www.xueit.com]

<!--



Code highlighting produced by Actipro CodeHighlighter (freeware)

http://www.CodeHighlighter.com/



-->///////////////////////////////////////////////////////////////////////////////////////////////////
////DocName:信任站点地址添加--AddZDaddress.js
////Author:lify
////Company:Wavenet
////Date:2009-11-04
////EditDate:2010-03-11
////MainContent:Findings,Ajax And So On;
//////////////////////////////////////////////////////////////////////////////////////////////////
var BelieveAddress='172.18.1.25/psc1';////配置地址配置程序时需要的配置地址

////**********************************Excel 导入到WEB界面模板地址集合*******************************************//
//////////////////////////飞行检测excel模板地址配置/////////////////////////////////////////////////////////////
var template_path_FxjcExcelDatasIntoSqlDatas = "http://%22 believeaddress %22/NewReports/xls_template/飞行检测城镇污水厂进出水主要污染物浓度.xls";
////////////////////////////////////////////////////////////////////////////////////////////////////////////////
////***********************************************************************************************************//

 

////*********************************Excel 录入模板导入地址集合**********************************************//
//////////////////////////月报导入excel地址配置//////////////////////////////////
var template_path_month = "http://%22 believeaddress %22/NewReports/xls_template/上海市污水处理企业生产运行表.xls";
/////////////////////////////////////////////////////////////////////////////////
//////////////////////////年报导入excel地址配置//////////////////////////////////
var template_path_year = "http://%22 believeaddress %22/NewReports/xls_template/上海市污水处理设施信息表.xls";
////*********************************************************************************************************//
//图片地址
var pic_path="http://%22 believeaddress %22/NewReports/";
/////////////////////////////////////////////////////////////////////////////////

再次，怎么样把页面数据读取到Excel中JS，如下：

YearReportLuRu.js

Code [http://www.xueit.com]

<!--



Code highlighting produced by Actipro CodeHighlighter (freeware)

http://www.CodeHighlighter.com/



-->///////////////////////////////////////////////////////////////////////////////////////////////////

////DocName:污水处理设施信息表(年报)-录入报表--YearReportLuRu.js
////Author:lify
////Company:Wavenet
////Date:2009-08-14
////EditDate:2009-08-14
////MainContent:Findings,Ajax And So On;
///////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////添加正则表达式类/////////////////////////////////////////////////////////////
document.write("<script language=\"javascript\" type=\"text/javascript\" src=\"js/RegularExpression.js\"><\/script>");
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

 

function AutomateExcel3()
{

    //alert(pic_path document.getElementById("ImgUrl").value);//测试
    var xls = new ActiveXObject("Excel.Application");
    xls.Visible = true;
    var newBook = xls.Workbooks.Open(template_path_year);//这里的Add方法里的参数是模板的路径
    var  oSheet=newBook.ActiveSheet;
////////////////////////////////////////////写入数据到模板中////////////////////////////////////////////////////////////
    ///////////////法人单位名称/////////////////////////////////////////////////////////////////////////////////////////////
    oSheet.Cells(2,3).value = Trim(PT.rows[0].cells[1].innerText);
    ///////////////法人单位代码以及代表姓名/////////////////////////////////////////////////////////////////////////////////////////////////
    oSheet.Cells(2,9).value = Trim(PT.rows[0].cells[3].innerText);
    oSheet.Cells(2,13).value = Trim(PT.rows[0].cells[5].innerText);
    //////////////进出口三张表/////////////////////////////////////////////////////////////////////////////////////////
    oSheet.Cells(3,2).value=Trim(PT.rows[1].cells[1].innerText);
    oSheet.Cells(3,6).value=Trim(PT.rows[1].cells[3].innerText);
    oSheet.Cells(3,8).value=Trim(PT.rows[1].cells[5].innerText);
    oSheet.Cells(3,10).value=Trim(PT.rows[1].cells[7].innerText);
    oSheet.Cells(3,13).value=Trim(PT.rows[1].cells[9].innerText);
    
    oSheet.Cells(4,2).value=Trim(PT.rows[2].cells[1].innerText);
    oSheet.Cells(4,4).value=Trim(PT.rows[2].cells[3].innerText);
    oSheet.Cells(4,6).value=Trim(PT.rows[2].cells[5].innerText);
    oSheet.Cells(4,8).value=Trim(PT.rows[2].cells[7].innerText);
    oSheet.Cells(4,10).value=Trim(PT.rows[2].cells[9].innerText);
    oSheet.Cells(4,12).value=Trim(PT.rows[2].cells[11].innerText);
    oSheet.Cells(4,14).value=Trim(PT.rows[2].cells[13].innerText);
    
    oSheet.Cells(5,2).value=Trim(PT.rows[3].cells[1].innerText);
    oSheet.Cells(5,5).value=Trim(PT.rows[3].cells[3].innerText);
    oSheet.Cells(5,8).value=Trim(PT.rows[3].cells[5].innerText);
    oSheet.Cells(5,10).value=Trim(PT.rows[3].cells[7].innerText);
    oSheet.Cells(5,12).value=Trim(PT.rows[3].cells[9].innerText);
    oSheet.Cells(5,14).value=Trim(PT.rows[3].cells[11].innerText);

    //////////////年运行简况///////////////////////
    oSheet.Cells(6,4).value = Trim(PT.rows[4].cells[3].innerText);
    oSheet.Cells(6,6).value = Trim(PT.rows[4].cells[5].innerText);
    oSheet.Cells(6,8).value = Trim(PT.rows[4].cells[7].innerText);
    oSheet.Cells(6,10).value = Trim(PT.rows[4].cells[9].innerText);
    oSheet.Cells(6,12).value = Trim(PT.rows[4].cells[11].innerText);
    oSheet.Cells(6,14).value = Trim(PT.rows[4].cells[13].innerText);
    
    oSheet.Cells(7,4).value = Trim(PT.rows[5].cells[2].innerText);
    oSheet.Cells(7,6).value = Trim(PT.rows[5].cells[4].innerText);
    oSheet.Cells(7,8).value = Trim(PT.rows[5].cells[6].innerText);
    oSheet.Cells(7,10).value = Trim(PT.rows[5].cells[8].innerText);
    oSheet.Cells(7,12).value = Trim(PT.rows[5].cells[10].innerText);
    oSheet.Cells(7,14).value = Trim(PT.rows[5].cells[12].innerText);
    
    //////////////年处理水量///////////////////////
    oSheet.Cells(8,2).value = Trim(PT.rows[6].cells[1].innerText);
    oSheet.Cells(8,5).value = Trim(PT.rows[6].cells[3].innerText);
    oSheet.Cells(8,8).value = Trim(PT.rows[6].cells[5].innerText);
    oSheet.Cells(8,11).value = Trim(PT.rows[6].cells[7].innerText);
    oSheet.Cells(8,14).value = Trim(PT.rows[6].cells[9].innerText);
    
    //////////////污水厂工艺概况///////////////////////
    oSheet.Cells(10,3).value = Trim(PT.rows[8].cells[1].innerText);
    oSheet.Cells(10,4).value = Trim(PT.rows[8].cells[2].innerText);
    oSheet.Cells(10,5).value = Trim(PT.rows[8].cells[3].innerText);
    oSheet.Cells(10,7).value = Trim(PT.rows[8].cells[4].innerText);
    
    oSheet.Cells(11,3).value = Trim(PT.rows[9].cells[1].innerText);
    oSheet.Cells(11,4).value = Trim(PT.rows[9].cells[2].innerText);
    oSheet.Cells(11,5).value = Trim(PT.rows[9].cells[3].innerText);
    oSheet.Cells(11,7).value = Trim(PT.rows[9].cells[4].innerText);
    
    oSheet.Cells(12,3).value = Trim(PT.rows[10].cells[1].innerText);
    oSheet.Cells(12,4).value = Trim(PT.rows[10].cells[2].innerText);
    oSheet.Cells(12,5).value = Trim(PT.rows[10].cells[3].innerText);
    oSheet.Cells(12,7).value = Trim(PT.rows[10].cells[4].innerText);
    //--------------------------运行费用分析-------------------------------------//
    oSheet.Cells(13,3).value = Trim(PT.rows[11].cells[2].innerText);
    oSheet.Cells(13,5).value = Trim(PT.rows[11].cells[4].innerText);
    oSheet.Cells(13,7).value = Trim(PT.rows[11].cells[6].innerText);
    oSheet.Cells(13,9).value = Trim(PT.rows[11].cells[8].innerText);
    ////////////////////////////////厂外输送泵站示意图////////////////////////////
    //copy(document.getElementById("ImgUrl"));
    //oSheet.Pictures.Insert(pic_path document.getElementById("ImgUrl").value);///////.Cells(13,11)
    var msoShaoeRectangle = 1;//AddShape(透明度，左，上，宽度，高度)
    oSheet.Shapes.AddShape(msoShaoeRectangle, 560, 330, 200, 150).Fill.UserPicture(pic_path document.getElementById("ImgUrl").value);
    //oSheet.Cell(13,11).select();//选中excel的单元格
    //oSheet.Pictures.Insert(PT.rows[11].cells[8].getElementById("ImgUrl").src);
    //////////////////////////////////////////////////////////////////////////////
    
    oSheet.Cells(14,3).value = Trim(PT.rows[12].cells[1].innerText);
    oSheet.Cells(14,5).value = Trim(PT.rows[12].cells[3].innerText);
    oSheet.Cells(14,7).value = Trim(PT.rows[12].cells[5].innerText);
    oSheet.Cells(14,9).value = Trim(PT.rows[12].cells[7].innerText);
    
    oSheet.Cells(15,3).value = Trim(PT.rows[13].cells[1].innerText);
    oSheet.Cells(15,5).value = Trim(PT.rows[13].cells[3].innerText);
    oSheet.Cells(15,7).value = Trim(PT.rows[13].cells[5].innerText);
    oSheet.Cells(15,9).value = Trim(PT.rows[13].cells[7].innerText);
    
    oSheet.Cells(16,5).value = Trim(PT.rows[14].cells[1].innerText);
    oSheet.Cells(16,7).value = Trim(PT.rows[14].cells[3].innerText);
    oSheet.Cells(16,9).value = Trim(PT.rows[14].cells[5].innerText);
    
    oSheet.Cells(17,3).value = Trim(PT.rows[15].cells[1].innerText);
    oSheet.Cells(17,5).value = Trim(PT.rows[15].cells[3].innerText);
    oSheet.Cells(17,7).value = Trim(PT.rows[15].cells[5].innerText);
    //---------------------------------------------------------------------------//
    //////////////污水厂表下方信息///////////////////////
    oSheet.Cells(18,2).value = Trim(RT.rows[0].cells[1].innerText);
    oSheet.Cells(18,7).value = Trim(RT.rows[0].cells[3].innerText);
    oSheet.Cells(18,11).value = Trim(RT.rows[0].cells[5].innerText);
    oSheet.Cells(18,14).value = Trim(RT.rows[0].cells[7].innerText);
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    xls.Visible = true;
    xls.UserControl = true;
    xls = null;   
    idTmr = window.setInterval("Cleanup();",1);  
    //xls.quit();
}
function Cleanup()
{   
          window.clearInterval(idTmr);   
          CollectGarbage();   
} 
function copy(tabid){ 
var oControlRange = document.body.createControlRange(); 
oControlRange.add(tabid,0); 
oControlRange.select(); 
document.execCommand("Copy"); 
}