将视图数据引出EXCEL文件的LOTUSSCRIPT程序设计_set excelworkbook = excelapplication.workbooks.add-优快云博客

本文链接：https://blog.youkuaiyun.com/freefly/article/details/57489

该博客展示了一段代码，通过NotesSession获取数据库和视图中的项目清单数据，然后利用Excel.Application创建工作簿和工作表，将项目清单数据写入Excel表格，最后保存为文件并提示导出成功，若出错则提示联系管理员。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As Notesdocument．nbsp
Dim excelApplication As Variant
Dim excelWorkbook As Variant
Dim excelSheet As Variant
Dim i As Integer
Dim Mood As String

Dim selection As Variant

On Error Goto Err1

Set excelApplication = CreateObject("Excel.Application")
Set excelWorkbook = excelApplication.Workbooks.Add
Set excelSheet = excelWorkbook.Worksheets("Sheet1")
'定义excel的列值
excelSheet.Cells(1,1).value = "序号"
excelSheet.Cells(1,2).value = "项目编码"
excelSheet.Cells(1,3).value = "项目型号"
excelSheet.Cells(1,4).value = "项目描述"
excelSheet.Cells(1,5).value = "维护人员"
excelSheet.Cells(1,6).value = "备注"

i = 1
Set db = session.CurrentDatabase
'获取视图
Set view = db.GetView("项目清单")
Set doc = view.GetFirstdocument．nbsp

While Not(doc Is Nothing)
i = i + 1
'定义域名
excelSheet.Cells(i,1).value = i-1
excelSheet.Cells(i,2).value = doc.P_Code(0)
excelSheet.Cells(i,3).value = doc.P_Name(0)
excelSheet.Cells(i,4).value = doc.P_Desc(0)
Print "引出第" & I & "个记录成功，请稍候！"

Set doc = view.GetNextdocument．doc)
Wend

excelWorkbook.SaveAs("c:/项目清单.xls")

Msgbox "报表引出成功，请到C盘根目录下查找！",48,"提示"

excelApplication.Quit
Set excelApplication = Nothing

Exit Sub

Err1:

Msgbox "发生错误,请与管理员联系!",48,"提示"