Question

LOTUS NOTES记录如何导出?

在公司LOTUS NOTES中有个应用，有大家每天提交的日报（附件为excel），我现在只能一个一个看当天记录的主题、提交人、附件名字。
有没有办法把某个页面都导出的方法？

Answer 1

用代理通过notesRichItem-->notesEmbeddedObject里的ExtractFile方法将文件导出来。或者用楼上的办法，先在服务器端将excel表打开，通过单元格信息print出来。

Answer 2

你是导出主题、提交人、附件名字，还是想倒附件出来？

追问

恩，想都导出来呢

追答

导出文字的代码
Sub Click(Source As Button)
Dim session As New notessession
Dim db As notesdatabase
Dim view As notesview
Dim doc As notesdocument
Dim excelapplication As Variant
Dim excelworkbook As Variant
Dim excelsheet As Variant
Dim i As Integer
Set excelapplication=createobject("excel.application")
excelapplication.visible=True
Set excelworkbook=excelapplication.workbooks.add
Set excelsheet=excelworkbook.worksheets("sheet1")
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="工龄工资"
excelsheet.cells(1,7).value="住房补贴"
excelsheet.cells(1,8).value="住房公积金"
excelsheet.cells(1,9).value="医疗保险"
excelsheet.cells(1,10).value="养老保险"
excelsheet.cells(1,11).value="工资性质"
excelsheet.cells(1,12).value="奖金基数"
excelsheet.cells(1,13).value="是否分配奖金"
excelsheet.cells(1,14).value="失业保险"
i=1
Set db=session.currentdatabase
Set view=db.getview("基础数据")
Set doc=view.getfirstdocument
While Not (doc Is Nothing)
i=I+1
excelsheet.cells(i,1).value=doc.bumen(0)
excelsheet.cells(i,2).value=doc.name(0)
excelsheet.cells(i,3).value=doc.htxz(0)
excelsheet.cells(i,4).value=doc.xishu(0)
excelsheet.cells(i,5).value=doc.gwgz(0)
excelsheet.cells(i,6).value=doc.glgz(0)
excelsheet.cells(i,7).value=doc.zfbt(0)
excelsheet.cells(i,8).value=doc.zfgj(0)
excelsheet.cells(i,9).value=doc.ylbx1(0)
excelsheet.cells(i,10).value=doc.ylbx(0)
excelsheet.cells(i,11).value=doc.gzxz(0)
excelsheet.cells(i,12).value=doc.jjjs(0)
excelsheet.cells(i,13).value=doc.sffpjj(0)
excelsheet.cells(i,14).value=doc.sybx(0)
Set doc=view.getnextdocument(doc)
Wend
excelsheet.columns("A:I").select
excelsheet.columns("A:I").ENTIRECOLUMN.AUTOFIT
REM excelapplication.quit
Set excelapplication=Nothing
End Sub