Excel导入到notes中
来源:互联网 发布:淘宝寄快递怎么算钱 编辑:程序博客网 时间:2024/05/24 16:16
Sub Initialize '导入员工信息数据,并创建PBC 'By YBq '20080606 'Msgbox "begin execute the agent..." Dim ws As New NotesUIWorkspace Dim session As New NotesSession Dim db As NotesDatabase Dim doc As NotesDocument Dim excelApplication As Variant Dim excelWorkbook As Variant Dim excelSheet As Variant Dim i As Integer Dim Mood As String Dim selection As Variant Set db = session.CurrentDatabase '新增 Set excelApplication = CreateObject("Excel.Application") excelApplication.Visible = True '显示EXCEL Set excelWorkbook = excelApplication.Workbooks.open("D:/test/TestImportData.xls") Set excelSheet = excelWorkbook.Worksheets("ImportData") i=3 stemp=excelSheet.Cells(i,1).value Do Until Cstr(stemp)="" ' Msgbox "stemp not empty" Set doc = New NotesDocument(db) doc.Form="FPBC" '赋表单名 doc.StaffName = excelSheet.Cells(i,1).Value doc.StaffID = excelSheet.Cells(i,2).Value doc.StaffNotesID = excelSheet.Cells(i,3).Value doc.PositionName = excelSheet.Cells(i,4).Value doc.BUFU = excelSheet.Cells(i,5).Value doc.PLFU = excelSheet.Cells(i,6).Value doc.Dept = excelSheet.Cells(i,7).Value '导入后的文档状态都置为草稿 doc.WFStatus = "0" Call doc.Save(True,True) i = i+1 '计数器加1 stemp = excelSheet.Cells(i,1).Value '修改循环条件的值,防止死循环 Loop Call ws.viewrefresh excelApplication.quit Set excelApplication = Nothing End Sub
- Excel导入到notes中
- Excel导入到notes中
- 导入Excel到Notes的通用ScriptLibrary
- 导入到excel中
- Notes导入excel表格
- 导入EXCEL到数据库中
- lotus notes库中数据导出到excel中
- html 导入到word、excel中
- excel数据导入到sql server2000中
- 从excel中导入数据到ds
- 如何把excel导入到数据库中!
- 导入EXCEL档到系统中
- 将EXCEL 数据导入到 DataGrid中
- 将Excel导入到SQL Server中!
- 将Excel数据导入到数据库中
- {ASP}从Excel导入到Access中
- Excel数据导入到Sql server2000中
- datalist的数据导入到Excel中
- DOS下的点阵汉字
- SyncML相关资源链接
- 关于IPTV中的流传输技术研究与分析
- GET请求的替代方案 发送GBK编码的URL
- 转载:PowerDesigner 12 通用破解方法
- Excel导入到notes中
- 最近关于DNN,又有一些值得记录的小技巧(tips),sql乱码和articles模块源码修改
- Web Service是当前实现SOA最理想的技术
- 安全的GET提交
- ASP.NET中Session的状态保持方式
- Eclipse Project
- Mysql命令
- C#使用SharpZipLib压缩和解压文件1/3压缩类
- 【problem】mysql建表错误 error number 1289