Lotus Notes 生成excel 報表

最新推荐文章于 2024-10-16 11:31:04 发布

evan02

最新推荐文章于 2024-10-16 11:31:04 发布

阅读量696

点赞数

分类专栏： Lotus Notes開發點滴文章标签： excel lotus string os

本文链接：https://blog.csdn.net/evan02/article/details/5091532

版权

这个子程序通过VBA在Lotus Notes中生成Excel报表，接收标题、文件集合、字段描述和字段名作为参数。它创建一个新的Excel工作簿，设置标题，填充列头，并根据Notes文档的多值字段拆解数据到相应单元格。

摘要由CSDN通过智能技术生成

Sub createExcel(title As String ,dc As NotesDocumentCollection,description() As String,fieldName() As String)
'***************************************************************************

'title 表名 dc文件集 descripton 栏位描述 fieldname栏位名
'生成excel 報表
'***************************************************************************
Dim rdoc As NotesDocument
Dim ritem As NotesItem

Dim xlApp As Variant
Dim xlsheet As Variant
Dim t As String
Dim j As Integer
Dim row As Integer
Dim col As Integer
Dim s As Integer
Dim maxNO As Integer
Dim tmp As Integer

col=Ubound(description)

Set xlApp = CreateObject("Excel.application")
xlApp.Workbooks.Add
Set xlsheet = xlApp.Workbooks(1).Worksheets(1)
XlApp.Windows(1).DisplayGridlines=True
xls