PDFファイル毎にパスワード付きZIP化するマクロ

質問

現状手作業でやっていることを自動化できないかと思い、相談します。
複数のPDFファイルにそれぞれ異なるパスワードを付けてZIPファイルに圧縮したいのですが、これをExcelマクロで処理することは可能なのでしょうか。
状況としては、「C:\work\files」というフォルダに複数のPDFファイルが保存されています。同フォルダ内にはファイルが一覧化されたExcelブックがあり、「一覧」という名前のシートのA列にそれぞれのファイルのフルパス、B列にファイル名、C列に付与したいパスワードが入力されています。
この一覧に載っているPDFファイルを、それぞれC列のパスワードを付けてZIPファイルにしたいです。可能であればコードをご教示いただければ幸いです。
【環境】
・OS：Windows10（64bit）
・Excelバージョン：2016
・圧縮ソフト：7-Zip

回答No.3

f272 · ベストアンサー

とりあえず
https://sevenzip.osdn.jp/download.html
から7-Zip Extra: コマンドラインバージョンをダウンロードしてきて7za.exeをどこかに置きます。

ファイルが一覧化されたExcelブックにマクロを追加します。
その後

Sub test()
Set fp = Worksheets("一覧").Range("a2") '場所が違っていたら適当に変更
Do While Not (IsEmpty(fp))
pw = fp.Offset(, 2).Text
SrcPath = fp.Text
pos = InStrRev(SrcPath, ".")
If pos > 0 Then
DestPath = Left(SrcPath, pos - 1) & ".zip"
Else
DestPath = SrcPath & ".zip"
End If
com = """C:\Program Files\7-Zip\7za"" a -p" '7zaのパスは適当に変更
com = com & pw & " """ & DestPath & """ """ & SrcPath & """"
CreateObject("WScript.Shell").Run com, 1, True
Set fp = fp.Offset(1)
Loop
End Sub

お礼

ありがとうございます！
早速試してみたところ、求めていた通りの動きになりました。最初は7-Zipのコマンドラインバージョンの配置場所がよくわからずエラーになったのですが、元の通常の7-Zipのプログラムファイルと同じフォルダに配置したら動きました。
大変助かりました。

回答No.2

masnoske

Win7以降では OSだけでは圧縮できないので、他の圧縮ツールと組み合わせる方法が紹介されています。
下記の URLは VBAから Lhaplusを使って ZIP圧縮を行う方法です。

https://gist.github.com/tanakamisaki/6be7b5b4b51642d61beb08b4e75a34ca

回答No.1

f272

zipしたファイルはどのフォルダに入れたいの？
zipしたファイルの名前はどうしたいの？

補足

ありがとうございます。
ZIP化したファイルは元のPDFと同一フォルダ内（C:\work\files）に保存したいです。
また、ファイル名は元のPDFファイルと同名（”.pdf”→”.zip”）で保存したいです。元のPDFは保持してもしなくても、どちらでも構いません。