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

pepsi7777

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

wps6129

围观大神的解答

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

高个子

换Python解决吧

gwjkkkkk

改成这样，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

pepsi7777

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

感谢 wodewan 老师

fzxba

ykcbf1100

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

pepsi7777

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

感谢 fzxba 老师

wanghan519

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