分类：电脑/网络-程序设计
问题：[Lotus]如何从EXCEL表中读取数据如何使用LotusSc 
如何使用 Script读取Excel中的数据？
回答： Dim InstrErr As String  Dim NoShopount As String  Dim NoCnNameCount As String  Dim NoEnNameCount As String  Dim SameNameCount As String  Dim db As notesdatabase  Dim session As New notessession  Dim ws As New notesuiworkspace  Dim currentuidb As notesuidatabase  Dim currentdb As notesdatabase  Dim peopledb As notesdatabase  Dim centerdb As notesdatabase  Dim doc As notesdocument  Dim FindDoc As notesdocument  Dim doccollection As notesdocumentcollection  Dim peopleview As notesview  Dim centerview As notesview  Dim exapp As Variant  Dim workbook As Variant  Dim worksheet As Variant  Dim i As Integer  Dim j As Integer  Dim k As Integer  Dim s As Integer  Dim count As Integer  Dim flag As Integer  Dim ChineseName As String  Dim englishname As String  Dim mastername As String  Dim a As String  Dim b As String  Dim st As String  Dim IsCc As String  Dim date1 As String  Dim date2 As String  Dim NotSendFlag As String    Set db= rrentdatabase  Set currentuidb =  rrentdatabase  Set currentdb = currentuidb.database  Set 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=False  Set 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).value      Date2 = WorkSheet.cells(i,11).value      i = s    Else       '有*号标志      i = i + 1    End If  Wend    '此段加上要给赋值的域赋值 End If