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

【问题标题】：Dynamically extend the upper limit of rows while open a file打开文件时动态扩展行的上限
【发布时间】：2016-07-22 19:32:08
【问题描述】：

我必须使用 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 行的最大数量。

有什么方法可以动态扩展行的上限？

谢谢。

【问题讨论】：

Excel 工作表的范围是 1.048.576 行，您需要将数据相应地拆分到多个工作表上。
support.office.com/en-us/article/…
使用Application.GetOpenFilename后，达到上限时分割数据的命令是什么？

标签： excel vba macros rows

【解决方案1】：

可以在excel中操作这么多的记录，尝试使用数组check this one

【讨论】：