请教帮主们关于lotes导出的问题?

jinchong

各位帮主，我在学习LOTES编程中，想将notes文档导入到excle中，不知如何导，能我一下吗，谢谢！！！帮主有资料的话请发给我一份：chongww@163.com

jinchong

怎那么久高手们都无法，我是一名初学者啊，帮帮我，各
位大哥大姐！！！

notes混混

自己参考：
Dim workspace As New NotesUIWorkspace
        Dim uidoc As NotesUIDocument
        Dim session As New NotesSession
        Dim db As NotesDatabase
        Dim doc As NotesDocument
        Set uidoc=workspace.CurrentDocument       
        Dim vw As notesview
        Set db = session.CurrentDatabase
        Set view=db.getview("vwDefault")
        Set doc = view.GetFirstDocument
       
        Set excelapp = CreateObject("excel.application")
        excelapp.Workbooks.Add
        excelapp.Sheets("sheet1").Select
'        For i=0 To 26
'                excelapp.Columns(Chr(65+i)+":"+Chr(65+i)).ColumnWidth = 8
'                excelapp.Columns(Chr(65+i)+":"+Chr(65+i)).WrapText = True
'                excelapp.Columns(Chr(65+i)+":"+Chr(65+i)).Font.Size=9
'        Next i
       
        excelapp.Sheets("sheet1").Name = "人员资料汇总"
        excelapp.Range("A1").Value = "人员Notes名称"
        excelapp.Range("B1").Value = "人员名称"
       
        row=1               
       
        While Not ( doc Is Nothing )
               
                row=row+1
                excelapp.Range("A"+Cstr(row)).Value =doc.Txtmailcode(0)
                excelapp.Range("B"+Cstr(row)).Value =doc.NmEmpName(0)
               
                Set doc = view.GetNextDocument( doc )
        Wend
        excelapp.Visible = True
        Call uidoc.close