c/s下将视图导出到excel

原创 2007年09月30日 11:25:00
Sub Click(Source As Button)
   
    On Error Goto ErrorHandle
   
    Dim workspace As New NotesUIWorkspace
    Dim Session As New NotesSession
    Dim uidoc As notesuidocument   
    Dim db As NotesDatabase
    Dim view As notesview
    Dim viewt5sub As NotesView
    Dim dc As NotesDocumentCollection
    Dim dcKzd As NotesDocumentCollection
    Dim doc As notesdocument
    Dim docKzd As notesdocument
    Dim profile As notesdocument
    Dim item As notesitem
    Dim itema As notesitem
    Dim rtitem As Variant
   
    Set db = session.CurrentDatabase
    Set uidoc = workspace.CurrentDocument   
    Set doc = uidoc.Document   
   
    Set viewt5sub = db.GetView("ExportT5")
    Set dc = viewt5sub.GetAllDocumentsByKey(doc.bmgwqdbdocid(0),True)
    If dc.count = 0 Then
        Msgbox "没有数据,不能执行导出!",16,"提示"
        Exit Sub
    Else
        Print "开始导出..."
        Dim floder As String
        floder = "c:/报表"   
        If Dir$(floder,16) = "" Then
            Mkdir floder
        End If       
         '------------------------------------------------------------
         '得到excel模板----------------------------------------------
        Dim dba As New NotesDatabase(db.Server,"excelmb/mb.nsf")
        Set exview = dba.GetView("Report")
        Call exview.refresh
        Set exdc = exview.GetAllDocumentsByKey("Table",True)
        If exdc.count>0 Then
            Set exdoc = exdc.getfirstdocument
            If Not exdoc Is Nothing Then
                Set rtitem = exdoc.GetFirstItem("ReportBody")
                If ( rtitem.Type = RICHTEXT ) Then
                    Forall o In rtitem.EmbeddedObjects
                        If ( o.Type = EMBED_ATTACHMENT ) Then
                            Call o.ExtractFile( "c:/Table.xls")
                        End If
                    End Forall
                End If
            End If   
        End If
         '得到excel模板----------------------------------------------
        '产生Excel文件
        Set excelApplication = CreateObject("excel.Application")       
        Set excelWorkbook = excelApplication.Workbooks.add("c:/Table.xls")
        Set excelSheet = excelWorkbook.Worksheets("Sheet1")       
        '导出文档       
        Set docKzd = dc.GetFirstDocument()
        i = 6
        While Not(docKzd Is Nothing)
           
            bumen = doc.bumen(0)
            subject = bumen
            zxrgw = doc.kzd_zrr(0)
            docflag = doc.bmgwqdbdocid(0)
            pgsjfw =  Cstr(doc.pgfw1(0))+"~"+Cstr(doc.pgfw2(0))
            fzflow = doc.showflow
           
            excelSheet.Cells(1,1).Value = docflag           
            excelSheet.Cells(2,1).Value = doc.UniversalID  
            excelSheet.Cells(1,2).Value = subject
            excelSheet.Cells(4,2).Value = zxrgw
            excelSheet.Cells(4,7).Value = pgsjfw
            excelSheet.Cells(3,3).Value = doc.YgCode(0)
           
            excelSheet.Cells(i,1).Value = docKzd.UniversalID 
            excelSheet.Cells(i,2).Value = docKzd.xzmc(0)           
            excelSheet.Cells(i,3).Value = docKzd.kzdbh(0)
            excelSheet.Cells(i,4).Value = docKzd.a_kongzhidianmin(0)
           
            excelSheet.Cells(i,5).Value = docKzd.ygzpjl(0)           
            excelSheet.Cells(i,6).Value = docKzd.qxxz(0)
            excelSheet.Cells(i,7).Value = docKzd.qxms(0)
            excelSheet.Cells(i,8).Value = docKzd.zxqxcsyy(0)
            excelSheet.Cells(i,9).Value = docKzd.sjje(0)
            excelSheet.Cells(i,10).Value = docKzd.qzyx(0)
            excelSheet.Cells(i,11).Value = docKzd.zxgjcs(0)           
            excelSheet.Cells(i,12).Value = Cstr(docKzd.wcsj(0))
            '给excel加边框
            excelSheet.cells(i,2).Borders.LineStyle   =  1
            excelSheet.cells(i,3).Borders.LineStyle   =  1
            excelSheet.cells(i,4).Borders.LineStyle   =  1
            excelSheet.cells(i,5).Borders.LineStyle   =  1
            excelSheet.cells(i,6).Borders.LineStyle   =  1
            excelSheet.cells(i,7).Borders.LineStyle   =  1
            excelSheet.cells(i,8).Borders.LineStyle   =  1
            excelSheet.cells(i,9).Borders.LineStyle   =  1
            excelSheet.cells(i,10).Borders.LineStyle   =  1
            excelSheet.cells(i,11).Borders.LineStyle   =  1
            excelSheet.cells(i,12).Borders.LineStyle   =  1
            i = i + 1
            Set docKzd = dc.GetNextDocument(docKzd)
        Wend
       
        Kill "c:/Table5.xls"
        newfilename = floder+"/"+doc.kzd_zrr(0)+"("+Cstr(Format(Now, "yyyymmddhhhmmss"))+")"
        excelworkbook.Saveas(newfilename)
       
        excelapplication.Quit
        Set excelapplication = Nothing
        Msgbox "导出成功,请在【C:/报表】文件夹下查看!"
    End If
    Exit Sub   
ErrorHandle:
    Msgbox Cstr(Erl()) + "....." + Error(),16,"提示"
    excelapplication.Quit
    Set excelapplication = Nothing
    Exit Sub   
End Sub 

C# C/S 、B/S 使用StreamWriter导出数据成Excel文件

1:导出数据为Excel文件时开发项目时比较常用的方法。以前对于数据量较小的情况使用 Microsoft.Office.Interop.Excel.Workbooks相关类,编写起来也比较麻烦,对于数...
  • duanzi_peng
  • duanzi_peng
  • 2013年12月19日 14:01
  • 17521

C# C/S 、B/S 使用StreamWriter导出数据成Excel文件

1:导出数据为Excel文件时开发项目时比较常用的方法。以前对于数据量较小的情况使用 Microsoft.Office.Interop.Excel.Workbooks相关类,编写起来也比较麻烦,对于数...
  • duanzi_peng
  • duanzi_peng
  • 2013年12月19日 14:01
  • 17521

C# asp.net 实现导出Excel

转自http://www.cnblogs.com/zhangjd/p/5673950.html 两个方法 一、实现DataTable数据导出到本地,需要自己传进去导出的路径。 /// /// Da...
  • wybshyy
  • wybshyy
  • 2016年08月17日 17:10
  • 5019

简单的使用NPOI读取和生成Excel文件

读取Excel文件: //打开Excel文件 using (FileStream excelfs = new FileStream("c:\\workbook.xls", FileMode.Open...
  • zjlovety
  • zjlovety
  • 2016年05月12日 16:01
  • 2444

使用java开发导出excel的两种方式

做个记录
  • u011671631
  • u011671631
  • 2016年10月28日 11:51
  • 659

用第三方控件导出Excel,相对简单

ASP.NET - 读写Excel - MyXls - 三方控件使用说明 第三方工具下载:http://myxls.in2bits.org/WIKI/Downloads.ashx 1、...
  • zhuyu19911016520
  • zhuyu19911016520
  • 2013年01月08日 15:51
  • 2999

.NET NPOI导出Excel详解

NPOI,顾名思义,就是POI的.NET版本。那POI又是什么呢?POI是一套用Java写成的库,能够帮助开发者在没有安装微软Office的情况下读写Office的文件。 支持的文件格式包括xl...
  • u012284907
  • u012284907
  • 2017年01月17日 17:10
  • 276

RDLC报表用代码实现导出EXCEL

protected void btnExportExcel_Click(object sender, EventArgs e) { Warning[] warnings; string...
  • voodooer
  • voodooer
  • 2015年03月04日 14:51
  • 2316

使用POI把数据导出excel表

在web开发中,有一个经典的功能,就是数据的导入导出。特别是数据的导出,在生产管理或者财务系统中用的非常普遍,因为这些系统经常要做一些报表打印的工作。而数据导出的格式一般是EXCEL。        ...
  • sinat_25926481
  • sinat_25926481
  • 2015年11月12日 17:58
  • 1972

C#创建Excel文件并将数据导出到Excel文件

C#创建Excel文件,这里实际上是从资源中提取一个事先创建好的Excel文件,文件提取成功后,使用OleDb方法连接Excel,向Excel文件中写入数据。创建解决方案菜单》新建》项目》Window...
  • testcs_dn
  • testcs_dn
  • 2014年05月10日 23:19
  • 33069
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:c/s下将视图导出到excel
举报原因:
原因补充:

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