Array in Range schreiben
11.02.2021 17:07:38
M.
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
Vielen Dank im voraus,
M. Born
Anzeige