Ich musste eine ".all" Typ-Datei mit VBA öffnen. Das Problem ist, dass diese Dateitypen zwischen 7.000.000 und 20.000.000 Zeilen haben.Dynamische Erweiterung der oberen Grenze von Zeilen beim Öffnen einer Datei
Im mit diesem 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
Mit dieser Routine bekomme ich eine maximale Anzahl von 1.048.576 Zeilen.
Gibt es eine Möglichkeit, die obere Zeilengrenze dynamisch zu erweitern?
Vielen Dank.
Die Ausdehnungen von einem Excel-Sheet ist 1.048.576 Zeilen, die Sie die Daten entsprechend auf mehrere Seiten aufgeteilt werden müssen. –
https://support.office.com/de-de/article/Excel-specifications-and-limits-ca36e2dc-1f09-4620-b726-67c00b05040f – Slai
Es ist jeder Befehl, die Daten zu teilen, wenn uper Limit erreicht ist, nach Verwenden Sie Application.GetOpenFilename? – user6626956