欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

从lotus怎么导出数据

更新时间: 2014-01-05 03:01:23 责任编辑: Author_N1

 

从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兼容,写起来容易些,当然也可以用其他语言和工具,但是复杂。


--参考方法--
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 03:01:23
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/17391/
本文WWW.DOC100.NET DOC100.NET版权所有。