0

我是第一次尝试 Lotus 私有视图，最后我做了一个私有视图。

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

我不是管理员，所以我没有运行代理的权限。

如何？

谢谢！

4

3 回答 3

1

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

要编写一个lotusScript- 代理来导出数据，您需要这样做的权限，并且通常管理员不会将权限授予“普通”用户......

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

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 可以是数组（取决于视图设置），没有错误处理并且不检查任何有效性......但它可以作为开始的基础......

于 2013-05-16T19:00:59.033 回答
0

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

于 2013-05-16T18:51:50.067 回答
0

在 UI 中执行此操作的最佳方法是选择所有文档 (CTRL+A)，然后从 Edit 菜单中使用 Copy As/Table。然后粘贴到 Excel 中。

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

这种方法不能用 @Formula 或 Lotusscript 重现。

于 2013-05-28T14:56:59.983 回答