在表单里使用excel工作表

原创 2011年01月21日 11:43:00

Sub Click(Source As Button)

         Dim workspace As New NotesUIWorkspace

         Dim uidoc As NotesUIDocument

         Dim s As New NotesSession    

         Dim cdb As NotesDatabase

         Dim view As NotesView

         Dim doc As NotesDocument

         Dim MailInDbdoc As NotesDocument

         Dim Groupdoc As NotesDocument

         Dim people As NotesName     

         Dim handle As Variant

        

         Set cdb = s.CurrentDatabase  

         Set uidoc = workspace.CurrentDocument

//获取内嵌对象

         Set handle = uidoc.GetObject( "OLEREG" )

//获取工作表

         Set AppSheet=handle.sheets(1)

//从工作表中取值

         UserName = Replace(Trim(AppSheet.cells(1,1).value)," ","")

         i=1

//如果第一列(姓名)不为空值,即还有需要处理的人员

         Do While UserName<>""        

                   //从域里面取字符串     

                   O = uidoc.FieldGetText("O")

                   OU1 = Replace(Trim(uidoc.FieldGetText("OU1"))," ","")

                   //从工作表-单元格中取出数值

                   OU2 = Replace(Trim(AppSheet.cells(i,2).value)," ","")

                   RegServer = uidoc.FieldGetText("RegServer")

                   //生成用户名

                   Set people = s.CreateName(UserName+"/"+OU2+"/"+OU1+"/"+O)

                   If Not Check_People_Record(s,cdb.Server,people.Canonical) Then

                            If Not Check_Is_Double(Trim(UserName+"/"+OU2+"/"+OU1+"/"+O),cdb,"RegUserList_Back") Then

                                     Set doc = New NotesDocument(cdb)

                                     doc.O = O

                                     doc.OU1 = OU1

                                     doc.Depart = OU2

                                     doc.UserName = UserName

                                     doc.RegServer = RegServer

                                     doc.processed = "0"

                                     //指定文档所使用的表单

                                     doc.form = "frmRegUser"

                                     Call doc.ComputeWithForm(False,False)

                                     Call doc.Save(True,True)

                            End If

                   End If

                  

                   If Not Check_MailInDatabases_Record(s,cdb.Server,Trim(OU1+OU2+"邮箱")) Then

                            If Not Check_Is_Double(Trim(OU1+OU2+"邮箱"),cdb,"RegMailInDbList_Back") Then

                                     Set doc = New NotesDocument(cdb)

                                     doc.O = O

                                     doc.OU1 = OU1

                                     doc.Depart = OU2

                                     doc.RegServer = RegServer

                                     doc.processed = "0"

                                     doc.form = "frmRegMailInDb"

                                     Call doc.ComputeWithForm(False,False)

                                     Call doc.Save(True,True)

                            End If

                   End If

                  

                   If Not Check_Group_Record(s,cdb.Server,Trim(OU1+OU2+"全体人员")) Then

                            If Not Check_Is_Double(Trim(OU1+OU2+"全体人员"),cdb,"RegGroupList_Back") Then

                                     Set doc = New NotesDocument(cdb)

                                     doc.O = O

                                     doc.OU1 = OU1

                                     doc.Depart = OU2

                                     doc.RegServer = RegServer

                                     doc.processed = "0"

                                     doc.form = "frmRegGroup"

                                     Call doc.ComputeWithForm(False,False)

                                     Call doc.Save(True,True)

                            End If

                   End If

                   i=i+1

                   UserName = Trim(AppSheet.cells(i,1).value)

         Loop

         Msgbox "注册列表已产生!"

End Sub

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

python实现Excel工作簿和表单合并

Created on Mon Mar 16 11:23:05 2015@author: admin """ # 分批次运行,先得到books, 再运行,利用print 来debugimport pan...

如何破解Excel工作表单的密码

1\打开文件  2\工具---宏----录制新宏---输入名字如:aa  3\停止录制(这样得到一个空宏)  4\工具---宏----宏,点编辑按钮  6\关闭编辑窗口  7\工具---宏-...

通达OA2015-工作流表单导Excel模板后下载

工作流有时需要在某个步骤时按EXCEL模板导出,需要用到PHPExcel和jQuery,具体实现如下 一、表单界面生成按钮【正式报价单】,如下图 二、点按钮时的javascript脚本 ...

使用ADO.NET的DbProviderFactory读取或写入Excel中的表单

由于工作需要,需要将数据库中的表填充到Excel中,我本人是相当不喜欢任何类型的手动输入输出,或表格计算的导入导出,但是事情还是要做的。 通过ADO.NET的DbProviderFactory可以轻...

通达OA 工作流表单里的红头标题需要变成选项的处理(图文)

工作流应用已经有几年的时间了,之前给综合部做了收发文这样的工作流程。昨天,他们提出需要把现有流程进行细分,比如发文要分党法、部发、纪委发等等,总共有20多项,如果每个单独来设计工作流工作量可真不小。可...
  • upi2u
  • upi2u
  • 2015-01-16 10:18
  • 1716

一步步学习SPD2010--第九章节--使用可重用工作流和工作流表单(2)--创建关联栏目

一步步学习SPD2010--第九章节--使用可重用工作流和工作流表单(3)--使用工作流模板 一步步学习SPD2010--第九章节--使用可重用工作流和工作流表单(4)--重用全局可重用工作流 一步步...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)