如何最快的生成数据量巨大的excel文件？

2003-05-10 03:19:44 319 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Laravel 使用PHP_XLSXWriter实现大数据量Excel导出我在去年写过一篇关于laravel的Excel导出文章：Laravel Excel 实现 Excel/CSV 文件导入导出功能，使用的是Laravel Excel实现的。该扩展包含Excel导入导出功能，功能点是比较完善的，但是有一个地方，当实现大量数据导出到Excel的时候，会发现侠侣很慢，然后如果开启任务管理器查看的时候会发现CPU使用率飙升，内存使用率飙升，功能是没问题，但是总体导出效果不... 阅读详情

对于几千行，好几十个字段的excel文件，创建excel对象后写入的方法好像比较慢。而且好像越到后面，写的越慢。有没有很快生成的方法呢？大家帮忙讨论一下啊！

...全文

QMT实盘交易入门：5分钟搞定ETF全球配置策略（附完整代码）本文详细介绍了如何使用QMT平台实现ETF全球配置策略，从环境准备到策略编写、实盘部署全流程仅需5分钟。通过xtquant库对接交易所接口，提供完整的动量轮动策略代码，帮助投资者快速掌握自动交易技术，优化全球资产配置。阅读详情

chatroom

Office开发/ VBA 5,174 成员 17,906 内容

+ 关注 + 加入社区

切换为时间正序

icansaymyabc 2003-05-12

打赏
举报

Public Declare Function timeGetTime Lib "winmm.dll" () As Long

Const colbound As Long = 3
Const rowbound As Long = 30000
Dim dat(1 To rowbound, 1 To colbound) As Long

Private Sub Command1_Click()
Dim ts As Long, t0 As Long
Dim i As Long, j As Long
Dim xlsapp As New Excel.Application
Dim xls As Excel.Workbook
Dim sheet As Excel.Worksheet

Set xls = xlsapp.Workbooks.Add
Set sheet = xls.Worksheets(1)

ts = timeGetTime()
For i = 1 To rowbound
For j = 1 To colbound
dat(i, j) = i * j
Next
Next
sheet.Range(sheet.Cells(1, 1), sheet.Cells(rowbound, colbound)) = dat
t0 = timeGetTime() - ts
'编译成EXE后，像这样进行3万行的共10万个赋值只需要 300 毫秒。

xls.SaveAs "C:\aaa.xls"
xls.Close

End Sub

anole2003 2003-05-12

打赏
举报

1. Application.ScreenUpdating = False
2.可以将设数据先读入一个数组中，再一次性的赋给，可明显提高速度
Sub test()
Dim aa(3) As Integer
aa(0) = 1
aa(1) = 2
aa(2) = 3
Range(Cells(1, 1), Cells(1, 3)) = aa
End Sub
3. 想办法减少计算式,减小文件.(重复的计算式用VBA代替,将会使文件小很多,从而提高速度.)
到后来慢是因为EXCEL文件过大,消耗内存将过大.EXCEL2000的内存最大为128M.

chatroom 2003-05-11

打赏
举报

创建纯文件后，怎样导入呢？

zara 2003-05-11

打赏
举报

手工做是从菜单 "数据"."获取外部数据"."导入文本文件" 进行的. 用代码的话, 我也不太熟悉, 你自己录制一个宏看看Excel自己的代码吧. 关键是最后的.Refresh:
With ...
...
.Refresh BackgroundQuery:=False
' 以BackgroundQuery为False进行更新就断开了插入的数据和源的链接, 插入的数据就独立了

zara 2003-05-10

打赏
举报

以前有人建议是先创建特定分割符的纯文件文件, 再进行导入.

ReplyRobot 2003-05-10

打赏
举报

如何最快的生成数据量巨大的excel文件？

相关推荐