如何将视图中的数据导出到*.CSV文件中

可以使用lotus自带的引出功能:
第一步:
    引出,选用LOUTES 1-2-3,格式,并加上后缀“.wk3”
第二步:
    用EXCEL打开,并另存为CSV格式

LS代码实现(一种方法是使用写文件的方式):
这些脚本放在代理中,操作对象选择“所有选定文档”,通过视图操作调用,调用公式:@Command([ToolsRunMacro]; …

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub Click(Source As Button)
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim coll As NotesDocumentCollection
Dim doc As NotesDocument
Dim item As notesitem, txt As String
Dim i As Integer, fileNum As Integer, fileName As Variant, strAppend As String, tmpstr As String
Dim num As Integer
FileName=ws.OpenFileDialog( True, "Export File", "CSV Documents(*.csv)|*.csv|Text Documents(*.txt)|*.txt", "", "")
If Isempty(FileName) Then
Exit Sub
Else
If FileName(0)="" Then
Exit Sub
End If
End If
fileNum% = Freefile()
Open fileName(0) For Output As fileNum%
Set db = session.CurrentDatabase
strAppend = "Title,Content" 'print column title
Print #fileNum%, strAppend
Set coll = db.UnprocessedDocuments
num = 0
For i=1 To coll.Count 'print column of each selected document
Set doc = coll.GetNthDocument(i)
strAppend = Cstr(doc.Title(0))+ ","+ Cstr(doc.Content(0))
Print #fileNum%, strAppend
num = num + 1
Next
Close fileNum%
Messagebox Cstr(num) + " documents have been exported. ",64,"Lotus Notes"
End Sub

坚持原创及高品质技术分享,您的支持将鼓励我继续创作!