No.2ベストアンサー
- 回答日時:
#1です。
こんばんわ。先ほどの回答で、自分自身は圧縮できないと書いてしまいましたが、訂正します。
やってみたら、できちゃいました。
ただし、UNLHA32.DLLが必要になりますので、別途入手してパスの通ったフォルダにインストールしてください。
サンプルでは、Dドライブに圧縮ファイルを作成します。
Option Explicit
'*****APIの宣言
Public Declare Function Unlha Lib "UNLHA32.DLL" _
(ByVal hWnd As Long, _
ByVal szCmdline As String, _
ByVal Lpstr As String, _
ByVal wsize As Long) As Integer
Sub testLZH()
'*****LZH圧縮/解凍コマンド
Dim strLZH As String 'LHAファイル名
Dim strXLS As String '圧縮元のフルパスとファイル名
Dim strCmdTxt As String 'UNLHA32.dllへのコマンド文字列
Dim strResult As String * 5000 '結果情報の戻り文字列
On Error GoTo ErrHandler
'ファイル名の設定
strXLS = ThisWorkbook.Path & "\" & ThisWorkbook.Name
strLZH = "D:\test.lzh"
'コマンド文字列の生成
'"a"はLZHの圧縮・解凍を選択するスイッチ a:圧縮、e:解凍
strCmdTxt = "a " & """" & strLZH & """" & " " & """" & strXLS & """"
'書庫ファイルの生成
If Unlha(0, strCmdTxt, strResult, 5000) <> 0 Then
MsgBox "LZH圧縮に失敗しました。 ", vbCritical
End If
Exit Sub
'エラー処理
ErrHandler:
MsgBox Err.Description
End Sub
No.1
- 回答日時:
自分自身を、ということでしたら無理だと思います。
他のブックからマクロを実行して、特定のファイルを圧縮するのはできます。AccessでLZHですが昔、やったことがあります。
それでよければソースコードは・・・
ちょっと探してきます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ZIP解凍時のinflatingとは?
-
windows 10で圧縮ファイルが圧...
-
zip圧縮してもほとんど圧縮され...
-
鋼管と鋳鉄管の違い
-
画像をbase64より短くすること...
-
縮小した写真を元の大きさに戻...
-
PCのGmailで写真圧縮なしで送信...
-
PDFをZIP圧縮するとデータがエ...
-
7-zIP で「圧縮して電子メール...
-
TIFFの圧縮形式について
-
解凍するとサイズが減る圧縮フ...
-
動画圧縮してもサイズが全く変...
-
音楽CDから直接 cda 形式で焼...
-
圧縮画像を元にもどすには?
-
Excelの画像に印をつける。
-
圧縮したファイルが表示されない
-
写真の画像アップロードができ...
-
WORD2000 での図入り文書の圧...
-
Windows10でフォルダーの圧縮に...
-
WAVをFLACに変換(Media Monkey)
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
zip圧縮してもほとんど圧縮され...
-
ZIP解凍時のinflatingとは?
-
鋼管と鋳鉄管の違い
-
動画圧縮してもサイズが全く変...
-
Excelの画像に印をつける。
-
5万枚の写真(合計2TB)をZIPで一...
-
windows 10で圧縮ファイルが圧...
-
圧縮したファイルが表示されない
-
PCのGmailで写真圧縮なしで送信...
-
圧縮画像を元にもどすには?
-
圧縮(zip形式)フォルダと普通...
-
7-zIP で「圧縮して電子メール...
-
TIFFの圧縮形式について
-
圧縮フォルダの中身が消えてし...
-
ファイルではなくフォルダだけ...
-
右クリック>送る>圧縮・・・...
-
エンジンにはなぜ圧縮行程があ...
-
窒素ガスの圧縮係数について教...
-
1GBに700MBのCD何枚...
-
PDFをZIP圧縮するとデータがエ...
おすすめ情報