![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
下記のマクロを実行すると
解凍ソフト「Lhaplus」を使用して圧縮ファイルを解凍できます。
このマクロを利用してWindows10の標準装備の解凍(ZIP形式)出来る方法を教えてください。
宜しくお願い致します。
マクロ
Sub 解凍()
On Error Resume Next
Dim wsh As Object
Dim Lhaplus実行ファイル As String
Dim 圧縮データフォルダ As String
Dim 解凍先フォルダ As String
Set wsh = CreateObject("WScript.Shell")
Lhaplus実行ファイル = "C:\Program Files (x86)\Lhaplus\Lhaplus.exe"
圧縮データフォルダ = ThisWorkbook.Path '①'
解凍先フォルダ = ThisWorkbook.Path
wsh.Run Chr(34) & Lhaplus実行ファイル & Chr(34) & " /o:" & Chr(34) & 解凍先フォルダ & Chr(34) & " " & Chr(34) & 圧縮データフォルダ & Chr(34), , True
Set wsh = Nothing
MsgBox "全て解凍されました"
End Sub
以上です。
宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
Lhaplusはzipファイルの解凍もできるので、このままでもいけるように思います。
できないならLhaplusのバージョンが古いのかも。
https://forest.watch.impress.co.jp/library/softw …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- フリーソフト Lhaplusソフトについて教えてください。 2 2023/10/03 08:32
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) フォルダの作成 3 2021/11/10 11:05
- ハッキング・フィッシング詐欺 変換、解凍、圧縮サイトを使用した場合、私のファイルがどこかにアップロードされますが、 どこかのダウン 6 2021/11/17 20:10
- Visual Basic(VBA) Excel VBAでフォルダ内の全テキストファイルの任意データを取得について 7 2021/12/18 16:00
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/10 11:34
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/11 11:05
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/10/19 09:27
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
メッセージボックスのOKボタ...
-
Excel マクロ VBA プロシー...
-
ExcelのVBA。public変数の値が...
-
Excel マクロでShearePoint先の...
-
ExcelVBAでPDFを閉じるソース
-
TERA TERMを隠す方法
-
エクセルで別のセルにあるふり...
-
一つのTeratermのマクロで複数...
-
エクセルに張り付けた写真のフ...
-
テニス(ダブルス)乱数表 Exc...
-
マクロ実行時、ユーザーフォー...
-
ファイルが見つからない時、ス...
-
EXCELマクロでのThisisWor...
-
バッチファイルでEXCELを起動し...
-
Excel_マクロ_現在開いているシ...
-
エクセルのマクロをセルの値に...
-
#defineの定数を文字列として読...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
ExcelVBAでPDFを閉じるソース
-
エクセルに張り付けた写真のフ...
-
EXCELのVBAでRange("A1:C4")を...
-
エクセルで別のセルにあるふり...
-
ソース内の行末に\\
-
マクロ実行時、ユーザーフォー...
-
特定文字のある行の前に空白行...
-
エクセルVBA
-
マクロの記録を使用したマクロ...
-
wordを起動した際に特定のペー...
-
ダブルクリックで貼り付けた画...
おすすめ情報