导到Excel,

原创 2006年05月30日 16:50:00

Sub Click(Source As Button)
 Dim ws As New NotesUIWorkspace
 Dim session As New notessession
 
 Dim uidoc As NotesUIDocument
 Dim doc As NotesDocument
 Dim files As Variant
 Dim v As Variant
 Dim excelApplication As Variant
 Dim excelWorkbook As Variant
 Dim excelsheet As Variant
 
 ret = Messagebox("Are you sure you want to export data to excel」ソ",4 + 32,"")
 If  ret= 7 Then
  Exit Sub
 End If
 
 files = ws.SaveFileDialog( False,"File name",, "c:/", "data.xls")
 
 Set excelApplication=CreateObject("Excel.Application")
 Set excelWorkbook = excelApplication.Workbooks.Add
 Call excelWorkbook.SaveAs(files(0))
 
 
 Set excelsheet=excelWorkbook.Sheets.add
 
 excelsheet.name="itemname"
 
 excelSheet.Cells(1,1).Value="FormName"
 excelSheet.Cells(1,2).Value="FieldName"
 excelSheet.Cells(1,3).Value="FieldType"
 excelSheet.Cells(1,4).Value="FieldSize"
 excelSheet.Cells(1,5).Value="values"
 count=2
 
 Dim db As NotesDatabase
 Dim view As notesview
 Dim vdoc As NotesDocument
 
 Set db=session.CurrentDatabase
 Set view=db.GetView("AllDoc")
 Set vdoc=view.GetFirstDocument
 While Not(vdoc Is Nothing)
  excelSheet.Cells(count,1).Value=vdoc.FormName(0)
  excelSheet.Cells(count,2).Value=vdoc.FieldName(0)
  excelSheet.Cells(count,3).Value=vdoc.FieldType(0)
  excelSheet.Cells(count,4).Value=vdoc.FieldSize(0)
  excelSheet.Cells(count,5).Value=vdoc.values(0)
  count=count+1
  Set vdoc =view.GetNextDocument(vdoc)
 Wend
 excelWorkbook.save
 excelWorkbook.close(False)
 excelApplication.Quit
 Set excelApplication=Nothing
 ret =Messagebox("The data export succeed」。",0 + 64,"S")
End Sub

用Python将mysql库表结构导成excel

1、将mysql库表结构导出成多个excel /Users/nisj/PycharmProjects/BiDataProc/oldPythonBak/MysqlTabStrc2Excel/mysql...

《Unity 3D游戏客户端基础框架》protobuf 导excel表格数据

之前使用NPOI插件编写的导表工具,其实就是直接将数据进行序列化,解析时还需要进行反序列化,步骤比较繁复,最近看到Google的一个开源的项目protobuf,不仅可以用于进行excel表格数据的导出...

Swing开发的收获心得(三)---------Jtable导成Excel

如何把Jtable的内容提取出来,生成一个excel,让用户自己选择生成路径。 上图   效果:点击导出,让用户选择保存路径,并且是excel格式的 思路:使用Jxl这个包,获得jtabl...
  • zjy105
  • zjy105
  • 2011年11月21日 17:15
  • 1015

分享个将excel导为DB数据的方法

将excel导为DB数据 1、将excel文件通过excel另存为csv格式的文件 2、通过文本编辑将csv的文件编码格式转为UTF8(可选) 3、打开MesaSQlite等数据库工具,新建一个DB文...
  • xyxjn
  • xyxjn
  • 2013年07月31日 09:22
  • 6428

C#中将dataGridView导到excel

工程中-右击引用-添加-COM-选择microsoft excel 1.先去导入dll库:Microsoft.Office.Interop.Excel.dl 2.然后再去写代码:using S...
  • zqrhzyj
  • zqrhzyj
  • 2017年07月26日 10:22
  • 58

将DBF数据文件导成excel文件的问题

用 copy to EXCEL表名 type xl5 只能导出16383条记录,超过此数的用以下方法导出: 方法一: 如果你的数据中都是普通的数值和字符串类型,直接用Excel打开表,然后“另存为...

VFP导成EXCEL每次只能导16384行的解决方法

以下是在网上找的一些内容,我是用的下面的 COPY TO TEST.CVS TYPE CVS方法解决的   为什么用VFP导成EXCEL每次只能导16384行? *-----------...

将excel文件导成mysql文件

  • 2017年08月22日 14:42
  • 8KB
  • 下载

java将数据导成excel

  • 2015年11月18日 16:36
  • 5KB
  • 下载

如何将excel表格文件导成SQLite数据库文件(.xls-->.db)

导读:首先声明小编刚开始开发android只有4个月左右,所以有不足之处敬请各位指出,小编在此先行谢过。 最近由于公司项目需求需要将一些固定的数据放在本地,也就是app里面。通过查询资料决定...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:导到Excel,
举报原因:
原因补充:

(最多只允许输入30个字)