| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 459 人关注过本帖
标题:用VB6.0做了一个导出EXCEL的代码,有点小问题
取消只看楼主 加入收藏
jzhandly
Rank: 2
等 级:论坛游民
帖 子:9
专家分:20
注 册:2009-7-25
结帖率:66.67%
收藏
已结贴  问题点数:10 回复次数:0 
用VB6.0做了一个导出EXCEL的代码,有点小问题
VB引用一下“Microsoft Excel 11.0 Object Library”
导出效果可以看代码(不要直接成生EXCEL文件的代码),在运行导出数据时如果用鼠标“点住不放”EXCEL表中下面的滚动条后导出速度明显加快,不然大数据时导出速度有点慢,请高手帮助修改一下代码,谢谢。
代码如下:
Private Sub Command1_Click()
 Dim excelApp As Excel.Application
    Set excelApp = New Excel.Application     
  If excelApp Is Nothing Then
       Set excelApp = CreateObject("Excel.application")
       If excelApp Is Nothing Then
          Exit Sub
       End If
    End If
    excelApp.Visible = True
    Me.MousePointer = vbHourglass
    excelApp.Workbooks.Add
    With excelApp.ActiveSheet
        Dim i As Integer, j As Integer
        For i = 1 To 200
            For j = 1 To 10
                  .Cells(i, j) = j
            Next j
            .Rows(i + 1).Select
            DoEvents
        Next i
    .Cells.EntireColumn.AutoFit
    End With
    Me.MousePointer = vbDefault
    Set excelApp = Nothing
End Sub

[ 本帖最后由 jzhandly 于 2012-12-10 21:48 编辑 ]
搜索更多相关主题的帖子: 速度 Microsoft Object EXCEL 
2012-12-10 20:27
快速回复:用VB6.0做了一个导出EXCEL的代码,有点小问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.030139 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved