“Perintah VBA Run Shell dengan argumen” Kode Jawaban

Perintah VBA Run Shell dengan argumen

Sub ExecuteShell(path As String, ParamArray arg() As Variant)
    Dim element As Variant
    Dim cmd As String

    cmd = path & " " 'insert any pre-arguments charaters

    For Each element In arg
        cmd = cmd & element & ", "
    Next element

    'remove last comma
    cmd = Left(cmd, Len(cmd) - 2)

    Call Shell(cmd)

End Sub