String in Zeilen aufteilen
07.06.2020 23:44:00
Florian
Guten Abend,
ich habe mich jetzt ein wenig in die Thematik VBA reingefuchst, und habe mein erstes "Projekt" fast beendet. Allerdings fehlt nur noch ein Step, der mir nicht gelingt. Zum Projekt selbst: Ich lese eine *.log Datei ein. Diese erhält in den ersten Zeilen unnötige Daten die ich später lösche. Immer ab Zeile 14 stehen Daten (Verbindungsstatus; IP; MAC; Firmware; Seriennummer), getrennt mit Leerzeichen. Dies wird mir auch angezeigt. Aber leider alles zusammen in Spalte 2 (ohne Split sozusagen).
Der Code dazu hier: *(Die Datei wird über ein anderes Makro geöffnet)
Sub InformationenImportieren()
'Variablen definieren
Dim QuellDatei As String 'Speicherort der Textdatei
Dim Zeile As Integer 'Laufvariable
Dim Inhalt As String 'Inhalt der Textdatei
Dim Informationen() As String 'Array der TextDatei
Dim i As Integer 'Laufvariable 2
'Tabellenblatt aktivieren
ThisWorkbook.Worksheets("360Grad").Activate
'Startwerte zuweisen
Zeile = 10
'Informationen in das Tabellenblatt eintragen
Do While Not EOF(1) 'Schleife bis DateiEnde
'Inhalt der QuellDatei Zeilenweise einlesen
Line Input #1, Inhalt
Informationen = Split(Inhalt, " ", 5)
For i = 0 To UBound(Informationen)
'Information in das Tabellenblatt eintragen
ActiveSheet.Cells(Zeile, 2) = Informationen(i)
Next
Zeile = Zeile + 1
Loop
'Überflüssige Zeilen löschen
ActiveSheet.Rows("10:23").Delete
'QuellDatei schließen
Close #1
End Sub