[Lotus]如何从EXCEL表
Dim InstrErr As String
Dim NoShopCount 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 peopled...全部
Dim InstrErr As String
Dim NoShopCount 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。
收起
