Textdatei Import
15.12.2022 11:48:29
Antonio
ich importiere eine Textdatei in Excel, sowei auch gut, hier der code:
Option Explicit
Sub txtDatei_Einlesen()
Dim rngBereich As Range 'Bereich löschen
Set rngBereich = Range("A1:D800")
rngBereich.ClearContents
Dim ff As Long
Dim sFile As String
Dim sLine As String
Dim arr() As String
Dim row As Long
Dim col As Long
Dim activCell As Range
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
ff = FreeFile
sFile = Application.GetOpenFilename("Textdateien (*.txt), *.txt", 0, "Wählen der Datei für Import")
If sFile = "" Then
MsgBox "Der Dateiimport ist fehlgeschlagen!"
Else
'datei oeffnen
Open sFile For Input As #ff
'erste zelle markieren
Set activCell = Worksheets("Neuer_Song").Range("A1")
Call activCell.Activate
While (Not EOF(ff))
Line Input #ff, sLine 'zeile einlesen
arr = Split(sLine, vbTab) 'an tabs aufspalten
For col = LBound(arr) To UBound(arr)
'relativ zur aktiven zelle den wert setzen
activCell.Offset(row, col).Value = arr(col)
Next 'i
row = row + 1
Wend
'schliessen
Close ff
'MsgBox "Die Daten wurden erfolgreich importiert!"
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
überall wo ein Hochkomma ist, sind in wirklichkeit zwei Hochkomma, siehe Mappe:
https://www.herber.de/bbs/user/156745.xlsx
Wenn ich den Bereich "A1:D800" manuell lösche, dann die Textdatei öffne, alles markieren, kopieren und einfügen,
klappt das die zwei Hochkommer auch da sind.
Wenn ich den Bereich mittels Code lösche und die Textfile einfüge, frhlt mir eine der Hochkomma, ein Bild zum verdeutlichen:
https://www.herber.de/bbs/user/156746.jpg
Was kann ich im Code ändern oder dazu schreiben so das beide Hochkomme beim einlesen der Textdatei mit gelesen werden?
Vielen Dank im Voraus
LG Antonio