从NOTES视图中导出EXCEL表及word文档

原创 2004年09月07日 17:20:00

代码:

%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+|

|+cValue+||
    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文件,里面事先指定好视图的名称、可以导出的列的名称及在视图中的序列号,这样首先通过一个选择页面进行选择,然后再导出。

lotus domino EXCEL导出功能开发

利用JAVA代理实现
  • wendykui
  • wendykui
  • 2017-02-17 14:00:45
  • 753

lotus中的视图文档输出ViewToPDF

用到了iText库,可以下载,import lotus.domino.*;import java.io.*;import com.lowagie.text.*;import com.lowagie.t...
  • snowdot23
  • snowdot23
  • 2004-12-05 14:16:00
  • 875

Notes导入excel表格

Sub Click(Source As Button) Dim ws As New NotesUIWorkspace Dim ss As New NotesSession Dim db As Note...
  • liuchang__
  • liuchang__
  • 2014-08-11 17:09:03
  • 712

Notes文档中附件批量导出到本地系统

Type BROWSEINFO   hOwner As Long   pidlRoot As Long   pszDisplayName As String   lpszTitle As St...
  • liuchang__
  • liuchang__
  • 2017-01-19 14:51:18
  • 558

从NOTES视图中导出EXCEL表及word文档

代码:%INCLUDE "lsconst.lss"%INCLUDE "lsxbeerr.lss"Sub Initialize   Dim session As New NotesSession Dim...
  • huixyn
  • huixyn
  • 2004-09-07 17:20:00
  • 2466

使用Domino Designer修改Notes表单及<em>视图</em>办法

Domino表单导入<em>导出</em>XML方法 时间:2018-3-23 Domino R8+版本编写及调用webservice...<em>Lotus</em> Domino Notes表单,页面,<em>视图</em>,文档,域之间的关系 Domino中表单、页面、<em>视图</em>...
  • 2018年03月27日 00:00

从NOTES视图中导出EXCEL表及word文档

代码:%INCLUDE "lsconst.lss"%INCLUDE "lsxbeerr.lss"Sub Initialize   Dim session As New NotesSession Dim...
  • jenfier
  • jenfier
  • 2005-12-15 10:08:00
  • 1257

Lotus视图中“未找到文档”的解决办法

1. 写代理,计算视图数量,在数量为0时隐藏视图。但是,如果视图中的文档的权限控制比较严格,那计算出来的数量可能不为0,但仍有“未找到文档”。2. 把“未找到文档”这几个字设为白色。没试过这种方法。这...
  • w5q7c3
  • w5q7c3
  • 2007-07-15 02:42:00
  • 973

lotus中Excel的导出

import java.io.PrintWriter; import lotus.domino.AgentBase; import lotus.domino.AgentContext; impo...
  • justjackwang
  • justjackwang
  • 2012-10-17 17:02:54
  • 809

plsql 导入导出表、数据、序列、视图

一、导出: 1、打开plsql
  • bzuld
  • bzuld
  • 2014-04-18 10:41:35
  • 35294
收藏助手
不良信息举报
您举报文章:从NOTES视图中导出EXCEL表及word文档
举报原因:
原因补充:

(最多只允许输入30个字)