全文繋げたものがこちらになります
@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 ) ) )
コメントを残す