domino中excel的导入导出如何实现？
作者&投稿：舟莘 （若有异议请与网页底部的电邮联系）
用Domino的java 类。你这个需求基本上靠三个类就可以。Database,View,Document,用这三个类方基本就能实现你想做的任何事。具体的使用方法，需要看Designer中的帮之里的Java/CORBA classses。最好装个IBM Lotus Designer.
用程序导出成CSV或者XML格式，需要自己开发这样的程序。
运行这段代码的时候，必须保证Excel的数据格式与文档的数据格式一致，一个单元格对应一个域。本代码从第二行开始读取，认为第一行是标题，而不是有用的数据。
本代码判断Excel数据已经读取完毕的条件是：准备读取的第一个单元格的内容为空。
导入后，刷新视图就可以显示数据了。
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace 'workspace
Dim ss As New NotesSession 'session
Dim db As NotesDatabase 'database
Dim files As Variant 'file name
Dim schar As String 'cell content
Dim doc As NotesDocument 'notes document
Dim excelapplication
Dim i,sheet
Set db = ss.currentdatabase
files = ws.openfiledialog(False,"请选择要导入的Excel文件","Excel file/*.xls")
sheeet = 1
If Not(Isempty(files)) Then '如果用户选择了文件，或者输入了文件名，那么就开始准备打开excel文件。
Set excelapplication = createobject("excel.application")
Set excelworkbook = excelapplication.workbooks.open(files)
If excelworkbook Is Nothing Then '如果未找到文件，则退出
excelapplication.quit
Exit Sub
End If
Set excelsheet = excelworkbook.worksheets(1)
i = 2 '从第二行开始读取
'一个sheet里面所有记录循环
Do Until Cstr(excelsheet.cells(i,1).value) =""
Set doc = New NotesDocument(db)
doc.Form = "物资计划"
doc.xmmc = excelsheet.cells(i,1).value '项目名称
doc.jhbh = excelsheet.cells(i,2).value '计划编号
doc.jhfypc = excelsheet.cells(i,3).value '计划发运批次
doc.clmc = excelsheet.cells(i,4).value '材料名称
doc.ggxh = excelsheet.cells(i,5).value '规格型号
doc.bz = excelsheet.cells(i,6).value '备注
doc.cz = excelsheet.cells(i,7).value '材质
doc.dw = excelsheet.cells(i,8).value '单位
doc.jhsl = excelsheet.cells(i,9).value '计划数量
doc.dhsjyq = excelsheet.cells(i,10).value '到货时间要求
doc.shyj = excelsheet.cells(i,11).value '审核意见
doc.cgr = excelsheet.cells(i,12).value '采购人
doc.ht_loadmark="Excel 导入 at " + Cstr(Now())
Call doc.save(False,False) '保存
i=i+1
Loop
excelworkbook.close(False)
excelapplication.quit
Set excelapplication = Nothing
End If
End Sub
------------------------------------------------------------------------
应当注意的是：如果当前视图一个文档也没有显式的选中（即用鼠标点取），那么lotus会自动默认选中第一条文档。
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim curdoc As NotesDocument
Set uidoc = ws.CurrentDocument
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim session As New NotesSession
Dim excelApplication As Variant
Dim excelWorkbook As Variant
Dim excelSheet As Variant
Dim collection As notesdocumentcollection
Dim i,index1,index2 As Integer
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments 'UnprocessedDocuments是选中的文档集合
Set doc = collection.GetFirstDocument()
If (doc Is Nothing) Then
Messagebox("请选择你要导出的记录！")
Exit Sub
End If
filenames = ws.SaveFileDialog(False,"导出到Excel","Excel文件|*.xls", "C:", "物资计划按项目.xls")
If Isempty(filenames) Then '如果没有得到文件名，则提示后退出
Messagebox("未提供目标文件名称")
Exit Sub
End If
Set excelApplication = CreateObject("Excel.Application") '创建Excel对象
excelApplication.Visible = True '显示Excel
Set excelWorkbook = excelApplication.Workbooks.Add '添加表
Set excelSheet = excelWorkbook.Worksheets("Sheet1") '选中表
'第1行写标题
excelSheet.Cells(1,1).Value = "项目名称"
excelSheet.Cells(1,2).Value = "计划编号"
excelSheet.Cells(1,3).Value = "计划发运批次"
excelSheet.Cells(1,4).Value = "材料名称"
excelSheet.Cells(1,5).Value = "规格型号"
excelSheet.Cells(1,6).Value = "材质"
excelSheet.Cells(1,7).Value = "单位"
excelSheet.Cells(1,8).Value = "计划数量"
excelSheet.Cells(1,9).Value = "到货时间要求"
excelSheet.Cells(1,10).Value = "审核意见"
'从第2行开始写数据
i = 2
While Not(doc Is Nothing)
excelSheet.Cells(i,1).Value = doc.xmmc(0)
excelSheet.Cells(i,2).Value = doc.jhbh(0)
excelSheet.Cells(i,3).Value = doc.jhfypc(0)
excelSheet.Cells(i,4).Value = doc.clmc(0)
excelSheet.Cells(i,5).Value = doc.ggxh(0)
excelSheet.Cells(i,6).Value = doc.cz(0)
excelSheet.Cells(i,7).Value = doc.dw(0)
excelSheet.Cells(i,8).Value = doc.jhsl(0)
excelSheet.Cells(i,9).Value = doc.dhsjyq(0)
excelSheet.Cells(i,10).Value =doc.shyj(0)
i = i+1
Set doc = collection.GetNextDocument(doc)
Wend
excelWorkbook.SaveAs(filenames(0))
excelApplication.Quit
Set excelApplication = Nothing
Messagebox("文件已保存到" +filenames(0))
End Sub
嬴肾阿洛： 一般建立VBA对象, 然后对EXCEL进行操作, 但最好是CS端, 因为它要求你调用程序的机器安装了MS OFFICE
彰武县19170621140： 请教:使用java语言将domino数据库导出到excel中？
嬴肾阿洛： 用Domino的java 类.你这个需求基本上靠三个类就可以.Database,View,Document,用这三个类方基本就能实现你想做的任何事.具体的使用方法,需要看Designer中的帮之里的Java/CORBA classses.最好装个IBM Lotus Designer.
彰武县19170621140： Lotus Domino/Notes的数据怎么导入到SQLServer? - ？
嬴肾阿洛： 1、在Notes客户端打开这些数据库相关的某个视图;2、在文件-》引出中选Lotus 1-2-3文件格式引出一个表文件;3、用EXCEL 或ACCESS直接打开这个文件,另存为EXCEL或 ACCESS文件;4、从EXCEL或 ACCESS导到SQL Server;应可以的
彰武县19170621140： 怎样将matlab中的数据导入到excel中 - ？
嬴肾阿洛： 将matlab中的数据导入excel的方法:1.例如matlab将矩阵或数组中国的信息全部导出可以用xlswrite函数,首先打开matlab,输入代码,如图:2.然后找到要存放文件的位置复制绝对路径(致谢文件名的话就会存放在当前目录中),如图以f盘根目录为例)3.然后写xlswrite函数,格式如图,具体格式课参看help xlswrite,如图:4.xlswrite函数前一项是路径,后一项是要输出的矩阵.5.然后点击执行,等待一下,就会在指定位置新建xls文件,打开如图:6.如要竖着输出数据的话,将矩阵转置即可7.在后面可控制输出数据在xls中的范围,如A:D,2:16等 注意:转置后原来的数据只会被覆盖不会消失
彰武县19170621140： delphi中怎么实现EXCEL导入/导出到SQL Server数据库 - ？
嬴肾阿洛： 1.打开SQL Server Management Studio,按图中的路径进入导入数据界面.2.导入的时候需要将EXCEL的文件准备好,不能打开.点击下一步.3.数据源:选择“Microsoft Excel”除了EXCEL类型的数据,SQL还支持很多其它数据源类型.4.选...
彰武县19170621140： matlab中怎么导出到excel - ？
嬴肾阿洛： 可以用dlmwrite('data.xls',A) A表示数值矩阵,此命令的意思是将矩阵A中数据保存到data文件中,文件为excel.但有时将MATLAB数据导入到excel时出错,数据形式不对,有时是对的,这个我遇到过,我在这个还有个方法,你可以借鉴下,分两步走,第一先将MATLAB数据保存到txt文档,即dlmwrite('data.txt',A) ,然后打开excel文件打开文件,将txt文档数据导入excel文件中即可.
彰武县19170621140： 如何将access中的数据导出为EXCEL文件? - ？
嬴肾阿洛： Access中确实具备直接导出Excel的功能,就日常使用来讲,将Access中的表、查询这两种对象导出Excel文件比较常见. 首先打开Access,找到你想要导出的表或者查询(两种对象的导出方法完全一样) 单击右键,选择导出Excel表 然后根据对话框提示,选择导出的路径 如果系统有如下提示,表示已经成功导出最后,可以去事先设定好的路径下查看导出的文件至此,Access导出Excel文件工作全部完成.
彰武县19170621140： 如何将excel表中的数据导入origin,在origin绘图后,再将图自动返回到excel? - ？
嬴肾阿洛： 看了你的追问里的详细描述,明白你的意思了.由于表格的格式都完全相同,那么可以只导入某个特定列的数据进入Origin.这个功能在 Origin 8.0 及更高的版本都可以实现. (1) 首先你需要把Excel 文件另存为 *.scv 格式 (2)然后 File — ...
彰武县19170621140： 如何将Excel中一个表格的数据导入到另一个表格 - ？
嬴肾阿洛： 打开需要导出数据的Excel文件和需被导入数据的Excel文件,再进入导出数据的Excel工作表,单击工作表标签,选择“移动或复制工作表”,跳出移动或复制工作表对话框后,选择被导放工作表的Excel文件,这样就可以了
彰武县19170621140： 可以把excel导入到mantis里吗 - ？
嬴肾阿洛： 1/导出时选择“导出为Excel”,导出的是xml;2/然后用excel方式打开该文件;3/然后另存为xls/xlsx格式.
