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