CSDN博客

img snowdot23

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

发表于2004/7/5 16:18:00  1122人阅读

分类: lotus

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
0 0

相关博文

我的热门文章

img
取 消
img