[Lotus]如何从EXCEL表中读取数据

如何使用Lotus Script读取Excel中的数据？

热心网友

Dim InstrErr As StringDim NoShopCount As StringDim NoCnNameCount As StringDim NoEnNameCount As StringDim SameNameCount As StringDim db As notesdatabaseDim session As New notessessionDim ws As New notesuiworkspaceDim currentuidb As notesuidatabaseDim currentdb As notesdatabaseDim peopledb As notesdatabaseDim centerdb As notesdatabaseDim doc As notesdocumentDim FindDoc As notesdocumentDim doccollection As notesdocumentcollectionDim peopleview As notesviewDim centerview As notesviewDim exapp As VariantDim workbook As VariantDim worksheet As VariantDim i As IntegerDim j As IntegerDim k As IntegerDim s As IntegerDim count As IntegerDim flag As IntegerDim ChineseName As StringDim englishname As StringDim mastername As StringDim a As StringDim b As StringDim st As StringDim IsCc As StringDim date1 As StringDim date2 As StringDim NotSendFlag As StringSet db= rrentdatabaseSet currentuidb = rrentdatabaseSet currentdb = currentuidb。databaseSet peopledb = tdatabase( rver,"ACCL\amwayemployee。nsf")Set centerdb = tdatabase( rver,"ACCL\centreinfo。nsf")Set peopleview = tview("allbyChineseName")Set centerview = tview("allbycompute")Set exapp = createobject("Excel。Application")i=7 j=1 k=i-1 'filenp = Inputbox("请输入文件名和路径")filenp = "文件路径" sible=FalseSet WorkBook = exapp。WorkBooks。Open(filenp)Set WorkSheet = WorkBook。worksheets("表名")'对表格循环操作While Trim(WorkSheet。cells(i,2)。value) ""If Trim(WorkSheet。cells(i,10)。value) = "" Then '取表格的员工姓名ChineseName = Trim(WorkSheet。cells(i,2)。value)Date1 = WorkSheet。cells(i,9)。valueDate2 = WorkSheet。cells(i,11)。valuei = sElse '有*号标志i = i + 1End IfWend'此段加上要给赋值的域赋值 End If。