如何使用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。