Excel VBA質問箱 IV

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

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


71042 / 76732 ←次へ | 前へ→

【10191】Re:アーカイブ化したExcelファイルを開く方法・・・
お礼  モラボ  - 04/1/10(土) 1:52 -

引用なし
パスワード
   返事が遅くなりました。
自分なりに考えた結果以下のようにしました。

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

上記実行後、"C:\Temp"内のファイルを削除する処理(以下)を行うことで、解決しました。

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(Fname)
f.Delete

ご助言ありがとうございました。
また、機会がありましたらよろしくお願いします。

1 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 お礼

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