怎样加快大量读写EXCEL单元格的速度

Question

如题!
大量读写EXCEL单元格是速度好慢啊，让客户难以忍受,但他有要求输出是EXCEL文件!

Answer 1

为什么要写单元格？
将数据导入 Excel，然后打开 Excel 表。

Answer 2

Option Explicit
   Dim conn As New ADODB.Connection
   Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
   Private Sub Form_DblClick()
Dim myExcel As String
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb"
    myExcel = "c:\my documents\test.xls"
    If Dir(myExcel) > "" Then Kill myExcel
    conn.Execute "select * into sheet1 in '" & myExcel & "' 'Excel 8.0;' from 订单"
    ShellExecute Me.hwnd, "open", myExcel, 0, 0, 0
End Sub

Answer 3

我还要在EXCEL中设置字体和单元格的格式等等,使用户可以方便的进行打印和统计.

Answer 4

要想快只有减少对Excel的操作
比如说，把Excel的内容读到内存中来
处理完之后再写回去这样做 在编程方面肯定吃力得多
但效率要好一些

Answer 5

楼上的有代码吗?发给我一份吧!
[email protected]

Answer 6

读入内存很简单,不需要代码吧?注意上限问题
根据你的数据量 决定用多大的数组
或者用多少个数组给你个例子
假设你的表有10行9列for i=1 to 10
 for j= 1 to 9
  Mydata(i,j)=sheet1.cells(i,j)
 next
next