title: Dynamically extend the upper limit of rows while open a file
body: <p>I had to open a <em>".all"</em>  type file using VBA.
  The problem is that this types of files have between 7.000.000 and 20.000.000 rows.</p>
  
  <p>Im using this code:</p>
  
  <pre><code>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
  </code></pre>
  
  <p>With this routine I get a máximum number of 1.048.576 rows. </p>
  
  <p>Any way to dynamically extend the upper limit of rows?</p>
  
  <p>Thank you.</p>