domino Excelへのデータのエクスポート

HTML部分————————————————————————————————————————————————————————————————————————————————————

 1 <table style="WIDTH: 99%; BORDER-COLLAPSE: collapse" class="linkeytable">

 2 <tbody>

 3 <tr>

 4 <td width="15%" align="right"> ：</td>

 5 <td width="85%">  

 6 <input name="dStart" />  

 7 <input name="dEnd" /></td>

 8 </tr>

 9 <tr>

10 <td width="15%" align="right">

11 <input class="lsbtn" onclick="ExportExcel()" name="toExcel" value=" Excel" type="button" /></td>

12 <td width="85%">

13 <table style="WIDTH: 40%; BORDER-COLLAPSE: collapse">

14 <tbody>

15 <tr>

16 <td width="33.33%">

17 <input class="lschk" name="sMutiCol" value="FeedBackUnion" checked="checked" type="checkbox" /> </td>

18 <td width="33.33%">

19 <input class="lschk" name="sMutiCol" value="callback" checked="checked" type="checkbox" /> </td>

20 <td width="33.33%">

21 <input class="lschk" name="sMutiCol" value="zdds" checked="checked" type="checkbox" /> </td>

22 </tr>

23 <tr>

24 <td width="33.33%">

25 <input class="lschk" name="sMutiCol" value="overseas" checked="checked" type="checkbox" /> </td>

26 <td width="33.33%">

27 <input class="lschk" name="sMutiCol" value="customerclass" checked="checked" type="checkbox" /> </td>

28 <td width="33.33%">

29 <input class="lschk" name="sMutiCol" value="ProblemDes" checked="checked" type="checkbox" /> </td>

30 </tr>

31 <tr>

32 <td width="33.33%">

33 <input class="lschk" name="sMutiCol" value="ProblemType2" checked="checked" type="checkbox" /> </td>

34 <td width="33.33%">

35 <input class="lschk" name="sMutiCol" value="DealTimeNeeded" checked="checked" type="checkbox" /> </td>

36 <td width="33.33%">

37 <input class="lschk" name="sMutiCol" value="ID3" checked="checked" type="checkbox" /> </td>

38 </tr>

39 <tr>

40 <td width="33.33%">

41 <input class="lschk" name="sMutiCol" value="FeedBackMan" checked="checked" type="checkbox" /> </td>

42 <td width="33.33%">

43 <input class="lschk" name="sMutiCol" value="province" checked="checked" type="checkbox" /> </td>

44 <td width="33.33%">

45 <input class="lschk" name="sMutiCol" value="SerialNo" checked="checked" type="checkbox" /> </td>

46 </tr>

47 <tr>

48 <td width="33.33%">

49 <input class="lschk" name="sMutiCol" value="ConnectPhone" checked="checked" type="checkbox" />  </td>

50 <td width="33.33%">

51 <input class="lschk" name="sMutiCol" value="fldzdsj" checked="checked" type="checkbox" /> </td>

52 <td width="33.33%">

53 <input class="lschk" name="sMutiCol" value="FeedBacktime" checked="checked" type="checkbox" /> </td>

54 </tr>

55 </tbody>

56 </table></td>

57 </tr>

58 </tbody>

59 </table>

60 <div style="DISPLAY: none" id="rs">&nbsp;</div>

——————————————————————————————————————————————————————————————————————————————————————
JS部分——————————————————————————————————————————————————————————————————————————————————————

 1 function ExportExcel(){

 2 var doc =document;

 3 var objs=doc.getElementsByName("sMutiCol");

 4 var arr=new Array();

 5 var arr2=new Array();

 6 var j=0;

 7 for(i=0;i<objs.length;i++){

 8 if(objs[i].checked==true){

 9 arr[j]=objs[i].value;

10 arr2[j]=objs[i].nextSibling.nodeValue;

11 j=j+1;

12 }

13 }

14 var str=arr.join("#");

15 var str2=arr2.join("#");

16 var dStart=GetObj("dStart").value;

17 var dEnd=GetObj("dEnd").value;

18 if(dStart=="" || dEnd==""){ alert(" ！");}

19 else{

20 var url="/"+folder+"/app.nsf/WF_RunRule?openagent&RuleNum=RUh3cts001_005";

21 $(function(){

22 $.post(url,{dstart:dStart,dend:dEnd,str:str,str2:str2},function(data){

23 $("#rs").html(data); 

24 var curT=doc.getElementById("tab");

25 var oXL=new ActiveXObject("Excel.Application");

26 var oWB=oXL.Workbooks.add();

27 var oSheet=oWB.ActiveSheet;

28 var lenRow=curT.rows.length;

29 for (i = 0; i < lenRow; i++){

30 var lenCol = curT.rows(i).cells.length;

31 for (j = 0; j < lenCol; j++){

32 oSheet.Cells(i + 1, j + 1).value = "'"+curT.rows(i).cells(j).innerText; 

33 }

34 }

35 oXL.Visible = true;

36 });

37 });

38 }

39 }

—————————————————————————————————————————————————————————————————————————
LS部分————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————documentContext dim strFormular as string dim vData as variant dim vQry as variant dim items as variant,items2 as variant dim i as integer,j as integer dim vdt as string,vde as string,vStr as string,vStr2 as string strFormular="@URLDecode('Domino';Request_Content)"vData=Evaluate(strFormular,curdoc) vQry=split(vData(0),"&") vdt=strright(vQry(0),"=") vde=strright(vQry(1),"=") vStr=strright(vQry(2),"=") vStr2=strright(vQry(3),"=") items=split(vStr,"#") items2=split(vStr2,"#") j=ubound(items) dim fldlst as new lcfieldlist dim tmpdoc as notesdocument dim v as variant dim e as notesitem dim htmlstr as string sql=|select * from bpm_maindata where WF_DocStatus<>'DraftDoc' and WF_AppId='h3cts001' and WF_DocCreated between '|+vdt+|' and '|+vde+|'| call WF_Con.execute(sql,fldlst) Print |Content-Type:application/vnd.ms-excel;charset=GBK| Print || htmlstr = htmlstr & "" htmlstr = htmlstr & "" for i=0 to j htmlstr = htmlstr & "" next htmlstr = htmlstr & "" while WF_Con.fetch(fldlst)>0 set tmpdoc=rdb.GetTmpDoc(fldlst) htmlstr = htmlstr & ""for i=0 to j set e=tmpdoc.GetFirstItem(items(i)) if not e is nothing then htmlstr = htmlstr & ""else htmlstr = htmlstr & ""end if next htmlstr = htmlstr & ""wend Print htmlstr msgbox "h3cts001:Export OK"Exit Suberrormsg: Msgbox "Rule Error:"& Str(Erl) & ""& ErrorEnd Sub

"& items2(i) & "
"& e.Text & "	"& ""& "