Textdatei in Excel importieren - Pro Zeile eine Excel-Spalte

@echo off & setlocal

Set AnzahlSpalten=5
Set Trennzeichen=;
Set Count=0
Set NameInputDatei=l2.txt
Set NameOutputdatei=l2.csv

if exist %NameOutputdatei% del %NameOutputdatei%

for /f %%z in (%NameInputDatei%)do call :Machwat %%z
goto :eof


:MachWat
Set Spalte=%1
Set /a Count=Count+1

if %Count% GTR %AnzahlSpalten% (
	echo %Zeile%
	echo %Zeile% >>%NameOutputdatei%
	Set Count=1
	Set Zeile=
)

if %Count% GTR 1 (
	Set Zeile=%Zeile%%Trennzeichen%%Spalte%
) else (
	Set Zeile=%Spalte%
)

Dim objXL
Dim FSO


Set FSO = CreateObject("Scripting.FileSystemObject")  
MeineDaten = Split(FSO.OpenTextFile("Datensatz.txt").ReadAll,vbcrlf)  

Set objXL = WScript.CreateObject("Excel.Application")  
objXL.Workbooks.Add
objXL.Visible = False

a = 1

For i = 0 to Ubound(MeineDaten) Step 5
	objXL.Cells(a,1).Value = MeineDaten(i)
	objXL.Cells(a,2).Value = MeineDaten(i + 1)
	objXL.Cells(a,3).Value = MeineDaten(i + 2)
	objXL.Cells(a,4).Value = MeineDaten(i + 3)
	objXL.Cells(a,5).Value = MeineDaten(i + 4)
	a = a + 1
Next

objXL.Visible = True