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部分
—————————————————————————————————————————————————————————————————————————Sub Initialize
On Error Goto errormsg
msgbox "h3cts001:Export Begin"
dim se as new notessession
dim curdoc as notesdocument
dim sql as string

set curdoc=se.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 |<meta http-equiv="Content-Type" content="text/html; charset=GBK">|
htmlstr = htmlstr & "<table border=1 style='border-collapse:collapse' id='tab'>"
htmlstr = htmlstr & "<tr>"
for i=0 to j
htmlstr = htmlstr & "<td>" & items2(i) & "</td>"
next
htmlstr = htmlstr & "</tr>"

while WF_Con.fetch(fldlst)>0
set tmpdoc=rdb.GetTmpDoc(fldlst)
htmlstr = htmlstr & "<tr>"
for i=0 to j
set e=tmpdoc.GetFirstItem(items(i))
if not e is nothing then
htmlstr = htmlstr & "<td>" & e.Text & "</td>"
else
htmlstr = htmlstr & "<td>" & "" & "</td>"
end if
next
htmlstr = htmlstr & "</tr>"
wend

Print htmlstr
msgbox "h3cts001:Export OK"
Exit Sub
errormsg:
Msgbox "Rule Error:" & Str(Erl) & " " & Error
End Sub