运行powershell解压缩文件，能将.ZIP否改为.RAR

aman1516

网上找到的代码，最后一句未通过，不知错在哪里：
Sub Unzipper()
    Dim command As String, wsh As Object, waitOnReturn As Boolean, windowStyle As Integer
    Dim pdfPath As String, zipPath As String
    waitOnReturn = True
    windowStyle = 7
     zipPath = "D:\Downloads\test.zip"       'frmMerge.txtBoxFile2.Value
    pdfPath = "D:\Downloads\"        'ThisWorkbook.Path & "\PDFTemp\"
    command = "Powershell Expand-Archive -LiteralPath " & _
              "'" & zipPath & "' -DestinationPath '" & pdfPath & "'"
    Set wsh = VBA.CreateObject("WScript.Shell")
    wsh.Run command, windowStyle, waitOnReturn    '不知是否未装ZIP,执行未通过！
End Sub

lss001

Sub PowerShell解压缩zip()
   
    zipPath = "D:\Downloads\test.zip"
    pdfPath = "D:\Downloads\"
    'Compress压缩
    'Shell "PowerShell Compress-Archive -Path " & pdfPath & " -DestinationPath " & zipPath, 0
    'Expand解压
    Shell "PowerShell Expand-Archive -Path " & zipPath & " -DestinationPath " & pdfPath, 0

End Sub

qx-liuwx

RP=Run Program(Executable("C:\Program Files\WinRAR\WinRAR.exe"),Options({"e -or C:\1\abc.7z C:\2"}));

游乐缘

感谢分享，留名学习

aman1516

lss001 发表于 2023-1-25 16:17
Sub Unzipper() 'PowerShell解压缩rar需要WinRAR支持
   
    zipPath = "D:\Downloads\test.zip"

有 WinRAR ，仍不成，可能是系统及版本问题

aman1516

qx-liuwx 发表于 2023-1-25 16:58
RP=Run Program(Executable("C:\Program Files\WinRAR\WinRAR.exe"),Options({"e -or C:\1\abc.7z C:\2"})) ...

Python？

qx-liuwx

aman1516 发表于 2023-1-25 21:33
Python？

改用JMP的JSL了
现在基本不用excel了

lss001

Sub PowerShell解压缩rar()
     'WinRAR文件路径，注意路径三引号：""" """
    winPath = """C:\Program Files\WinRAR\WinRAR"""
   
    wPath = """D:\Documents\xxx""" '压缩路径\名称
    txtPath = """D:\Documents\xxx.txt""" '待压缩文件
    pa = "& " & winPath & " a /ep " & wPath & " " & txtPath
   
    rarPath = """D:\Documents\xxx.rar""" '待解压文件
    uPath = """D:\Documents\""" '解压路径
    px = "& " & winPath & " x /y " & rarPath & " " & uPath

    f = "D:\Documents\xxx.ps1"
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Dir(f, 16) = "" Then
        Set fs = fso.createtextfile(f, True)
        'fs.writeline (pa) 'pa压缩
        fs.writeline (px) 'px解压
        fs.Close
    End If
    Shell "PowerShell -ExecutionPolicy Bypass -File " & f, 0
    Application.Wait Now + VBA.TimeSerial(0, 0, 5)
    Kill f '删除ps1文件

End Sub

aman1516

lss001 发表于 2023-1-26 15:03
Sub powershell解压缩rar()

'    '参数：a压缩

执行一个psl文件，也是一个好方法。
非常感谢！

lss001

'使用WinRAR直接解压缩rar

Sub WinRAR解压缩rar()
    Set ws = CreateObject("wscript.shell")

'    wPath = """C:\Documents\xxx""" '压缩路径\名称
'    txtPath = """C:\Documents\xxx.txt""" '待压缩文件
'    ws.Run "winrar a /ep " & wPath & " " & txtPath, 0
   
    rarPath = """C:\Documents\xxx.rar""" '待解压文件
    uPath = """C:\Documents\""" '解压路径
    ws.Run "winrar x /y " & rarPath & " " & uPath

End Sub