複数の圧縮作業を一括しておこなえるマクロ

複数の圧縮作業を、一括しておこなえるバッチファイル
・・・を作成するエクセルマクロを作ってみました。　＃ややこし(^_^;)
こちらからダウンロード

ちょっといじれば、「複数のZipファイルを一括解凍」も作れます。

昨日の7-zipを使います。
「7za.exe」を、用意しておきます。


次に、ダウンロードしたファイルを解凍
→「一括圧縮作成.xls」を開いてください。



このファイルに手順が書いてありますが・・・
１．B1セルに、「7za.exe」のあるフォルダパスを入力する。
２．B2セルに、圧縮したいファイルが保存してあるフォルダパスを入力する。
３．５行目以下に、圧縮したいファイル名と、圧縮後のファイル名（.zipまたは.7z）を入力していく。
　（圧縮後のファイル名が同じ場合、複数のファイルがまとめて圧縮される。）
４．「一括圧縮.batを作成」ボタンをクリック。
５．このエクセルファイルと同じフォルダにできた「一括圧縮.bat」を、実行する。

上記の例では、
・001.txtを、a.zipに
・002.txtと003.txtをまとめて、b.zipに
圧縮してくれます。


マクロの中で、batファイル書き出しは、
「エクセルでお仕事！」というサイトの、「テキストデータの書き出し」を利用させていただきました。