在表单里使用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

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

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

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

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

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

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

【JavaScript】使用form表单实现excel下载模板

最近在做ITOO考评系统的题库管理功能,在题库中有这样一个需求那就是要在上传题库之前如果没有模板的话,要下载模板。模板是根据题型来分的,所以要通过不同的题型下载不同的模板。         本来想的...

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

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

第5章 表单和HTML辅助方法(HtmlHelper、辅助方法的使用、HTML辅助方法的工作原理、强类型辅助方法)

一、表单的使用 1、表单 产出地址:http://www.bing.com/search?q=love 2、get方法还是Post方法 在Web应用程序中,Get请求用于读操作,Pos...

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

工作流应用已经有几年的时间了,之前给综合部做了收发文这样的工作流程。昨天,他们提出需要把现有流程进行细分,比如发文要分党法、部发、纪委发等等,总共有20多项,如果每个单独来设计工作流工作量可真不小。可...
  • upi2u
  • upi2u
  • 2015年01月16日 10:18
  • 1785
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在表单里使用excel工作表
举报原因:
原因补充:

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