创1000万行数据的txt文件会卡死

pepsi7777 · 发表于 2023-1-29 19:15

本帖最后由 pepsi7777 于 2023-1-29 20:57 编辑

各位老师，好
我希望通过vba创建一个txt文件，1000万行，数值是1到1000万。
我写的代码：
生成1万行用时6秒，2万行：24秒，3万行：66秒，4万行：126秒。速度太慢了，比手工生成都慢。
求代码优化，或指点。感谢！！！
详见附件

wps6129 · 发表于 2023-1-29 20:21

围观大神的解答

处理如此大量的数据，用python 是不是更快一些？

高个子 · 发表于 2023-1-29 20:23

换Python解决吧

gwjkkkkk · 发表于 2023-1-29 20:30

改成这样，100万行我的机器10秒
Sub 创建txt文件()
Dim Ss, Temp, path
Dim i, TotalRow, MinRow, MaxRow As Long
Dim arr1()
Dim t
Application.ScreenUpdating = False
path = ThisWorkbook.path
t = Timer
TotalRow = 1000000 '生成文件的行数

ReDim arr1(1 To TotalRow)

For i = 1 To TotalRow
arr1(i) = i
Next

strtxt = Join(arr1, vbCrLf)

Ss = ""
Open path & "\结果1.txt" For Output As #1

Print #1, strtxt

Close #1
MsgBox Timer - t
Application.ScreenUpdating = True
End Sub

wodewan · 发表于 2023-1-29 20:37

pepsi7777 · 发表于 2023-1-29 20:58

wodewan 发表于 2023-1-29 20:37

感谢 wodewan 老师

fzxba · 发表于 2023-1-30 15:07

$[OMOS[3{_{DHWRHKF4MGT}4.png$

ykcbf1100 · 发表于 2023-1-30 15:34

有点狠的，1000万行，如果是Excel最多只能是104万行。

pepsi7777 · 发表于 2023-1-30 22:25

fzxba 发表于 2023-1-30 15:07

感谢 fzxba 老师

wanghan519 · 发表于 2023-1-31 05:28

用手机创建也就0.2秒，76M大小

		自动登录	找回密码
密码			免费注册

[已解决] 创1000万行数据的txt文件会卡死

评分

评分

评分

评分

评分