返回列表 上一主題 發帖

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

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2014-11-3 19:43 | 顯示全部帖子
回復 1# lshsien
你寫反了吧
Fname = Worksheets("工作表1").Range("F2").value          '從F2取得zip檔路徑
FileNameFolder = ThisWorkbook.Path & "\" & folder_name & "\"        '解壓縮位置
Set oApp = CreateObject("Shell.Application")
oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2014-11-4 23:54 | 顯示全部帖子
本帖最後由 stillfish00 於 2014-11-5 00:09 編輯

回復 6# 蝕光迴狼
若是一個檔案一個資料夾:
  1. Option Explicit
  2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  3.     Dim gb As FileDialog    '宣告一個檔案對話框
  4.     Dim fd As FileDialog    '宣告一個檔案對話框
  5.     With Target(1)
  6.         If .Address = "$B$1" Then
  7.             Set gb = Excel.Application.FileDialog(msoFileDialogFilePicker)  '設定選取檔案功能
  8.             If gb.Show Then .Cells = gb.SelectedItems(1) '點選哪個欄位儲存格,檔案路徑秀在那個欄位
  9.         ElseIf .Address = "$B$2" Then
  10.             Set fd = Application.FileDialog(msoFileDialogFolderPicker)  '設定選取資料夾功能
  11.             If fd.Show Then .Cells = fd.SelectedItems(1) '點選哪個欄位儲存格,檔案路徑秀在那個欄位
  12.         End If
  13.     End With
  14. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題