lotus中操作excel--引入excel数据至notes中

原创 2004年07月05日 16:18:00
Const ExcelName="d:档案检索.xls"
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim doc As NotesDocument
  Set db = session.CurrentDatabase
  Set doc = New NotesDocument(db)
  Dim item As NotesItem
  Dim One As String
  Dim row As Integer
  Dim written, records,ver  As Integer
  Dim FName As String
  Dim VName As String
  Dim xlFilename As String
  On Error Goto Error_call
 
  ''Set view = db.GetView("Import" 
 
  FormName= "frmhanjian" 
 
 
 
 
  Dim Excel As Variant
  Dim xlWorkbook As Variant
  Dim xlSheet As Variant
 
  Set Excel = CreateObject( "Excel.Application.9"  ''
  Excel.Workbooks.Open ExcelName ''
  Set xlWorkbook = Excel.Workbooks.Item(1)
  Set xlSheet = xlWorkbook.Worksheets("院发函件"
 
  Dim intRowCount As Integer
  intRowCount=1100
 
 
 
 
 
  row = 0
  written = 0
 
  Dim depList List As String
  depList("dep1"="党委"
  depList("dep2"="监审处"
  depList("dep3"="工  会"
  depList("dep4"="团  委"
  depList("dep5"="院  办"
  depList("dep6"="人教处"
  depList("dep7"="财务处"
  depList("dep8"="物业公司"
  depList("dep9"="保卫处"
  depList("dep11"="审查处"
 
  depList("dep12"="计经处"
  depList("dep13"="技管处"
 
  Dim  DepName As String
 
  For row=3 To intRowCount
  
  
   With xlSheet
   
   
   
    temp1="wenhao"
    temp2="zenrenzhe"
    temp3="subject"
    temp4="yeci"
    temp5="qixian"
    temp6="juanhao"
   
   
   
   
   
    If check( xlSheet,row,DepName) Then
    
    
    
     Set doc = db.CreateDocument
     doc.Form = FormName
     Call doc.ReplaceItemValue( temp1, .Cells( row, 2 .Value
     Call doc.ReplaceItemValue( temp2, .Cells( row, 3 .Value 
     Call doc.ReplaceItemValue( temp3, .Cells( row, 4 .Value
     Call doc.ReplaceItemValue( temp4, .Cells( row, 5 .Value 
     Call doc.ReplaceItemValue( temp5, .Cells( row, 6 .Value   
     Call doc.ReplaceItemValue( temp6, .Cells( row, 7 .Value
    
    
     Call doc.Save( True, True
    End If
   
   End With
  
  Next
  xlWorkbook.Close False
  Excel.Quit
  Set xlSheet =Nothing
  Set Excel = Nothing
  Print " " '' 
  Exit Sub
 Error_call:
  Print Error +"=========="+Cstr(Erl)
  xlWorkbook.Close False
  Excel.Quit
  Set xlSheet =Nothing
  Set Excel = Nothing
  Exit Sub
 End Sub

将lotus表单中的域全部导出到excel表中

在lotus中添加操作或者增加共享代理,代码中加入以下内容。保存后,运行即可。 Sub Click(Source As Button)    Dim s As New notessession    ...
  • peter521
  • peter521
  • 2007年12月06日 08:38
  • 1410

lotusScript(代理)导入Excel

  • 2009年07月01日 11:19
  • 39KB
  • 下载

35. 面向对象的LotusScript(七)之导入Excel

Microsoft Office是应用最广泛的办公软件,绝大多数公司的必备软件。其中的Excel操作直观方便,很多公司都有大量数据以Excel文件的格式保存。一个LotusNotes应用在很多情况下都...
  • starrow
  • starrow
  • 2013年07月04日 22:43
  • 4264

lotus中操作excel--引入excel数据至notes中

Const ExcelName="d:档案检索.xls"  Dim session As New NotesSession  Dim db As NotesDatabase  Dim view As...
  • snowdot23
  • snowdot23
  • 2004年07月05日 16:18
  • 1232

lotus notes库中数据导出到excel中

 关于lotus notes数据库和excel中数据交互的问题,今天把导出到excel中的方法写下来。 导出excel Dim excelApplication As Variant Dim exce...
  • lotusjava
  • lotusjava
  • 2008年07月22日 17:02
  • 1335

操作Lotus Notes数据库

今天,异构数据环境已经是一个普遍存在的问题,Windows常用开放数据库互连标准ODBC进行数据交换与操作,后来微软又推出了ADO技术,例如用VB操作Oracle、Sybase和SQL Server等...
  • Mobidogs
  • Mobidogs
  • 2007年03月14日 12:32
  • 3040

导出lotus notes中的数据

把数据从lotus notes导出到关系数据库有很多方法: 编写lotus script提取数据并写到外部数据库中; 用lotus提供的java api提取数据并写到外部数据库中; 通过lotus提供...
  • formalin
  • formalin
  • 2005年11月17日 12:56
  • 3796

共享一段Excel导入Notes的代码

Sub Click(Source As Button)--------------------------------------------------------------- PeiQingbi...
  • shulia
  • shulia
  • 2007年07月29日 18:03
  • 534

37. 面向对象的LotusScript(九)之导出Excel(一)

上一篇文章说到在LotusScript编写类时采用继承有两类情况,接下来的几篇文章介绍的就是其中的一种:为了重用代码。将Notes数据导出到Excel就是展现这类继承的一个很好场合。 微软的Excel...
  • starrow
  • starrow
  • 2013年07月07日 16:47
  • 3951

Lotus Notes 7.0找不到服务器路径

已经提示你了:unable to find path to server或者不能找到服务器路径。看看能否ping通服务器。到服务器的解析是否正确。点击左上角的文件选项卡打开数据库,然后在服务器里面直接...
  • zlhn55
  • zlhn55
  • 2017年02月08日 09:22
  • 1093
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:lotus中操作excel--引入excel数据至notes中
举报原因:
原因补充:

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