在打开文件时动态扩展行的上限

Question

我必须使用VBA打开“。all”类型文件。 问题是这种类型的文件有7.000.000到20.000.000行。

我正在使用此代码：

Sub open()
book1 = ActiveWorkbook.Name
file1 = Application.GetOpenFilename("ALL Files (*.all), *.all")
Worksheets("res").Range("K1").Value = file1
Workbooks.OpenText file1, origin:=xlWindows, startrow:=1, DataType:=xlTextFormat
del = ActiveWorkbook.Name
ActiveSheet.Copy before:=Workbooks(book1).Sheets(1)
Workbooks(del).Close False
Sheets(1).Activate
ActiveSheet.Name = "acti"
End Sub

通过这个例程，我获得了1.048.576行的最大数量。

以何种方式动态扩展行的上限？

谢谢。

Answer 1

可以在excel中操作那些数量的记录，尝试使用数组check this one