lotus notes库中数据导出到excel中

 关于lotus notes数据库和excel中数据交互的问题，今天把导出到excel中的方法写下来。

 '导出excel
 Dim excelApplication As Variant
 Dim excelWorkbook As Variant
 Dim excelSheet As Variant
 
 Set excelApplication = CreateObject("Excel.Application")
 'Set excelWorkbook = excelApplication.Workbooks.Open(filepath)
 Set excelWorkbook = excelApplication.Workbooks.Add
 Set excelSheet = excelWorkbook.Worksheets(1)
 
 '第一行
 excelSheet.Range("A1:K1").MergeCells = True
 excelSheet.Range("A1:K1").Font.Name = "宋体"     '字体
 excelSheet.Range("A1:K1").Font.Size = "12"       '大小
 excelSheet.Range("A1:K1").HorizontalAlignment = -4108    '居中
 excelSheet.Range("A1:K1").VerticalAlignment = -4108      '居中 
 excelSheet.Range("A1:K1").Value = "员工调查意见汇总报表"
 
 '定义第二行开始的格式
 excelSheet.Range("A2:A13").Font.Name = "宋体"     '字体
 excelSheet.Range("A2:A13").Font.Size = "10"       '大小
 excelSheet.Range("B2:K13").Font.Name = "宋体"     '字体
 excelSheet.Range("B2:K13").Font.Size = "10"       '大小
 excelSheet.Range("B2:K13").HorizontalAlignment = -4108    '居中
 excelSheet.Range("B2:K13").VerticalAlignment = -4108      '居中 
 '第二行
 'excelSheet.Range("A2").Value = "员工调查意见汇总报表"
 excelSheet.Cells(2,2).Value = "问卷发送总数"
 excelSheet.Cells(2,3).Value = "问卷回收总数"
 excelSheet.Cells(2,4).Value = "非常满意"
 excelSheet.Cells(2,5).Value = "满意"
 excelSheet.Cells(2,6).Value = "中立"
 excelSheet.Cells(2,7).Value = "部分不满意"
 excelSheet.Cells(2,8).Value = "不满意"
 excelSheet.Cells(2,9).Value = "没有指定"
 excelSheet.Cells(2,10).Value = "不适用"

 excelapplication.workbooks(1).SaveAs(filepath) 
 excelapplication.workbooks.close