生成Excel表的代理:
Sub Initialize
'定义notes对象
Dim session As New notessession
Dim db As notesdatabase
Dim view As notesview
Dim SelectDoc As notesdocument
Dim doc As notesdocument
Dim item As NotesItem
Dim DeleteItem As NotesItem
Dim DocToSelect As NotesDocument
Dim unid As String
Dim wait_body
Dim i,num,j As Integer
i=2
j=0
'取选定记录的数据
Set db = session.CurrentDatabase
Set DocToSelect = session.DocumentContext
Set item = DocToSelect.GetFirstItem("Delete"
If (item.text<>"" Then '判断是否选择了文档
'定义excel对象及创建对象
Dim xlApp As Variant
Dim xlsheet As Variant
Set xlApp = CreateObject("Excel.Application"
xlApp.StatusBar = "正在制作报表,请等待......"
xlApp.Visible = True
xlApp.Workbooks.Add
xlApp.ReferenceStyle = 2
Set xlsheet = xlApp.Workbooks(1).Worksheets(1)
xlsheet.Name = "电子名片报表"
xlApp.StatusBar = "正在制作表头,请等待..."
xlsheet.cells(1,1).value="姓名"
xlsheet.cells(1,2).value="单位"
xlsheet.cells(1,3).value="手机"
xlsheet.cells(1,4).value="电话(一)"
xlsheet.cells(1,5).value="电话(二)"
xlsheet.cells(1,6).value="电话(三)"
xlsheet.cells(1,7).value="本公司联系人"
xlsheet.cells(1,8).value="是否发送季刊"
xlsheet.cells(1,9).value="是否节日问候"
xlapp.range(xlsheet.cells(1,1),xlsheet.cells(1,9)).select
xlapp.selection.HorizontalAlignment = 3
'给表格赋值
Forall v In item.Values
unid = v
Set doc = db.GetDocumentByUNID(unid)
xlsheet.cells(i,1).value=doc.dzmp_xm(0)
xlsheet.cells(i,2).value=doc.dzmp_dw(0)
xlsheet.cells(i,3).value=doc.dzmp_sj(0)
xlsheet.cells(i,4).value=doc.dzmp_dh(0)
xlsheet.cells(i,5).value=doc.dzmp_dh1(0)
xlsheet.cells(i,6).value=doc.dzmp_dh2(0)
xlsheet.cells(i,7).value=doc.dzmp_lxr(0)
xlsheet.cells(i,8).value=doc.dzmp_sfssjk(0)
xlsheet.cells(i,9).value=doc.dzmp_sfjrwh(0)
i=i+1
j=j+1
End Forall
'格式化报表
xlapp.range(xlsheet.cells(1,1),xlsheet.cells(j+1,15)).select
xlapp.selection.font.name="Arial"
xlapp.selection.font.size=9
xlapp.selection.columns.autofit
xlApp.StatusBar = "报表制作完成!"
Print "<BODY background=rightbg2.gif>"
Print "<br>"
Print "<center>你已成功打印了" & j "个文档!<br>"
Print "<hr><br>"
Print DocToselect.view(0)
Print "<font size=4><a href="+"/"+DocToselect.path(0) +"/ElectronCard.nsf/"+DocToselect.docname(0)+"?OpenForm"+"> " +"确定" + "</a>"
Print "</center>"
Else
Print "<BODY background=rightbg2.gif>"
Print "<br>"
Print "<center>你没有选择打印文档,请选择后再打印!<br>"
Print "<hr><br>"
Print "<font size=4><a href="+"/"+DocToselect.path(0) +"/ElectronCard.nsf/"+DocToselect.docname(0)+"?OpenForm"+"> " +"确定" + "</a>"
Print "</center>"
'Exit Sub
End If
End Sub