Splittrn vbTab
30.11.2020 14:30:12
Gabriel
ich habe ein kleines Problem, was ich jedoch seit langem einfach nicht lösen konnte, deswegen wende ich mich an euch. Es geht um das splitten eines importierten Textes mit dem delimiter vbTab. Leider funktioniert es bei mir nicht und wollte fragen, ob jemand eventuell mir kurz helfen kann. :)
Danke im Vor raus!
Gabriel
Sub hochladen()
Dim QuellDatei As Variant
Dim Zeile As Integer
Dim Inhalt As String
Dim Informationen() As String
Dim i As Integer
Dim y As Integer
Zeile = 3
Set fs = CreateObject("Scripting.FileSystemObject")
ThisWorkbook.Worksheets("Tabelle1").Activate
QuellDatei = Application.GetSaveAsFilename()
If QuellDatei = False Then
MsgBox "Der Benutzer hat abgebrochen.", vbInformation
Exit Sub
Else
MsgBox "Folgende Datei wurde ausgewählt:" & vbCrLf & varDatei
End If
Open QuellDatei For Input As #1
Do While Not EOF(1)
Line Input #1, Inhalt
Informationen = Split(Inhalt, vbTab)
Set f = fs.GetFile("C:\Users\gabi\Desktop\merck\speicher.txt")
Set b = f.OpenAsTextStream(1, -2) 'TristateUseDefault -2 Öffnet die Datei unter _
Verwendung der Systemvorgabe // TristateTrue -1 Öffnet die Datei als Unicode // _
TristateFalse 0 Öffnet die Datei als ASCII.
y = b.ReadLine
b.Close
Dim t As Integer
t = CInt(y)
For i = 0 To UBound(Informationen)
Worksheets(1).Cells(Zeile, t) = Inhalt
Next
Zeile = Zeile + 1
Loop
Close #1
t = t + 1
Set a = fs.CreateTextFile("C:\Users\gabi\Desktop\merck\speicher.txt", True)
a.WriteLine (t)
a.Close
End Sub