Sub Initialize On Error Goto errhandle Msgbox "流程节点处理人扫描开始..." Dim dc As NotesDocumentCollection Dim doc As NotesDocument Dim formula As String Dim encoding As String Set session=New NotesSession Set cdb=session.CurrentDatabase Set namesDb=session.GetDatabase(cdb.Server, "names.nsf") encoding = session.GetEnvironmentString("LKS_IOEncoding") If encoding = "" Then encoding = "UTF-8" '打印文件头 %rem Print | Content-Type:application/vnd.ms-excel| Print | Content-Disposition:Attachment;charset="| & encoding & |";filename=FlowErrerNode.xls| Print | <HTML><HEAD><META http-equiv=Content-Type content="text/html; charset=| & encoding & |"></HEAD><Body>| %end rem Print |Content-Type:application/vnd.ms-excel| Print {Content-Disposition:Attachment;charset="} & encoding & {";filename=FlowErrerNode.xls} Print {<HTML><HEAD><META http-equiv=Content-Type content="text/html; charset=}& encoding &{"></HEAD><Body>} '打印文件列标题 Print | <table width=92% border=0 align=center cellpadding=0 cellspacing=0> | '获取所有待审的流程文档 formula="Select Form='FM_FlowDoc' & F_DocStatus='待审'" Set dc=cdb.Search(formula,Nothing,0) Set doc=dc.GetFirstDocument While Not doc Is Nothing Call CheckNodeReviewer(doc) Set doc=dc.GetNextDocument(doc) Wend Print | </table> </body> </html>| Msgbox "流程节点处理人扫描结束..." Exit Sub errhandle: Msgbox "Server:"+cdb.Server+"Database:"+cdb.FileName+"->Agent扫描流程文档人员异常节点)->Initialize: error on line:"+Cstr(Erl)+": "+Error End Sub 以上代码 使用 %rem 中的代码不可以导出到excel而是 显示在页面上 |
Sub Initialize On Error Goto errhandle Msgbox "流程节点处理人扫描开始..." Dim dc As NotesDocumentCollection Dim doc As NotesDocument Dim formula As String Dim encoding As String Set session=New NotesSession Set cdb=session.CurrentDatabase Set namesDb=session.GetDatabase(cdb.Server, "names.nsf") encoding = session.GetEnvironmentString("LKS_IOEncoding") If encoding = "" Then encoding = "UTF-8" '打印文件头 %rem Print | Content-Type:application/vnd.ms-excel| Print | Content-Disposition:Attachment;charset="| & encoding & |";filename=FlowErrerNode.xls| Print | <HTML><HEAD><META http-equiv=Content-Type content="text/html; charset=| & encoding & |"></HEAD><Body>| %end rem Print |Content-Type:application/vnd.ms-excel| Print {Content-Disposition:Attachment;charset="} & encoding & {";filename=FlowErrerNode.xls} Print {<HTML><HEAD><META http-equiv=Content-Type content="text/html; charset=}& encoding &{"></HEAD><Body>} '打印文件列标题 Print | <table width=92% border=0 align=center cellpadding=0 cellspacing=0> | '获取所有待审的流程文档 formula="Select Form='FM_FlowDoc' & F_DocStatus='待审'" Set dc=cdb.Search(formula,Nothing,0) Set doc=dc.GetFirstDocument While Not doc Is Nothing Call CheckNodeReviewer(doc) Set doc=dc.GetNextDocument(doc) Wend Print | </table> </body> </html>| Msgbox "流程节点处理人扫描结束..." Exit Sub errhandle: Msgbox "Server:"+cdb.Server+"Database:"+cdb.FileName+"->Agent扫描流程文档人员异常节点)->Initialize: error on line:"+Cstr(Erl)+": "+Error End Sub 以上代码 使用 %rem 中的代码不可以导出到excel而是 显示在页面上 |