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

全文繋げたものがこちらになります

  
@echo off
rem 連番countを使うためのおまじない
setlocal enabledelayedexpansion

rem 変数「file」に実行フォルダ名を入力
set file=bin
set depfile=xl\embeddings
set count=1

rem binフォルダ作成
if not exist "%file%" (
　　md %file%
)

rem ファイルの削除
del /Q %~dp0\%file%\*.*

rem マクロファイルを検索
if exist "*.xlsm" (
　　for %%A in (*.xlsm) do (
　　　　echo *************************
　　　　echo copy rename
　　　　echo *************************
 
  　　　echo %~dp0\%file%\%%~nA.zip
  　　　rem コピー→zipファイルに変更
　　　　copy %~dp0\%%A %~dp0\%file%\%%~nA.zip
　　　　rem rename bin\*.xlsm *.zip

　　)
　　for %%B in (%file%\*.zip) do (
　　　　echo *************************
　　　　echo work zip
　　　　echo *************************
　　　　rem 解凍
　　　　powershell Expand-Archive -Path %~dp0\%%B -DestinationPath %~dp0\%file%\%%~nB -Force

　　　　echo *************************
　　　　echo copy input file
　　　　echo *************************
　　　　for %%C in (%file%\%%~nB\%depfile%\*.*) do (
　　　　　　rem 取り込まれたEXCELファイルをディレクトリにコピー、連番でリネーム
　　　　　　copy %~dp0\%file%\%%~nB\%depfile%\%%~nC%%~xC %~dp0\%%~nC!count!%%~xC
　　　　　　set /a count=count+1
　　　　)
　　)

)