domino导出数据至Excel

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

<table style="WIDTH: 99%; BORDER-COLLAPSE: collapse" class="linkeytable">
<tbody>
<tr>
<td width="15%" align="right">受理时间：</td>
<td width="85%">从 
<input name="dStart" />到 
<input name="dEnd" /></td>
</tr>
<tr>
<td width="15%" align="right">
<input class="lsbtn" onclick="ExportExcel()" name="toExcel" value="导出Excel" type="button" /></td>
<td width="85%">
<table style="WIDTH: 40%; BORDER-COLLAPSE: collapse">
<tbody>
<tr>
<td width="33.33%">
<input class="lschk" name="sMutiCol" value="FeedBackUnion" checked="checked" type="checkbox" />用户单位</td>
<td width="33.33%">
<input class="lschk" name="sMutiCol" value="callback" checked="checked" type="checkbox" />是否回电</td>
<td width="33.33%">
<input class="lschk" name="sMutiCol" value="zdds" checked="checked" type="checkbox" />中断局点数</td>
</tr>
<tr>
<td width="33.33%">
<input class="lschk" name="sMutiCol" value="overseas" checked="checked" type="checkbox" />地域</td>
<td width="33.33%">
<input class="lschk" name="sMutiCol" value="customerclass" checked="checked" type="checkbox" />客户级别</td>
<td width="33.33%">
<input class="lschk" name="sMutiCol" value="ProblemDes" checked="checked" type="checkbox" />问题描述</td>
</tr>
<tr>
<td width="33.33%">
<input class="lschk" name="sMutiCol" value="ProblemType2" checked="checked" type="checkbox" />问题类型</td>
<td width="33.33%">
<input class="lschk" name="sMutiCol" value="DealTimeNeeded" checked="checked" type="checkbox" />希望解决时间</td>
<td width="33.33%">
<input class="lschk" name="sMutiCol" value="ID3" checked="checked" type="checkbox" />指定问题接口人</td>
</tr>
<tr>
<td width="33.33%">
<input class="lschk" name="sMutiCol" value="FeedBackMan" checked="checked" type="checkbox" />客户姓名</td>
<td width="33.33%">
<input class="lschk" name="sMutiCol" value="province" checked="checked" type="checkbox" />省份</td>
<td width="33.33%">
<input class="lschk" name="sMutiCol" value="SerialNo" checked="checked" type="checkbox" />编号</td>
</tr>
<tr>
<td width="33.33%">
<input class="lschk" name="sMutiCol" value="ConnectPhone" checked="checked" type="checkbox" />联系电话 </td>
<td width="33.33%">
<input class="lschk" name="sMutiCol" value="fldzdsj" checked="checked" type="checkbox" />工程中断发生时间</td>
<td width="33.33%">
<input class="lschk" name="sMutiCol" value="FeedBacktime" checked="checked" type="checkbox" />受理时间</td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table>
<div style="DISPLAY: none" id="rs">&nbsp;</div>

——————————————————————————————————————————————————————————————————————————————————————

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

function ExportExcel(){
var doc =document;
var objs=doc.getElementsByName("sMutiCol");
var arr=new Array();
var arr2=new Array();
var j=0;
for(i=0;i<objs.length;i++){
if(objs[i].checked==true){
arr[j]=objs[i].value;
arr2[j]=objs[i].nextSibling.nodeValue;
j=j+1;
}
}
var str=arr.join("#");
var str2=arr2.join("#");
var dStart=GetObj("dStart").value;
var dEnd=GetObj("dEnd").value;
if(dStart=="" || dEnd==""){ alert("开始及结束日期不得为空！");}
else{
var url="/"+folder+"/app.nsf/WF_RunRule?openagent&RuleNum=RUh3cts001_005";
$(function(){
$.post(url,{dstart:dStart,dend:dEnd,str:str,str2:str2},function(data){
$("#rs").html(data); 
var curT=doc.getElementById("tab");
var oXL=new ActiveXObject("Excel.Application");
var oWB=oXL.Workbooks.add();
var oSheet=oWB.ActiveSheet;
var lenRow=curT.rows.length;
for (i = 0; i < lenRow; i++){
var lenCol = curT.rows(i).cells.length;
for (j = 0; j < lenCol; j++){
oSheet.Cells(i + 1, j + 1).value = "'"+curT.rows(i).cells(j).innerText; 
}
}
oXL.Visible = true;
});
});
}
}

—————————————————————————————————————————————————————————————————————————

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