- 帖子
- 6
- 主題
- 2
- 精華
- 0
- 積分
- 37
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2014-4-15
- 最後登錄
- 2019-1-15
|
請問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")
載煩請各位前輩指導
謝謝 |
|
發表於 2014-10-31 14:14
| 
