stehe gerade am Anfang mit der Programmierung von Makros und habe jetzt folgende Frage.
Ich habe eine Textdatei mit mehrern Einträgen per Semikolon getrennt.
Die ich gerne per Makro imporieren und auf verschiedene Spalten splitten möchte.
Der Import funktioniert auch schon aber wie bekomme ich die Zeilen der Textdatei gesplittet in die Spalten ?
Code: Alles auswählen
Sub Einlesen()
Dim objDatei as Object
Dim objBlaetter As Object
Dim objBlatt As Object
Dim objZelle As Object
Z = 1
Open "C:\KAPA.txt" For Input As 1#
Do While Not EOF(1)
Line Input #1, Datei
objDatei = ThisComponent
objBlatt = objDatei.Sheets(1)
objZelle = objBlatt.getCellByPosition(0, Z)
objZelle.string = Datei
Z = Z + 1
Loop
Close #1
End Sub
Code: Alles auswählen
AuftragsNr;PositionsNr;PersonalNr;KSTNR;ZDatum;GesamtZeit
P160000;1;2003;990;02.01.2017;7,5
P160000;1;2003;990;03.01.2017;7,5
P160000;1;2003;990;04.01.2017;7,5
P160000;1;2003;990;05.01.2017;7,5
P160000;1;2003;990;06.01.2017;7,5
P160000;1;2003;930;09.01.2017;0,01666666666666660000
P170000;1;2003;930;09.01.2017;0,5333333333333330000
P161783;1;2003;401;09.01.2017;1,25
P161783;1;2003;400;09.01.2017;1,133333333333330000
P161937;1;2003;401;09.01.2017;0,25
P161937;1;2003;400;09.01.2017;3,85
P161899;1;2003;401;09.01.2017;0,1333333333333330000
P161899;1;2003;400;09.01.2017;1,116666666666660000
P161901;1;2003;401;09.01.2017;1,466666666666660000
P161901;1;2003;401;09.01.2017;0,01666666666666660000
P170000;1;2003;930;10.01.2017;0,5333333333333330000
P170042;1;2003;401;10.01.2017;1,316666666666660000
P161879;1;2003;401;10.01.2017;0,8
P161879;1;2003;400;10.01.2017;1,7
P170041;1;2003;401;10.01.2017;0,3166666666666660000
P170041;1;2003;400;10.01.2017;1,033333333333330000
P170000;1;2003;401;10.01.2017;0,5166666666666660000
P170000;1;2003;400;10.01.2017;0,6666666666666660000
P170000;1;2003;401;10.01.2017;0,15
P170000;1;2003;930;11.01.2017;0,5166666666666660000
P170048;1;2003;401;11.01.2017;0,1
P161797;1;2003;401;11.01.2017;0,7666666666666660000
P161797;1;2003;400;11.01.2017;4,633333333333330000
P161797;1;2003;400;11.01.2017;1,183333333333330000
P170000;1;2003;401;11.01.2017;0,35
P170000;1;2003;402;11.01.2017;0,4666666666666660000
P170000;1;2003;930;12.01.2017;0,5333333333333330000
P170012;1;2003;401;12.01.2017;0,5833333333333330000