Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

71048 / 76738

←次へ　｜　前へ→


	【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

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

0 hits

▼

【10088】アーカイブ化したExcelファイルを開く方法・・・ モラボ 04/1/6(火) 23:41