0

任何人都可以建议我哪种方法（freefile 或 ole 对象创建）将 lotus notes 文档导出为 CSV 和 Excel 文件是有效的吗？

4

3 回答 3

3

我也使用公式导出为 csv 和 excel。

@Command([FileExport]; "逗号分隔值"; "c:\text.csv")

于 2012-05-30T10:07:46.757 回答
1

高效的？使用 NotesDXLExporter 导出为 DXL/XML。见链接。简单的？在视图中选择文档并使用文件/导出，另存为类型：逗号分隔值。您可以使用需要导出的数据准备自己的视图。

于 2012-05-26T16:36:40.367 回答
0

我得到了以下用于导出 CSV 文件的简单代码。

[关联] 

fileNum% = Freefile()
Open filename For Output As fileNum%

' use the view column titles as the CSV headers
Forall c In view.Columns
    If cns = "" Then    
        cns = c.title
    Else
        cns = cns + +","  + c.title         
    End If
End Forall      
Print #fileNum%, cns


 ' now get and print the values for each row and column
Set vc = view.AllEntries
Set entry = vc.GetFirstEntry()
While Not entry Is Nothing 
    rowstring = ""
    Forall colval In entry.ColumnValues
        If rowstring = "" Then
            rowstring = colval
        Else
            rowstring = rowstring + +","  + colval
        End If          
    End Forall
    Print #fileNum%, rowstring
    Set entry = vc.GetNextEntry(entry)
Wend
Close fileNum%
于 2012-05-29T08:24:55.757 回答