递归火山软件开发平台

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

作者: hwq911128 时间: 2026-1-5 20:39
标题: excel问题请教
使用魂哥的那个读写教程，如果要读取一个几千行30列的excel表基本就是卡死，要么就是特别特别慢，一条一条的像表格里读取，有没有什么方法能快速读取啊。都放弃了

作者: 创世魂 时间: 2026-1-5 21:21
这个数据多了肯定会卡的。肯定要在多线程里面读。

作者: 仰望 时间: 2026-1-5 21:45
用仰望模块里的libxl库

作者: niuyanbo2021 时间: 2026-1-6 07:32
使用Libxl库速度超级快

作者: niuyanbo2021 时间: 2026-1-6 07:34
还有一种方法如下，但不知道在火山视窗里如何实现：
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 时间: 2026-1-6 09:03
还有一个最快方法用锐浪报表

作者: niuyanbo2021 时间: 2026-1-6 10:46

创世魂发表于 2026-1-5 21:21
这个数据多了肯定会卡的。肯定要在多线程里面读。

魂哥，提个建议哦。
不少官方的库和示例，还经不起商业应用的考验，这个需要怎么做就不用多说了吧。

作者: rinipp 时间: 2026-1-8 12:45
有个函数是横向或者竖向读，速度非常快。

作者: Snail 时间: 2026-1-22 20:35

niuyanbo2021 发表于 2026-1-6 07:34
还有一种方法如下，但不知道在火山视窗里如何实现：
Sub 快速填充数据()
Dim arr(1 To 10000, 1 To 50 ...

这是二维数组变体，因为很少用到，所以火山中并没有实现二维数组变体的创建，可以手动自己创建

作者: 一帆风 时间: 2026-1-22 23:31

arlonshen 发表于 2026-1-6 09:03
还有一个最快方法用锐浪报表

看来你是懂锐浪的

欢迎光临递归火山软件开发平台 (https://bbs.voldp.com/)