請問vba使用系統內建來解壓縮zip?? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請問vba使用系統內建來解壓縮zip??

返回列表下一主題上一主題發帖

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

　暱稱: 蝕光迴狼

中學生 Rank: 2

帖子: 75
主題: 6
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2014-9-22
最後登錄: 2015-3-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2014-11-1 01:12 | 顯示全部帖子

回復 1# lshsien

試試看，是不是這樣?

Sub 解壓縮文件()
Dim Rarexe As String 'WINRAR執行文件的位置
Dim FileString As String 'Shell指令中的字符串
Dim Result As Long
Rarexe = "C:\program files\winrar\winrar" 'WINRAR執行文件的位置
'[B1]欄位解壓縮前的原始文件
'[B2]欄位解壓縮後的目地文件
FileString = Rarexe & " x " & "-Y " & [B1] & " " & [B2] '指定-Y 開關，“是”為默認值，並自動回應全部的詢問。
Result = Shell(FileString, vbHide)
End Sub

複製代碼

還有另一個更便利的方法，但我功力不夠深厚，要請高手來幫忙了～
程式碼如下，需另外貼在上面程式的最上方
這方法是直接點欄位，就會自動帶出路徑

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim gb As FileDialog '宣告一個檔案對話框
'Dim fd As FileDialog '宣告一個檔案對話框
Set gb = Excel.Application.FileDialog(msoFileDialogFilePicker) '設定選取檔案功能
'Set fd = Application.FileDialog(msoFileDialogFolderPicker) '設定選取資料夾功能
With Target(1)
If .Address = "$B$1" Then If gb.Show Then .Cells = gb.SelectedItems(1) '點選哪個欄位儲存格,檔案路徑秀在那個欄位
'If .Address = "$B$2" Then If fd.Show Then .Cells = fd.SelectedItems(1) '點選哪個欄位儲存格,檔案路徑秀在那個欄位
End With
End Sub

複製代碼

解壓縮.rar (8.16 KB)

我很笨,所以我很用心
　我學藝不精,但我渴求知識

　暱稱: 蝕光迴狼

中學生 Rank: 2

帖子: 75
主題: 6
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2014-9-22
最後登錄: 2015-3-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2014-11-4 21:28 | 顯示全部帖子

回復 4# lshsien

你用試成功的方法是
　可否分享一下，互相學習

我很笨,所以我很用心
　我學藝不精,但我渴求知識

　暱稱: 蝕光迴狼

中學生 Rank: 2

帖子: 75
主題: 6
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2014-9-22
最後登錄: 2015-3-7

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2014-11-4 21:36 | 顯示全部帖子

回復 3# stillfish00

stillfish00 大大：

　請問以下程式要怎麼改，才能兩個條件都成立，並正常執行程式?

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim gb As FileDialog '宣告一個檔案對話框
'Dim fd As FileDialog '宣告一個檔案對話框
Set gb = Excel.Application.FileDialog(msoFileDialogFilePicker) '設定選取檔案功能
'Set fd = Application.FileDialog(msoFileDialogFolderPicker) '設定選取資料夾功能
With Target(1)
If .Address = "$B$1" Then If gb.Show Then .Cells = gb.SelectedItems(1) '點選哪個欄位儲存格,檔案路徑秀在那個欄位
'If .Address = "$B$2" Then If fd.Show Then .Cells = fd.SelectedItems(1) '點選哪個欄位儲存格,檔案路徑秀在那個欄位
End With
End Sub

複製代碼

我很笨,所以我很用心
　我學藝不精,但我渴求知識

　暱稱: 蝕光迴狼

中學生 Rank: 2

帖子: 75
主題: 6
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2014-9-22
最後登錄: 2015-3-7

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2014-11-5 00:44 | 顯示全部帖子

回復 7# stillfish00

謝謝 stillfish00 大大的回答，可以正常執行了，萬分感謝～

我很笨,所以我很用心
　我學藝不精,但我渴求知識

靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。

返回列表下一主題上一主題