洛可可是富二代:MSFlexGrid与Excel

来源：百度文库编辑：偶看新闻时间：2024/05/09 07:12:00

MSFlexGrid与Excel (2009-05-22 10:38:53) 标签：vb msflexgrid 导入 excel 快速 it

目前正在进行的项目中，碰到一个难题：

那就是msflexgrid与Excel数据的相互导入过程中，速度慢的问题。

如果数据量不是很大的话，采用网上常举例的的方式还可以，但是一旦数据量很大，打到几万甚至几十万的时候，那个速度简直是慢得离谱，你简直不敢相信这是电脑在做事情。

首先讲讲传统方案：

1、按照Excel逐格填充的方法：

For i = 1 To TotalCount

MSFlexGrid1.Row = i

For j = 0 To 14

MSFlexGrid1.Col = j

‘下面或者MSFlexGrid1.TextMatrix(i, j)

xlsheet.Range(Chr(65 + j) + CStr(i + 2)).Value = MSFlexGrid1.Text

Next j

Next I

这个就是我讲的最慢的方法。

处理超过100K的数据用了十几秒钟，慢！太慢！实在是太慢了！

昨天项目经理找我聊了一下清况，我将我碰到的问题告诉她，她很奇怪（她不懂VB）,这里已经完全是电脑在处理数据的啊，怎么会那么慢呢？

她还尝试用我已经导出的数据经过在Excel和Textbook之间相互复制粘贴来证明The speed of computer.

那确实相当的快，这个马上给了我一个启发：剪贴板。

对，我所说的快的处理方法就是采用剪贴板。

2、利用剪贴板复制粘贴。

Clipboard.Clear 'Clear the Clipboard

With MSFlexGrid1 'Select Full Contents (You could also select partial content)

.Col = 0 'From first column

.Row = 0 'From first Row (header)

.ColSel = .Cols - 1 'Select all columns

.RowSel = .Rows - 1 'Select all rows

Clipboard.SetText .Clip 'Send to Clipboard

End With

With xlapp.ActiveWorkbook.ActiveSheet

.Range("A1").Select 'Select Cell("A1) (will paste from here, to different cells)

.Paste 'Paste clipboard contents

End With

这下子速度快多了：Ctrl+A, Ctrl+C, Ctrl+V, OK！搞定了！快吧？！

ADODB.Connection与MSFlexGrid 急问：vb中MSHFlexGrid与MSFlexGrid的区别 msflexgrid绑定check控件 vb MSFlexGrid控件 EXCEL 与 VFP excel与访问侵犯 vb与Excel~~~~~ 如何打印msflexgrid中的内容 VB中msflexgrid控件问题关于VB的MSFlexGrid控件关于EXCEL加密与破解 ASP与excel的对接 vb 与 excel 数据交互 excel启动错误与工作组 Word与Excel的问题？？关于VB中的MSFlexGrid控件的属性 VB，MSFlexGrid 控件，如何快速清空？ msflexgrid怎么实现通过双击某列来排序？关于excel与sql联接的题 excel的保护与隐藏如何使用 excel的宏与vb有什麼区别 EXCEL 相对地址与绝对地址 EXCEL人名与进厂日期~急 excel中公式与函数的区别