Toepassing starten vanuit VBA

[anton44]

Mijn bat bestand met onderstaand script zou ik graag direct in een bestaande VBA macro (Excel) willen integreren als startpunt van die macro.

@echo off
set path="C:\Program Files\WinRAR\"
WinRAR e -o+ "d:\downloads\tr*.zip" "d:\downloads\"
ren tr*.csv tr-info.csv
exit

 

[alphamax]

Het "unzippen" zit al standaard in windows ingebouwd, je hebt daar geen shell of winzip voor nodig
Zie https://www.rondebruin.nl/win/s7/win002.htm voor VBA-code.

 

[anton44]

@alphamax,
Bedankt voor je snelle reactie.
Als ik de benodigde code van Ron zie (voor mij erg complex) dan lijkt het veel eenvoudiger om de omgekeerde weg te bewandelen en de .bat te activeren vanuit VBA

 

[alphamax]

Dit is alvast het gedeelte wat unzipt.
De code unzipt alle zip-bestanden in de dezelfde map.

Option Explicit

Public Sub UnzipInSameFolder()
    Dim avntZip As Variant
    Dim objShell As Object
    Dim strPath As String
    Dim vntZip As Variant
        strPath = "d:\downloads"
        avntZip = Filter(Split(CreateObject("WScript.Shell").Exec("CMD /C DIR """ & strPath & "\*.zip"" /S /B /A:-D").StdOut.ReadAll, vbCrLf), ".")
        Set objShell = CreateObject("Shell.Application")
        For Each vntZip In avntZip
            With objShell
                .Namespace(strPath).CopyHere .Namespace(vntZip).items
            End With
        Next
        Set objShell = Nothing
End Sub

Zit er telkens maar 1 tr* in maar 1 zip-bestand per folder?

 

[alphamax]

Of als je de bat-file wil laten lopen

Shell("Path where your batch file is stored\file name.bat")

Ik weet niet wat er gebeurt als winrar om bepaalde gebruikersinteracties vraagt.

 

[anton44]

Of als je de bat-file wil laten lopen

Shell("Path where your batch file is stored\file name.bat")

Ik weet niet wat er gebeurt als winrar om bepaalde gebruikersinteracties vraagt.

Met syntaxes kun je interacties uitsluiten. Werkt nu als proefprojectje prima.