Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim item As NotesItem Dim files As Variant Dim schar As String Dim excelApplication As Variant Dim excelWorkbook As Variant Dim excelsheet As Variant Dim i As Integer Set db = session.CurrentDatabase Set view = db.GetView( "ExcelRegister" ) files=workspace.OpenFileDialog (False,"选择引入数据文件","Excel file|*.xls","c:") If files(0)="" Then Exit Sub Else Set excelApplication=CreateObject("Excel.Application") Set excelWorkbook =excelApplication.Workbooks.Open(files) Set excelsheet=excelWorkbook.Worksheets(1) i=2 stemp=excelSheet.Cells(i,1).value Do Until Cstr(stemp)="" Set cpdoc=New Notesdocument.db) cpdoc.form="Excel_notes注册表" cpdoc.lx=excelsheet.Cells(i,1).value stemp=excelSheet.Cells(i,1).value stemp2=excelSheet.Cells(i,2).value cpdoc.NameExcel=stemp cpdoc.AgeExcel=stemp2 i=i+1 Call cpdoc.save(True,False) Call workspace.ViewRefresh Loop excelWorkbook.close(False) excelApplication.Quit Set excelApplication=Nothing End If End Sub
excel...>notes
最新推荐文章于 2024-07-24 20:55:11 发布