返回列表 上一主題 發帖

請問vba使用系統內建來解壓縮zip??

lshsien

帖子
6 
主題
2 
精華
0 
積分
37 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2014-4-15 
最後登錄
2019-1-15 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-10-31 14:14 | 顯示全部帖子

請問vba使用系統內建來解壓縮zip??

您好!
請教各位前輩
目前小弟想使用以下來解壓縮
Fname = Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip", MultiSelect:=False)
FileNameFolder = ThisWorkbook.Path & "\" & folder_name & "\"
Worksheets("工作表1").Range("F2") = FileNameFolder
Set oApp = CreateObject("Shell.Application")
oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items
目前測試成功，
但使用這方式，還需選擇所需要解縮的檔案，
請問是否可以不需選擇而自行解壓縮
ps.檔案名稱與資料夾名稱擷取自Worksheets("工作表1").Range("F2")

載煩請各位前輩指導
謝謝
收藏 分享

lshsien

帖子
6 
主題
2 
精華
0 
積分
37 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2014-4-15 
最後登錄
2019-1-15 
2#
發表於 2014-11-3 20:45 | 顯示全部帖子
感謝蝕光迴狼大大
已經試驗成功了

感謝stillfish00更正

TOP

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
返回列表 上一主題