動態擴展行的上限，同時打開文件

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