Excelのオブジェクト設定ファイル取り出しバッチ2

Excelファイルコピーしてリネームしてzipに変換

①今回はマクロファイルを対象に実行するためディレクトリー内に.xlsmファイルがあるかを調べます
②.xlsmファイルでループする、%%Aにファイルパスが入る
③.xlsmファイルをコピーする、.zipとして貼り付ける

  
rem 実行フォルダ名を指定
set file=bin
   
rem binフォルダ作成
if not exist "%file%" (
　　md %file%
)


rem ①   
if exist "*.xlsm" (
　　rem ②
　　for %%A in (*.xlsm) do (
　　　　rem ③
　　　　copy %~dp0\%%A %~dp0\%file%\%%~nA.zip
　　)
)

これで下ファイルを変更なくオブジェクト設定ファイルを取り出す準備ができました