バッチファイルで複数件のExcelファイルをcsv形式に変更したい

Question

実現したいこと

指定のディレクトリ内の複数件ある保護されたxlsファイルを文字化けなしのcsvファイルへ変更したい

前提

• 【BAT】xlsをcsvに変換するBAT(xls2csv.bat) と csvをxlsに変換するBAT(csv2xls.bat) を参考に、xlsファイルをCSVへ変換することはできました。
• 一方、上記のBATファイル内処理では逐次ファイル名を指定する必要があり、対象となるファイル数が膨大で上記での対応が難しいです。
• 当方 コマンドトロンプトについて明るくなく、 cmd上での繰り返し処理が適当なのか、BATファイル内を改変した方が良いのか、方向性を知りたいです。

試したこと

• 上記BATファイルを利用する前に、cmdのrenコマンドで拡張子を変更することは試みましたが、文字化けやセキュリティ等ではじかれてしまいダメでした。

該当のソースコード(BATファイル内)

@if (1==1) /*
@echo off

if "%~2"=="" goto :USAGE
if "%~1"=="/?" goto :USAGE

rem ********************************************************************************
:MAIN
CScript //nologo //E:JScript "%~f0" %*
If ERRORLEVEL 1 goto :USAGE
goto :eof

rem ********************************************************************************
:USAGE
echo USAGE:%~n0 [-s シート名] 入力ファイル 出力ファイル
echo       xlsファイルを開き、CSV(カンマ区切り)形式で保存(SaveAs)します。
echo.
echo  【オプション】
echo     -s シート名
echo       この指定がない場合、1シート目を変換対象とします
echo.
echo     入力ファイル
echo       入力ファイルを指定します
echo.
echo     出力ファイル
echo       出力ファイルを指定します
goto :eof

rem ********************************************************************************
rem */
@end
//---------------------------------------------------------- セットアップ
var Args = WScript.Arguments;
var EXCEL = WScript.CreateObject("EXCEL.Application");
var SHELL = WScript.CreateObject("WScript.Shell");

function echo(o){ WScript.Echo(o); }

// EXCELの定数
var xlCSV = 6;

//---------------------------------------------------------- 引数処理
var sheet = null;
var infile = null;
var outfile = null;
for (var i=0; i<Args.Length; i++){
	var p = Args(i);
	switch (p) {
	case "-s":
		sheet = Args(++i);
		break;
	default:
		if (!infile) {
			infile = p;
		} else {
			outfile = p;
		}
		break;
	}
}
if (!infile){
	echo("入力ファイルが指定されていません");
	WScript.Quit(9);
}
if (!outfile){
	echo("出力ファイルが指定されていません");
	WScript.Quit(9);
}

//---------------------------------------------------------- 主処理
// カレントディレクトリの切り替え
if (EXCEL.DefaultFilePath != SHELL.CurrentDirectory){
	EXCEL.DefaultFilePath = SHELL.CurrentDirectory;
	delete EXCEL;
	EXCEL = WScript.CreateObject("EXCEL.Application");
}

// ファイルを開く
var book = EXCEL.Workbooks.Open(infile);
EXCEL.DisplayAlerts = false;

try{
	// シート切り替え
	if (sheet != null){
		book.Worksheets(sheet).Activate();
	}
	// xls変換
	book.SaveAs(outfile, xlCSV);
} catch(e){
	echo(e.number + ":" + e.description);
} finally {
	book.Close(false);
}

Answer 1

簡単には、もう一つバッチファイル作って、そのバッチファイルを呼び出せば良いです。

カレントディレクトリーの xls ファイルすべてを、拡張子 csv のファイルに変換するとすると、
（ xlsx じゃなくて xls なんですか？？）

for %%F in (*.xls) do call "そのバッチファイル" "%%~F" "%%~nF.csv"

コマンドプロンプトで直接打ち込んでもOK。
for %F in (*.xls) do call "そのバッチファイル" "%~F" "%~nF.csv"

あるいは、Excelファイルをドラッグ＆ドロップしてバッチを実行するなら、

:LOOP
if "%1"=="" exit /b
call "そのバッチファイル" "%~1" "%~dpn1.csv"
shift
goto LOOP