[原创] Notes数据引出EXCEL文件LOTUSSCRIPT程序设计。

Notes123

        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
        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
       
        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,"提示"
       

bbqgame

MARK!

linjinjiao

可以让用户自己选择保存目录吗？

caojujin

确实不错阿！

fish5678

保存起来，先。留着以后用

0o0o0

谢谢！！我刚刚学习！这些是我们需要的

adli

就这一段代码就行了吗  我刚学 请教一下

1122_1

请问Dim doc As Notesdocument．nbsp后面的nbsp是什么意思呀

1122_1

nbsp知道了是空格，那写到这里是什么意思呀

feihu_vxv

能不能导出到一个excel模板中？

fancysnake

/鼓掌/鼓掌

baoyu

gyluoh

以下是引用feihu_vxv在2004-4-15 16:27:44的发言：[br]能不能导出到一个excel模板中？

可以啊，类似导出到word的模版

baoyu