domino从Excel导入数据
HTML部分
——————————————————————————————————————————————
1 <table style="WIDTH: 99%; BORDER-COLLAPSE: collapse" class="linkeytable"> 2 <tbody> 3 <tr> 4 <td width="15%" align="right">导入文件:</td> 5 <td width="35%"> 6 <input id="upfile" name="file" type="file" /></td> 7 </tr> 8 </tbody> 9 </table>
——————————————————————————————————————————————
JS部分
——————————————————————————————————————————————
1 function ImportTest(){ 2 var tempStr=""; 3 var filePath=document.all.upfile.value; 4 if(String(filePath)!=""){ 5 var oXL=new ActiveXObject("Excel.application"); 6 var oWB=oXL.Workbooks.open(filePath); 7 oWB.worksheets(1).select(); 8 var oSheet=oWB.ActiveSheet; 9 try{ 10 var i=2; 11 while(String(oSheet.Cells(i,1).value)!="undefined"){ 12 if(tempStr!="")tempStr+="#"; 13 tempStr+=oSheet.Cells(i,1).value+"#"; 14 tempStr+=oSheet.Cells(i,2).value+"#"; 15 tempStr+=oSheet.Cells(i,3).value+"#"; 16 tempStr+=oSheet.Cells(i,4).value+"#"; 17 tempStr+="CompanyAsset"; 18 i++; 19 } 20 } 21 catch(e){ 22 alert("Error"); 23 } 24 var url="/"+folder+"/app.nsf/WF_RunRule?openagent&RuleNum=RUh3c02001_004"; 25 $(function(){ 26 $.post(url,encodeURI(tempStr),function(){alert("导入成功");window.close();}); 27 }) 28 oWB.close(); 29 oXL.Quit(); 30 } 31 CollectGarbage(); 32 //window.close(); 33 opener.location.reload(); 34 }
——————————————————————————————————————————————
LS部分
——————————————————————————————————————————————
Sub Initialize
On Error Goto errormsg
dim se as new notessession
dim db as notesdatabase
dim curdoc as notesdocument
set db=opendb("app.nsf")
set curdoc=se.Documentcontext
dim strFormular as string
dim vData as variant
dim vQry as string
strFormular="@URLDecode('Domino';Request_Content)"
vData=Evaluate(strFormular,curdoc)
vQry=vData(0)
dim sql as string
dim vStr as variant
dim i as integer,j as integer
vStr=split(vQry,"#")
i=ubound(vStr)+1
j=i/5-1
dim WF_Document as notesdocument
dim fldlst as new lcfieldlist
dim tmpdoc as notesdocument
for k=0 to j
sql=|select * from h3c_PropertyInfo where number='|+vStr(k*5)+|'|
set tmpdoc=rdb.GetDocumentBySql(sql)
set WF_Document=db.createdocument()
WF_Document.WF_OrUNID=WF_Document.universalid
WF_Document.number=vStr(k*5)
WF_Document.status=vStr(k*5+1)
WF_Document.place=vStr(k*5+2)
WF_Document.connectors=vStr(k*5+3)
WF_Document.genre=vStr(k*5+4)
if not tmpdoc is nothing then
Dim useTime As New NotesDateTime(Cstr(tmpdoc.getdate(0)))
dim dateTime as new notesdatetime("")
datetime.LSLocalTime=Now
WF_Document.type=tmpdoc.type(0)
WF_Document.storager=tmpdoc.storager(0)
WF_Document.storagernumber=tmpdoc.storagernumber(0)
WF_Document.dept=tmpdoc.dept(0)
WF_Document.deptnumber=tmpdoc.deptnumber(0)
WF_Document.getdate=useTime.DateOnly
WF_Document.attachments=tmpdoc.attachments(0)
WF_Document.buff="未调拨"
WF_Document.WF_DOCCREATED=datetime.LSLocalTime
WF_Document.WF_AddName=WF_UserName
end if
call rdb.saveDocument(WF_Document,"h3c02001_Estate")
next
msgbox "h3c02001:OK"
Exit Sub
errormsg:
Msgbox "Rule Error:" & Str(Erl) & " " & Error
End Sub
转载于:https://www.cnblogs.com/guojian2080/archive/2013/04/19/3031080.html
domino从Excel导入数据相关推荐
- 使用Echarts制作散点图(Excel导入数据方式)
2019独角兽企业重金招聘Python工程师标准>>> Echarts相当于一款JS插件,可以制作出绚丽多彩的图表,其支持制作的图表类型和可以使用的样式都非常丰富.本文以Echart ...
- Excel导入数据(图片处理)
在用excel导入数据的时候,如果一条数据,包含图片,甚至每条数据图片数量不固定. 图片放到excel里面直接拖进去就可以,再鼠标拉缩小到指定单元格内 package com.ydcloud.smar ...
- 灰色模型代码GM(1,1),从excel导入数据,亦可导出数据到excel中。
灰色模型代码GM(1,1),从excel导入数据,亦可导出数据到excel中. 总结1:直接输出结果 %clc W= MicrosoftExcel;(从EXCEL导入数据后,matlab自动储存的数组 ...
- Excel导入数据轻松生成智能图表,助力数据分析
运营助手,Excel导入数据轻松生成智能图表,助力数据分析 2023-04-18 10:21·淡定海风L 智能问答BI是一种先进的数据分析,它可以帮助用户快速地从海量数据中获取有用的信息,并将其可视化 ...
- Excel导入数据时间格式问题处理
问题背景:java中使用poi进行excel导入数据时,日期格式在数据库中存放为varchar2类型.问题:存放数据日期读取数据为"44439"的数字,因判断格式类型为yyyy-m ...
- sqlserver excel导入数据时有null,为空值
sqlserver excel导入数据时有null,最完美解决办法 1.说明为什么会出现导入的数据会为null? 因为在数据库导入数据时,他会自动检测数据的类型,文字一般检测为nvarchar类型,而 ...
- excel导入数据校验_从Excel数据验证列表中选择多个项目
excel导入数据校验 You've probably used an Excel data validation drop down list, where you can click the ar ...
- excel导入数据校验_Excel数据验证更新
excel导入数据校验 I've finally updated my Data Validation intro video, so it shows the steps for creating ...
- excel导入数据校验_使用Excel数据验证限制日期范围
excel导入数据校验 Yesterday, one of my clients emailed to let me know that she was having trouble entering ...
最新文章
- Cassandra使用的各种策略
- 光缆连接头符号缩写详解
- 好用的Perl包 Class::Ref
- android访问链接,尝试使用Android访问本地Web服务时连接被拒...
- PAIP.HIBERNATE ORA-02289 sequence does not exist的解决
- qca956x flash usb
- 电影:美国队长:复仇者先锋
- 操作系统课后答案第五章
- 如何寻找p3c的主类,或main方法
- 推荐 21 款博主常用 Windows 软件
- 失败的教训,总结下三个多月的考研历程(最终发现调剂非全复试成功了)
- matlab 设计数字滤波器,基于Matlab的FIR数字滤波器设计
- 蛋糕甜品小程序有哪些,这3款小程序值得收藏!
- 【C语言】第五章 - 操作符
- 微信内测推出新功能,朋友圈“修改可见范围”
- Java架构师成长之道之Java架构师技术栈
- 51.【Java String方法的小结】
- 3dsmax Node Event System
- 机器学习之「二分类算法」-----银行营销案例分析
- 关于Chrome浏览器调用IE浏览器
热门文章
- C++简介源码讲解精辟版,C++入门级C++学习,C++与C的区别值得知晓
- 控制台发送get命令_.NET Core使用命令行参数库构建控制台应用程序
- oracle查询最高一条记录,oracle 查询已有记录,上一条记录,下一条记录
- 飞畅科技教你如何选择合适的交换机?
- 【渝粤题库】国家开放大学2021春2786初级西方经济学题目
- 【渝粤题库】陕西师范大学201941 Java程序设计 作业(专升本)
- 尚未提交线上版本_ABRSM 线上演奏考试报名指引(目前考试仅限英国 amp; 部分国家及地区)...
- bloomfilter的java实现,BloomFilter(布隆过滤器)原理及实战详解
- mysql全文索引含义_【分针网】MySQL全文索引应用简明教程
- 修改网站首页批处理_几个神奇的批处理,万事不求人!