递归火山软件开发平台

标题: excel问题请教 [打印本页]

作者: hwq911128    时间: 4 天前
标题: excel问题请教
使用魂哥的那个读写教程,如果要读取一个几千行30列的excel表基本就是卡死,要么就是特别特别慢,一条一条的像表格里读取,有没有什么方法能快速读取啊。都放弃了
作者: 创世魂    时间: 4 天前
这个数据多了肯定会卡的。肯定要在多线程里面读。
作者: 仰望    时间: 4 天前
用仰望模块里的libxl库
作者: niuyanbo2021    时间: 3 天前
使用Libxl库速度超级快
作者: niuyanbo2021    时间: 3 天前
还有一种方法如下,但不知道在火山视窗里如何实现:
Sub 快速填充数据()
     Dim arr(1 To 10000, 1 To 50) As Variant
     Dim i As Long, j As Long

     ' 生成数据到数组
     For i = 1 To 10000
         For j = 1 To 50
             arr(i, j) = "数据" & i & "-" & j
         Next j
     Next i

     ' 一次性写入Excel
     Range("A1").Resize(10000, 50).Value = arr
End Sub
作者: arlonshen    时间: 3 天前
还有一个最快方法用 锐浪报表
作者: niuyanbo2021    时间: 3 天前
创世魂 发表于 2026-1-5 21:21
这个数据多了肯定会卡的。肯定要在多线程里面读。

魂哥,提个建议哦。
不少官方的库和示例,还经不起商业应用的考验,这个需要怎么做就不用多说了吧。
作者: rinipp    时间: 昨天 12:45
有个函数是横向或者竖向读,速度非常快。




欢迎光临 递归火山软件开发平台 (https://bbs.voldp.com/) Powered by Discuz! X3.4