全てのシートの表示を100%にする

'----------------------------------------
' xls100perAllSheetA1.vbs
'
'ドロップしたエクセルの
' 全てのシートの表示を100%にする
' その後、最初のシートを選択状態にして
' 上書き保存します。
'
'----------------------------------------
' 操作方法
' エクセルファイルをドラッグ＆ドロップするだけ
' 複数ファイルもドロップ可能
'
' 出力先
' 強制的に上書きします。
'
Dim fName
Dim xlApp
Dim xlWb

Set xlApp = WScript.CreateObject("Excel.Application")
For Each fName in WScript.Arguments
Set xlWb = xlApp.Workbooks.Open(fName)
For Each xlSht in xlWb.WorkSheets
xlSht.Activate
xlApp.ActiveWindow.Zoom=100
Next
xlWb.Worksheets(1).Activate
xlWb.Save
Next
xlApp.Quit
Set xlApp = Nothing

XMLファイルを再帰的に処理するバッチ

echo off
rem カレントディレクトリ以下のXMLファイルを
rem すべて探し出して処理するバッチ
rem
rem 2009/1/22
rem 2009/2/13 パスに空白がある場合に対応

for /r %%i in ( *.xml ) do call :sub "%%i"
pause
goto :EOF
:sub
echo %1
rem ここに実行したい処理を記述