Макрос VBA для запуска PowerShell Command

Question

Я пытаюсь создать макрос, который мог бы переименовать все файлы с расширением ".docx" в папке.

Команда PowerShell работает при непосредственном использовании, но при использовании через код VBA, он не выполняется.

Sub test()
    Dim retval
    Dim pscmd

    pscmd = "PowerShell -ExecutionPolicy Bypass -Command ""Get-ChildItem -Path *.docx -Recurse | Rename-Item -NewName {$_.Name.Substring(0,7) + $_.Extension }"""

    retval = Shell(pscmd, vbNormalFocus)

    Debug.Print pscmd
End Sub

Сценарий выполняется без ошибок компиляции, но файлы не переименовываются.

Что мне нужно изменить?

Answer 1

Вы должны указать путь, по которому существуют ваши файлы. Попробуйте это и измените путь, подходящий вам

Sub Test()
Dim retval, pscmd

pscmd = "PowerShell -ExecutionPolicy Bypass -Command ""Get-ChildItem -Path " & ThisWorkbook.Path & "\Files\" & " *.docx -Recurse | Rename-Item -NewName {$_.Name.Substring(0,7) + $_.Extension }"""
retval = Shell(pscmd, vbNormalFocus)

Debug.Print pscmd
End Sub