当前位置: 代码迷 >> Lotus >> 从Lotus怎么导出数据
  详细解决方案

从Lotus怎么导出数据

热度:183   发布时间:2016-05-05 06:54:19.0
从Lotus如何导出数据
对lotus了解很少,现在知道如何从lotus导出数据。我也在网上搜了一下,有很多都是类似于
On Error  Goto errorhandler
Dim db As NotesDatabase
Dim session As New notessession
。。。
这样的代码,以下是我的问题:

1.我不知道这些代码是在哪里输入才能得到具体的数据,
2.而且我查的这些代码不是一致的,这样的一段代码是不是只能得到某一个form下的所有表单,如果想得到一个数据库下的所有数据应该怎么办?
3.lotus里面的数据是不是其实只有所有form的具体表单
4.还是先把数据导入到excel里面吧,在这里求把lotus的数据导入到excel里面的方法(可以不是代码)

我lotus实在不了解,希望能给我个傻瓜式指导,具体的步骤是什么,谢谢,如果能帮我彻底解决问题,可以多加分。
------解决方案--------------------
Sub   Initialize 

Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument

Dim row
Dim xlsApp As Variant 'Excel对象

Set xlsApp = CreateObject("Excel.application")

If Not(xlsApp Is Nothing) Then
  '在这个 Excel 文件当中添加一个 Sheet
xlsApp.Workbooks.Add
xlsApp.Visible = False ' 传值过程是否显示选择True则显示EXCEL,False则不显示。
row = 1
xlsApp.Workbooks(1).Worksheets( 1 ).Cells( 1 , 1).Value = "AA" '第一行第一列,这里时给第一行的列加标题
xlsApp.Workbooks(1).Worksheets( 1 ).Cells( 1 , 2).Value = "BB" '第一行第二列
'xlsApp.Workbooks(1).Worksheets( 1 ).Cells( 1 , 3).Value = "CC"
'...................不够可以加行........................

 ' 导出数据至Excel
Set uidoc = ws.CurrentDocument
Set db = s.CurrentDatabase
Set view = db.GetView("vhDocNo")'文档所在的视图名字

'Dim dc As NotesDocumentCollection  这个是对视图中勾中的文档进行操作,并要把代理属性改成 all selected documents
'Set dc = db.UnprocessedDocuments
'Set doc = dc.GetFirstDocument   

Set doc = view.GetFirstDocument

While Not(doc Is Nothing)

'循环给EXCEL表的两列赋值
row = row+1
xlsApp.Workbooks(1).Worksheets( 1 ).Cells(row , 1).Value = doc.type(0)'type和SerialNo是要获取的表单中的某个域名字
xlsApp.Workbooks(1).Worksheets( 1 ).Cells(row , 2).Value = doc.SerialNo(0)
'xlsApp.Workbooks(1).Worksheets( 1 ).Cells(row , 3).Value = doc.DisStatus(0)

Set doc = view.GetNextDocument(doc)

Wend
xlsApp.ActiveWorkbook.SaveAs( "d:\xxxx.xls")'存放路径
      '关闭资源
xlsApp.Quit
          '资源释放
Set xlsApp = Nothing 
  'Msgbox("报表已经生成!")
  '打开报表
'ws.URLOpen("d:\xxxx.xls")
End If

Exit Sub

End Sub
------解决方案--------------------
建议了解一下Notes的基本概念,
Notes应用通常只是一个nsf文件,它包含了数据(就是文档),显示(Form,视图,...)及处理数据如何读取与保存的业务逻辑代码。也就是说:
Notes文档大致相当于关系数据库里的一条记录,
Form大致相当于程序的UI(比如,web应用程序的html页面)展示数据库用的,不同的是它也是定义文档数据字段的工具,说他是工具,是因为完全可以不用Form,独立地创建一个没有Form但包含字段的Notes文档。


1.我不知道这些代码是在哪里输入才能得到具体的数据,
你的电脑得安装了Notes,
然后你可以在Notes designer的写这些代码,并在Notes里运行,
也可以用VB写代码,运行在MS的产品里,比如Excel, Loutus Script语法和关键字基本上和标准的 VB Script兼容,写起来容易些,当然也可以用其他语言和工具,但是复杂。


------解决方案--------------------
  相关解决方案