Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10全般 : その他)
ファイル圧縮
投稿日時: 19/10/30 12:34:03
投稿者: m.akira

ExcelVBA(OS64BIT/Excel32BIT)の標準モジュールを利用し、ファイル名指定し圧縮(パスワードつき)を実装したいと考えています。いろいろサイトに調べてたのですが、いまだうまく動作しません。どのような方法がありますでしょうか?パスワードは固定でかまいません。

回答
投稿日時: 19/10/30 13:07:41
投稿者: simple

回答ではありません。
 
(1)まず、使える道具に制約があるかどうかを明示されたほうがよいでしょう。
純粋にExcelVBAだけでは無理とは思います。
いえ、それは社内のルールでインストールはできません、といった話もあるので、
事前に明示された方が、回答者の皆さんのトライが無駄にならないと思います。
(2)また、既に色々と検索されていると思います。
そのうち、これならできるのだが、ここが問題、とかいう情報があれば
それも事前に示してください。(URLも示してもらうと有り難い)
(3)圧縮と言っても色々種類があります。それについては?

回答
投稿日時: 19/10/30 16:18:47
投稿者: WinArrow
投稿者のウェブサイトに移動

ご存知と思いますが、
 
Excelファイル(●●.xlsxのようなOffice2007以降バージョンで作成するファイル)は
そのものが、ZIP形式の圧縮ファイルです。

投稿日時: 19/11/05 22:24:11
投稿者: m.akira

コメントみなさんありがとうございました。
自分なりに調べ進めてみました。
 
参考としたリンクは以下となります。
https://code-life.hatenablog.com/entry/vba-7-Zip-Lhaplus-zipCompression
この中のzipCompression プロシージャをモジュール化し実行
 
圧縮はできるものの、パスワードがかかりません
 
コマンドラインで以下のようにやりましたが、やはりパスワードがかかりません
 
何が原因でしょうか?
 
"C:\Program Files (x86)\Lhaplus\Lhaplus.exe" /c:zip /o:"C:\Users\EXCEL_SKILL" /p:password "C:\Users\EXCEL_SKILL\sample.txt"

回答
投稿日時: 19/11/06 00:29:16
投稿者: MMYS

m.akira さんの引用:

"C:\Program Files (x86)\Lhaplus\Lhaplus.exe" /c:zip /o:"C:\Users\EXCEL_SKILL" /p:password "C:\Users\EXCEL_SKILL\sample.txt"

当方で試した所、正しくパスワード付きZIPが作成されます。
 
GUIでLhaplusを操作したとき、パスワード付きZIPは作成できますか。
 
※パスがC:\Usersフォルダですけど、アクセス権はありますよね。

投稿日時: 19/11/11 00:17:49
投稿者: m.akira

MMYSさん
ご返信遅れ、申し訳ありません
 
パスワードがかかりました!
理由は・・・0KBのファイルだったからでありまして、初歩的なミスです
 
ありがとうございました