Question

我第一次尝试使用Lotus私人视图，最后我私下查看。

现在我需要将此视图导出为excel文件...可以运行一个lotusscript来执行此操作吗？

我不是管理员所以我没有特权来经营代理商。

如何？

TKS！

Answer 1

是的，可以编写要导出的LotusScript代理。但是，如果视图包含您需要的所有数据并且文档不是太多，那么只需右键单击一个文档，然后使用Ctrl + A选择所有文档并单击“复制为表格” 然后将结果粘贴到Excel ...

要编写LotusScript-Agent以导出数据，您需要有权这样做，并且管理员通常不会授予“普通”用户权限...

如果您有权利和知识做这样的事情，那么在导出视图的完整内容（未测试）的代理中看起来像这样：

Dim ws as New NotesUIWorkspace
Dim viw as NotesView
Dim viwNav as NotesViewNavigator
Dim ve as NotesViewEntry
Set viw = ws.CurrentView.View
Set viwNav = viw.CreateViewNavigator

Dim xlApp As Variant
Dim xlsheet As Variant

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.Workbooks.Add
Set xlsheet = xlApp.Workbooks(1).Worksheets(1)
Set ve=viwNav.GetFirstEntry()
Col = 1
Row = 1
While not ve is Nothing
  Forall colval in ve.ColumnValues
    xlsheet.Cells(row,col).Value = colval
    Col = col + 1
  End Forall
  Set ve = viwNav.GetNextEntry(ve)
  Row = Row + 1
Wend

这没有考虑到，ColumnValues可以是数组（取决于视图设置），没有错误处理，也没有检查任何有效性...... 但它可以作为开始的基础......

Answer 2

您可以导出到Excel可以阅读的CSV文件，而无需进行任何编程。只需打开视图，下拉“文件”菜单并选择“导出”。在“导出”对话框中键入文件名，然后在“另存为类型”下拉列表中选择“逗号分隔值”。应该会出现一个小的CSV导出对话框，您可以选择一些非常简单的选项。

Answer 3

在UI中执行此操作的最佳方法是选择所有文档（CTRL + A），然后从“编辑”菜单中选择“复制为/表”。然后粘贴到Excel中。

您可以删除第一列（文档链接）。

使用@Formula或Lotusscript无法重现此方法。

如何将数据从Lotus私有视图导出到excel文件？

3 个答案: