ich möchte gern eine Text-Datei in ein Array und anschließend in eine Spalte importieren. Dazu nutze ich folgenden Code:
Sub TxT_Komplett()
Dim strInhalt As String
Dim strErgebnis() As String
Dim objTextFile As Object
Set objTextFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(Application. _
GetOpenFilename("Text-Dateien(*.txt),*txt"), 1, False)
strInhalt = objTextFile.ReadAll
objTextFile.Close
Stop
strErgebnis = Split(strInhalt, vbCrLf)
Range("A1").Resize(UBound(varErgebnis) + 1, 1) = Application.Transpose(strErgebnis)
End Sub
Prinzipiell funktioniert es auch, allerdings werden nur gut 63.000 Zeilen importiert. Die Zeilen danach bekommen alle einen #NV. Schaue ich mir die Inhalte des Arrays an, so werden dort alle Werte angezeigt, also scheint es beim letzten Befehl zu hängen. Irgendwie stehe ich komplett auf dem Schlauch. Hat jemand eine Idee?Vielen Dank im voraus,
M. Born