Question

是否有一种方法可以使用脚本语言导出特定视图中的大量列的所有数据？

我使用以下代码以视角方式提取视图的标题

Dim column As NotesViewColumn
For n=0 To (view.ColumnCount-1)
    Set column = view.Columns( n )
    If n= (view.ColumnCount-1) Then
        titles=titles+column.Title
    Else
        titles=titles+column.Title+","
    End If
Next

但我不知道如何在代码中没有插入所有列值数据＆＃34;固定＆＃34;像fileds这样的数据。它有可能吗？

Answer 1

您可以使用NotesDocument或NotesViewEntry类的ColumnValues属性。要使用前者，请使用NotesDocument和NotesView遍历GetFirstDocument()对象中的GetNextDocument()个对象。要使用后者，请在CreateViewNav类中使用NotesView（或其中一个相关方法），然后通过GetFirst（）和GetNext（）遍历NotesViewEntry个对象。

Answer 2

我前一段时间在我的博客上发布了一些代码： http://blog.texasswede.com/export-notes-view-to-excel-with-multi-value-fields/

它向您展示了如何以HTML格式和CSV格式导出视图。

如果您使用我在博客上发布的课程，那么以下是您的代码：

Dim csv As CSVData
Dim outfile As String

Set csv = New CSVData("DominoServer/YourDomain", "names.nsf", "People\By Last Name")
'*** Create CSV file from view
outfile = "c:\ExportTest.csv"
Open outfile For Output As #1
ForAll row In csv.CSVArray()
    Print #1, row
End ForAll
Close #1

享受！

使用脚本以.csv格式导出数据

2 个答案: