export grid to excel fast and wyswyg

原创 2004年01月02日 13:32:00
export grid to excel quickly and wyswyg 2003-12-28 11:50:28.89

'**
'export grid to excel
Private Sub exportExcel(grid As EditGridCtrlLib.EditGridCtrl)
Dim xlApp       As Object       '*Excel.Application    '
Dim xlBook      As Object       '*Excel.Workbook       '
Dim xlSheet     As Object       '*Excel.Worksheet      '
Dim cx          As Long
Dim data()      As String
Dim cnt         As Integer      ' visible column's count
Dim curCol      As Long
Dim i           As Integer
Dim j           As Integer
    ' if no column need output,exit
    With grid
        cnt = 0
        For i = 0 To .Cols - 1
            If .ColWidth(i) < 0 Or .ColWidth(i) > 50 Then
                cnt = cnt + 1
            End If
        Next i
    End With
   
    If cnt = 0 Then
        Exit Sub
    End If
   
    cx = GetDeviceCaps(Me.hdc, LOGPIXELSY)
   
    g_Utility.WaiterBegin
   
    On Error GoTo err_proc
   
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)
       
    xlApp.ScreenUpdating = False
    ' begin to fill
    With Me.grdList
        ReDim data(.Rows - 1, cnt - 1)
       
        curCol = 0
       
        For i = 0 To .Cols - 1
       
            If .ColWidth(i) < 0 Or .ColWidth(i) > 50 Then
                For j = 0 To .Rows - 1
                    data(j, curCol) = .TextMatrix(j, i)
                Next j
               
                xlSheet.Columns(curCol + 1).Select
               
                If Fix(.ColAlignment(i) / 3) = 0 Then
                    xlApp.Selection.HorizontalAlignment = -4131 ' xlLeft
                End If
               
                If Fix(.ColAlignment(i) / 3) = 1 Then
                    xlApp.Selection.HorizontalAlignment = -4108 ' xlCenter
                End If
               
                If Fix(.ColAlignment(i) / 3) = 2 Then
                    xlApp.Selection.HorizontalAlignment = -4152 ' xlRight
                End If
               
                ' resize column width
                xlSheet.Columns(curCol + 1).ColumnWidth = .ColWidth(CLng(i)) / cx
               
                curCol = curCol + 1
            End If
           
        Next i
    End With
   
    With xlSheet
        .range(.cells(1, 1), .cells(Me.grdList.Rows, cnt)).value = data
    End With
   
    ' colheader align center
    xlSheet.Rows(1).Select
    xlApp.Selection.HorizontalAlignment = -4108 ' xlCenter
    xlApp.ActiveSheet.pagesetup.PrintGridlines = True
   
    If Me.grdList.FixedRows > 0 Then
        xlApp.ActiveSheet.pagesetup.PrintTitleRows = xlSheet.Rows(Me.grdList.FixedRows).Address
    End If
   
    If Me.grdList.FixedCols > 0 Then
        xlApp.ActiveSheet.pagesetup.PrintTitleColumns = xlSheet.Columns(Me.grdList.FixedCols).Address
    End If
   
    xlApp.ScreenUpdating = True
    xlApp.Visible = True
    xlApp.ActiveWorkbook.printPreview
    xlApp.DisplayAlerts = False
    xlApp.ActiveWorkbook.Close False
    xlApp.DisplayAlerts = True
   
    xlApp.Quit
   
    Set xlApp = Nothing
    Set xlBook = Nothing
    Set xlSheet = Nothing
   
    g_Utility.WaitEnd
   
    Exit Sub
   
err_proc:
    g_Utility.WaitEnd
    If Not xlApp Is Nothing Then
        xlApp.Quit
        Set xlApp = Nothing
    End If
    g_ErrLog.ShowMessage Err
   
End Sub

说明:
1、使用range.value一次性填充数据,可以极大地加快速度
2、ScreenUpdating 设为false可以加快速度
3、对不可见列不打印,并且根据grid来设置对齐方式
4、迟绑定可以减少去excel版本的依赖性

为什么使用这种方法而不是其它更快速的方法
1、copyformrecordset
   这样的话就需要一个ado的结果集才可以操作,而且对列的对齐、列头文本、不可见列的操作都无法进行
2、querytable
   由于在三层开发中客户端并没有办法直接访问数据库,同时它还存在着和上面一样的缺陷
3、bcp
   这个是最快的了 可是局限性同上

[ExtJS5学习笔记]第三十三节 sencha extjs 5 grid表格导出excel

使用extjs肯定少不了使用表格控件,用到表格,领导们(一般)还是惯于使用excel看数据,所以用到extjs表格的技术猿们肯定也会有导出表格excel这一个需求,本文主要针对如何在用extjs将gr...
  • sushengmiyan
  • sushengmiyan
  • 2015年03月23日 22:19
  • 7643

ExtJS4 动态生成的grid导出为excel(纯前台)

搜索了蛮久,找到一些例子,因为我是初学者的缘故大多不知道怎么使用。。 研究了一下那个源码,搞到现在终于实现了基本的下载。。解决了一个表格不能重复下载的小BUG,一个使用grid初始化发生的BU...
  • hu8471479
  • hu8471479
  • 2014年05月02日 01:19
  • 3317

【翻译】将Ext JS Grid转换为Excel表格

原文:Converting an Ext 5 Grid to Excel Spreadsheet稍微迟来的礼物——Ext JS Grid转为Excel代码,现在支持Ext JS 5!功能包括: - ...
  • tianxiaode
  • tianxiaode
  • 2015年05月25日 14:57
  • 2451

bootstrap table和tableExport导出支持中文的Excel和pdf等表格

前言由于最近项目有一个导出表格为pdf格式,所以就做了这个功能。由于项目的表格是基于bootstrap和bootstrap table实现的,相对于easyUI来说它的优点是更方便,更好兼容。从代码可...
  • youand_me
  • youand_me
  • 2017年08月03日 18:28
  • 4447

arxiv每周速报第二期

感觉每天看文章还是很有帮助的,arXiv上的Computer Vision and Pattern Recognition每天都有文章更新。我每周会找几篇文章分享给大家(主要是语义分割和目标检测这一块...
  • u010213183
  • u010213183
  • 2017年06月05日 10:20
  • 501

ligerUI通用导出Excel代码

//模块化 /*使用方法,1.根据需要,更改导出Excel和下载excel的Url地址,2. 导如以下js代码, 3.调用gridExportModule.exportSelectRows('g...
  • imyc7
  • imyc7
  • 2014年06月25日 17:52
  • 4995

【wxPython】wxPython电子表格功能wx.grid例程

#!/usr/bin/env python #encoding: utf8 import wx import wx.grid as gridlib #import wx.lib.mixins.gri...
  • u014647208
  • u014647208
  • 2017年11月30日 12:02
  • 354

GridReport导出 Excel 产生很多细小的列与行(合并列与合并行)

来自GridReport的帮助文档(开发指南——报表数据导出——改善报表导出效果) 改善报表导出效果 - 开发指南 Grid++Report 可以把报表导出为多种数据格式,包括:Excel、RTF...
  • crab530143383
  • crab530143383
  • 2014年12月16日 09:22
  • 1315

Ligerui中grid导出为Excel和Word 的例子(转)

转自:http://www.cnblogs.com/Fooo/archive/2012/07/30/2614912.html  且行且思  下面采用的导EXCEL方法,适合不翻页的gri...
  • dxnn520
  • dxnn520
  • 2013年02月17日 17:36
  • 3427

MVC项目中如何用JS导出EasyUI DataGrid为Excel

在做一中考评项目的时候,遇到了这么一个需求,就是把评教后得到的老师的成绩导出为Excel。其实需求很普通,实现起来有些复杂,因为老师考评不但有固定的考核项,还有额外加分项。于是我们就抽出来了一个表,专...
  • u013038861
  • u013038861
  • 2016年01月03日 21:50
  • 3811
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:export grid to excel fast and wyswyg
举报原因:
原因补充:

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