Notes导入excel表格

Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim ss As New NotesSession
Dim db As NotesDatabase
Dim item As NotesItem
Dim files As Variant
Dim schar As String
Dim doc As NotesDocument
Dim cp As NotesDocument
Dim excelapplication
Dim i
Dim sheet

Set db=ss.CurrentDatabase
files=ws.OpenFileDialog(False,"请选择要导入的excel文件","Excel file/*.xlsx")
If Not(Isempty(files)) Then
Set excelapplication=createobject("excel.application")
Set excelworkbook=excelapplication.workbooks.open(files)
Set excelsheet=excelworkbook.worksheets(1)
i=1
Do Until excelsheet.cells(i,1).value=""
Set cpdoc=New NotesDocument(db)
cpdoc.form="f_test"      
cpdoc.name=excelsheet.cells(i,1).value
cpdoc.age=excelsheet.cells(i,2).value
i=i+1
Call cpdoc.save(False,False)
Loop
excelworkbook.close(False)
excelapplication.quit
Set excelapplication=Nothing
Msgbox "您的测试信息导入成功！",64,"Haier.Office"
End If
End Sub