domino 导出excell.docx

Domino导出excel总结首先加一个导出按钮，并且给该按钮设置一个客户机 JavaScript事件。例如：@Command([ToolsRunMacro];exportIdagent)新建一个代理名称为（exportIdagent），设置代理属性：目标—》无。设置运行时安全等级：允许受限制的操作。在Initialize中添加如下代码：（以下是自动创建excel）On Error Goto errhandleDim ss As New NotesSession 定义一个sessionDim db As NotesDatabase 定义数据库Dim curdoc As NotesDocument 文档上下文Dim path As String domino路径Dim dept As String 定义部门Dim startTime As String 定义开始日期Dim overTime As String 定义结束日期Dim dc As NotesDocumentCollection 定义文档集合Dim dc2 As NotesDocumentCollection 定义一个子费用单文档集合Dim doc As NotesDocument 定义一个文档Dim doc2 As NotesDocument 定义一个子费用单文档Dim tem As String 申明日期一个随即数Dim searchFormula As String 申明一个查询的表达式 以下是根据上下文获取的查询条件Set curdoc = ss.DocumentContext 获取上下文dept = curdoc.F_JDept(0) 部门信息startTime = curdoc.F_StartTime(0) 开始日期overTime = curdoc.F_EndTime(0) 结束日期查询流程结束并且是普通费报销文档集合searchFormula = searchFormula { (F_DocStatus=完成|F_DocStatus=通过)}If dept ThensearchFormula = searchFormula { F_Dept=} dept { } 判断当部门不为空的时候执行该语句End IfsearchFormula = searchFormula { ( F_CreateTime = [} startTime {] ) } [字符串日期] 将字符串转化为日期searchFormula = searchFormula { ( F_CreateTime = [} overTime {] ) }设置excel导出信息Dim xlApp As VariantDim xlsheet As VariantSet xlApp = CreateObject(excel.application)path = ss.GetEnvironmentString(Directory,True) 获取domino服务端路径xlApp.statusbar = 正在创建工作表，请稍等......xlApp.Visible = False 显示excelxlApp.workbooks.add(path+\domino\html\lks\koa\cost.xls) 找到对应的费用的模板xlApp.referencestyle = 2Set db= ss.CurrentDatabase 获取当前数据库Dim rows As Integer 申明从第三行开始往excel里面写入数据rows=3========================================获取excel第一个sheet(即普通费用报销信息)=========================================Set xlsheet = xlapp.workbooks(1).worksheets(1) 以下是获取文档并将其文档写入到excel中Dim comSerchFormula As String 普通费用form帅选comSerchFormula = {(Form = FM_Review)}comSerchFormula = comSerchFormula searchFormulaSet dc = db.Search(comSerchFormula,Nothing,0) 获取普通费用报销文档集合Set doc = dc.GetFirstDocu