从NOTES视图中导出EXCEL表及word文档
来源:互联网 发布:平安网络招聘话术 编辑:程序博客网 时间:2024/05/21 22:38
代码:
%INCLUDE "lsconst.lss"
%INCLUDE "lsxbeerr.lss"
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim v As NotesView
Dim docX As NotesDocument
Dim col As Integer
Dim lineitem As String
Dim View As String
Set db = session.CurrentDatabase
Print |Content-Type:application/vnd.ms-excel; charset=GB2312|
Print |Content-Disposition:Attachment; filename="Report.xls"|
' On Error Goto errorHandler
View="$AttachmentView" ' 这里加上转换的视图名称
Set v = db.GetView(View$)
Call v.refresh
col=1
Print ||
Print | <TABLE border=1>|
lineitem=""
Forall vColumn In v.Columns
If col=1 Then
lineitem=| <TBODY> <TR> <TH align=middle><FONT color=#0000ff size=3>|+vColumn.Title
Else
lineitem=lineitem+|</FONT> <TH align=middle><FONT color=#0000ff size=3>|+vColumn.Title
End If
col=col+1
End Forall
lineitem=lineitem
Print lineitem
Set docX=v.GetFirstDocument
lineitem=""
While Not docX Is Nothing
col=1
Forall cValue In docX.ColumnValues
If col=1 Then
lineitem=|</FONT> <TR>|
End If
If cValue="" Then
lineitem=lineitem+| <TD> </TD>|
Elseif Isdate(cValue) Then
lineitem=lineitem+| <TD style="vnd: dd-mmm-yyyy" align=right>|+cValue+||<BR> Elseif Isnumeric(cValue) Then
If (v.columns(col-1).numberformat=3) Then
lineitem=lineitem+|
Else
lineitem=lineitem+| <TD align=right>|+cValue+||<BR> End If
Else
lineitem=lineitem+| <TD>|+cValue+||
End If
col=col+1
End Forall
Print lineitem+||
Set docX=v.GetNextDocument(docX)
Wend
Print |</TBODY></TABLE>|
Exit Sub
errorHandler:
Print "代理运行时出错 " & Err() & " : " & Error() & " - 行号为: "+Cstr (Erl) & Chr$(13)
Exit Sub
End Sub
以上是指定一个视图,先顺序地读取其列头,然后顺序地读一条一条的记录,打印出来。选择不同的协议,如”Print |Content-Type:application/vnd.ms-excel; charset=GB2312| ”,打印excel文档、“Print |Content-Type:application/vnd.ms-word; charset=GB2312| ”,打印word文档。代理中其他相应的地方也要进行改动。
进行改进:可以通过让代理先读取一个config文件,里面事先指定好视图的名称、可以导出的列的名称及在视图中的序列号,这样首先通过一个选择页面进行选择,然后再导出。
- 从NOTES视图中导出EXCEL表及word文档
- 从NOTES视图中导出EXCEL表及word文档
- Excel vba从excel中导出表格数据和图表到新word文档
- 从数据库导出数据生成word或excel文档
- 导出Excel或word文档
- 从数据库导出word,excel
- 从Word文档中修改Excel Chart的内容
- DataGrid导出到Word/Excel文档
- Excel文件导出为Word文档
- java开发导出Excel和Word文档
- 项目中导出word文档
- Excel及Word的导入及导出
- C#从Datagrid中导出EXCEL表
- C#中导出excel文档
- MFC从数据库里导出excel文档
- MFC从数据库里导出excel文档
- 从数据库中导出数据库文档(新增了索引及表的描述信息)
- word文档从服务器导出(用freemarker模板导出)
- BBS 设计思路系列 ---- 普通网友如何投诉一个帖子??
- 关于John Carmack
- 励志人生:青年人职场生存七大勇气不可缺少
- Servlet 技术
- 我的工具集
- 从NOTES视图中导出EXCEL表及word文档
- 在电脑桌前运动(Zt)
- 8个笑话
- 串口通讯
- jdb 调试Servlet(TOMCAT)
- 电脑前的护眼窍门 - zt
- csdn社区技术文章收藏
- 电脑族的营养饮食食谱 - zt
- Linux下访问Windows硬盘分区