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

最新推荐文章于 2022-07-27 16:53:26 发布

原创最新推荐文章于 2022-07-27 16:53:26 发布 · 2.3k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#excel #lotus #integer #string #session #import

lotus 专栏收录该内容

50 篇文章

订阅专栏

本文介绍如何通过Lotus脚本从Excel文件'd:档案检索.xls'读取数据，并将其导入到Notes数据库中。代码示例展示了如何打开Excel工作簿，遍历指定工作表('院发函件')的特定行，然后将数据保存到Notes文档中。导入字段包括'wenhao', 'zenrenzhe', 'subject', 'yeci', 'qixian'和'juanhao'。" 122408976,11552557,目录操作与文件系统交互,"['c++', '操作系统', '文件管理']

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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