hatena chips

zip内の特定のファイルだけ解凍するにはどうすればいいですか？

> zip内の特定のファイルだけ解凍するにはどうすればいいですか？

記事のコードの ExtractZIP関数を下記のように修正します。

Public Function ExtractZIP(sDstPath As String, sZIPFile As String, Optional sPassWord As String = "", Optional sFileName As String = "") As Boolean
　　Dim sCmd As String
　　sCmd = "X -hide -aoa "
　　If sPassWord <> "" Then sCmd = sCmd & "-P" & sPassWord & " "
　　sCmd = sCmd & Q2(sZIPFile) & " -o" & Q2(sDstPath)
　　If sFileName <> "" Then sCmd = sCmd & " " & sFileName
　　ExtractZIP = DoSevenZip(sCmd) = 0
End Function


使用例

If ExtractZIP("C:\TEMP\", "C:\test\Test.zip", ,"Test.txt") Then
　　MsgBox "ZIPファイル内のTest.txtを解凍しました。"
End If

ファイル名にはワイルドカードも指定できます。

7-zipでは複数ファイルの圧縮に対してテキストファイルに記載されたリストを用いて対応出きると思いますがこの場合はどのようにしたらよいでしょうか。

ダウンロードしたファイル内の 7-zipCMD.txt によると、
リストファイル名の前に @ を付けるという説明がありますので、
下記のようにすればいけそうな気がします。

Send2ZIP("@C:\TEMP\listfile.txt", "C:\test\Test.zip")

試していませんので、うまくいったらご報告ください。

時間があったので試してみたら、できました。

If SendToZIP("@C:\TEMP\listfile.txt", "C:\test\Test.zip") Then
　　MsgBox "ZIPファイルを生成しました。"
End If

記載されていたやり方で複数ファイルをパスワード付Zipに圧縮することが出来ました。
ありがとうございました。

パスワードに"を含む場合への対策はありますでしょうか？

ごめんなさい。
いろいろ調べてみましたが、対策は分かりません。

こちらのコードを参考に組みましたが、実行時に標記のエラーが表示されます。
PCには、７Zipがインストール済みで、右クリックで7zでもzip形式でも圧縮できます。
解消するヒントがあれば、教えてください。

メッセージから、7-ZIP32.DLL が正しい場所にないということだと思います。

記事で解説している通りに、ダウンロード、解凍、システムフォルダーにコピーという作業をしましたか。

職場のPCで、システムフォルダへのアクセスが制限されています。
７Zipがインストール済みなので、可能と思い、チャレンジしましたが、あきらめて、他の方法を探します。

お世話になります。
暗号付zipファイルをvbaで作る方法を探して、このウェブページにたどり着きました。WscriptShellでコマンドを実行する方法ですとセキュリティソフトがマルウェアと認識して阻止されてしまうため、apiを使う方法で対処することとした次第です。
このサイトは作成時点が古く、ダウンロードされる7-zip32.dllも古いバージョンだったので、最新のバージョンをダウンロードして試したところ、SevenZip()の実行の段階でエラーが出て、数日間あれやこれや試行してみましたが、うまくいきませんでした。
そこで、やはり基本に立ち返るべし！と考えてこのサイトから古いバージョンのdllファイルをダウンロードして実行したところ、何の問題もなくうまく動作いたしました。
ありがとうございました。
しかし、最新バージョンの7-zip32.dllではなぜうまく動作しないのか、誠に不思議です。もしも最新バージョンのdllファイルで動作するコードができるようでしたら、更新していただけると嬉しいです。また、なぜうまくいかないのか、理由が分かったら教えていただけると嬉しいです。
宜しくお願いします。
ありがとうございました。

補足です。
同じエラーの質問が、なりたぶらいやんさんから出ていましたね。
当方、Windows10は64bit版、Excel16は職場との互換性を考慮して32bit版です。7-zip32.dllをSystem32又はSystWOW64に置いて試行したところ、SysWOW64に置いた場合に7-zip32.dllが読み込まれてうまく動作いたしました。

何とも厚かましいお願いですが、今後は、エクセルも32bit版から64bit版の使用が多くなっていくのではないかと思う次第です。64bit版でも問題なく動作する7-ZIPのAPIのご紹介を頂けると嬉しいです。

2つ目の補足です。
このウェブページはAccessのVBAに関するページだったのですね。同じようなものではありますが、エクセルnoVBAでの動作について投稿して申し訳ありません。そこで、Accessではどうかな、とAccess2016_32bit版で同じようにVBAコードを作って、試行してみました。
やはり、最新の7-zip32.dllでは、なりたぶらいやんさんの投稿の様に「エントリSevenZipが7-zip32.DLLにありません。」とのエラーメッセージが表示されて止まります。小生の見解は、dllファイルは読み込まれているけれど、SevenZip関数を読み込もうとして失敗している、という事だろうと思います。
古いバージョンのdllファイルでは、問題なく動作しました。
以上、補足してご報告いたします。

その後、ダウンロードしたReadmeなどを読んで、どうやら、7-ZIPの本来のダウンロードサイトからダウンロードした7-zip32.dllではダメで、このウェブページで指定されているサイトからダウンロードした秋田稔さんが手を加えた7-zip32.dllでなければ上手くいかないのではないか、と理解しました。
この理解が正しいとすると、小生の先の投稿でのお願いはピント外れ、的外れのお願いとなってしまうと思いますので、ご放念ください。
なお、7-ZIPのサイトからダウンロードした7-zip32.dllではダメである旨を、このウェブサイトにちょこっと注記されておけば、小生やなりたぶらいやんさんの様に困ったことにならずに済むのではないかと思います。ご検討ください。
いずれにしても小生の目的は果たせそうです。ありがとうございました。

その後Excel64bit版についても、次のURLのページから7-zip64.dllファイルをダウンロードして組み込むことにより、ご紹介いただいたコードで同様に圧縮解凍が出来ました。
http://frostmoon.sakura.ne.jp/7-zip32_ungarbled/#Download
誠にありがとうございました。

yamamomokokemomo様
ご指摘ありがとうございます。

本家サイトのファイルではダメな件と64bit版のdllファイルのリンク先を記事に追記しておきます。