Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


71139 / 76732 ←次へ | 前へ→

【10089】Re:アーカイブ化したExcelファイルを開く方法・・・
回答  Kein  - 04/1/7(水) 1:42 -

引用なし
パスワード
   解凍には専用のDLLが必要です。UNLHA32 というファイルなんですが、Miccoさん
という方が作られたものです。MiccoさんのHP↓からダウンロードさせてもらって
下さい。
http://www2.nsknet.or.jp/~micco/micindex.html
VBAで解凍するためのコードは↓のようにになります。
Unlhaに渡す2番目の引数には頭に "e" が付いてますが、これはスイッチです。
UNLHA32.DLLの解説テキストに、詳しい説明が出ています。もちろんこれを使って
圧縮することも可能なので、是非説明を読んでみて下さい。

Declare Function Unlha Lib "UNLHA32.DLL" (ByVal Callhwnd As Long, _
ByVal LHACommand As String, ByVal RetBuff As String, _
ByVal RetBuffSize As Long) As Long

Sub Test解凍()
  Dim SendStr As String, MyS As String * 255
  Dim Result As Long

  SendStr = "e C:\Temp\test.lzh C:\Temp\"
  Result = Unlha(0, SendStr, MyS, 255)
  If Result <> 0 Then MsgBox "解凍は失敗しました", 48
End Sub
2 hits

【10088】アーカイブ化したExcelファイルを開く方法・・・ モラボ 04/1/6(火) 23:41 質問
【10089】Re:アーカイブ化したExcelファイルを開く方... Kein 04/1/7(水) 1:42 回答
【10112】Re:アーカイブ化したExcelファイルを開く方... モラボ 04/1/8(木) 0:05 お礼
【10113】Re:アーカイブ化したExcelファイルを開く方... Kein 04/1/8(木) 1:10 発言
【10191】Re:アーカイブ化したExcelファイルを開く方... モラボ 04/1/10(土) 1:52 お礼

71139 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free