导出到 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而是 显示在页面
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而是 显示在页面
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值