Xls to csv Converter per Batch (ohne Excel)

Ich schreibe zurzeit ein Batch-Script, das eigentlich eine .xls datei in eine .txt datei umwandeln soll. Zurzeit kann es nur .csv in .txt dateien umwandeln, aber ich möchte gerne von .xls in .txt. Gerne auch über den Zwischenschritt .csv.
Wie schon oben beschrieben nutze ich bis jetzt das batch script zum converten von .csv nach .txt mit den folgendem Quelltext:

@echo off
title Semikolon Converter
color 0A
:start
echo.
ECHO M™chten Sie eine .csv Datei Exportieren[e] oder eine .txt Datei Importieren[i]?
echo.
SET /p wahl=
if '%wahl%' EQU 'e' goto Export
if '%wahl%' EQU 'i' goto Import
if '%wahl%' NEQ 'e' goto falsch
if '%wahl%' NEQ 'i' goto falsch
:Export
echo.
color 1E
Set /P Datei=Bitte geben Sie den Namen der .csv Datei ein: %
echo.
Set /P Datei2=Bitte geben Sie den Namen des Ausgabedokuments ein: %
echo.
if NOT exist %Datei%.csv goto falsch2
if exist %Datei%.csv goto weiter
:weiter
FOR /F "delims=" %%A in (%Datei%.csv) do echo %%A;>>%Datei2%.txt
goto Ende1
:Import
echo.
color 1E
Set /P Datei=Bitte geben Sie den Namen des Textdokuments ein: %
echo.
Set /P Datei2=Bitte geben Sie den Namen der Ausgang .csv Datei ein: %
echo.
if NOT exist %Datei%.txt goto falsch3
if exist %Datei%.txt goto weiter2
:weiter2
FOR /F "delims=" %%A in (%Datei%.txt) do echo %%A>>%Datei2%.csv
goto Ende2
:falsch
color C4
echo msgbox "Falsche Eingabe! Exportieren mit der Taste [e] oder Importieren mit der Taste [i]." > %tmp%\tmp.vbs
cscript /nologo %tmp%\tmp.vbs
del %tmp%\tmp.vbs
cls
goto neustart
:falsch2
color C4
echo msgbox "%Datei%.csv konnte nicht gefunden werden!" > %tmp%\tmp.vbs
cscript /nologo %tmp%\tmp.vbs
del %tmp%\tmp.vbs
cls
goto neustart
:falsch3
color C4
echo msgbox "%Datei%.txt konnte nicht gefunden werden!" > %tmp%\tmp.vbs
cscript /nologo %tmp%\tmp.vbs
del %tmp%\tmp.vbs
cls
goto neustart
:Ende1
echo msgbox "%Datei2%.txt wurde erstellt!" > %tmp%\tmp.vbs
cscript /nologo %tmp%\tmp.vbs
del %tmp%\tmp.vbs
goto schliessen
:Ende2
echo msgbox "%Datei2%.csv wurde erstellt!" > %tmp%\tmp.vbs
cscript /nologo %tmp%\tmp.vbs
del %tmp%\tmp.vbs
goto schliessen
:neustart
@call %0
goto neustart2
:neustart2
exit
:schliessen


Es kann sein das einiges überflüssig ist, aber es funktioniert so.
So jetzt hätte ich gerne aber, dass es von .xls nach .txt konvertiert. Kann mir da jemand helfen?
Und nein ich möchte nicht in Excel unter speichern unter.. .csv, weil ich das so ein ganzen Tool für die Arbeit brauche. :D
Und ich möchte in Excel auch kein Modul hinzufügen bzw in Excel ein VBS nutzen.
PS: Nicht wundern, dass das Script nach jeder Zeile ein ";" hinzufügt das möchte ich so bzw. mein Chef :D
Danke Schon mal im vorraus :D
MfG
Leon

Set fso = CreateObject("Scripting.FileSystemObject")  
Set Args = WScript.Arguments
XLSDatei = Args(0)
CSVDatei = Args(1)

If Not fso.FileExists(XLSDatei) Then WScript.Quit(1)

Set XL = WScript.CreateObject("Excel.Application")  
XL.Visible = False
XL.DisplayAlerts = False
Set WB = XL.Workbooks.Open(XLSDatei)
WB.SaveAs CSVDatei, 6, , , , , , , , , , True
WB.Saved = True
XL.Application.Quit
WScript.Sleep 1000
T = fso.OpenTextfile(CSVDatei).ReadAll
fso.CreateTextFile(CSVDatei).Write Replace(T, vbNewLine, ";" & vbNewLine)  

set "Datei1=D:\Dein Ordner\Deine.xls"  
set "Datei2=D:\Dein Zielordner\Deine.csv"  
::
::
cscript //nologo "C:\Scripts\XL2CSV.vbs" "%Datei1%" "%Datei2%" || echo "%Datei1%" nicht gefunden! & goto :eof 

set "Datei1=%cd%\%Datei1%"

set "Datei1=D:\Dein Ordner\Deine.xls"  
set "Datei2=D:\Dein Zielordner\Deine.csv"  
::
::
cscript //nologo "C:\Scripts\XL2CSV.vbs" "%Datei1%" "%Datei2%" || echo "%Datei1%" nicht gefunden! & goto :eof 

set "Datei1=D:\Dein Ordner\Deine.xls"  
set "Datei2=D:\Dein Zielordner\Deine.csv"  
::
::
cscript //nologo "C:\Scripts\XL2CSV.vbs" "%cd%\%Datei1%" "%cd%\%Datei2%" || echo "%Datei1%" nicht gefunden! & goto :eof