Call PowerShell script file from VBA In Windows 10

Question

Since a time, I was using this code and it worked before

Sub Call_PowerShell_Script_File_From_Excel_VBA()
'Windows PowerShell ISE >> New Script >> Create 'Hello World.ps1'
'    echo "Hello World"
'    $x = 1 + 1
'    echo $x
'----------------------------------------------------------------
Dim wshShell        As Object
Dim wshShellExec    As Object
Dim strCommand      As String
Dim strOutput       As String

strCommand = "Powershell.exe -File ""C:\Users\Future\Desktop\Hello World.ps1"""
Set wshShell = CreateObject("WScript.Shell")
Set wshShellExec = wshShell.Exec(strCommand)
strOutput = wshShellExec.StdOut.ReadAll

MsgBox strOutput
End Sub

I was working on Windows 7 and the code was with no problem. After installing Windows 10, I found the code not working and I got blank message with no output Any ideas ??

** When testing Tim's code I got this message

StdOut:       
StdErr:       File C:\Users\Future\Desktop\Hello World.ps1 cannot be loaded 
because running scripts is disabled on this system. For 
more information, see about_Execution_Policies at 
https:/go.microsoft.com/fwlink/?LinkID=135170.
+ CategoryInfo          : SecurityError: (:) [], 
ParentContainsErrorRecordException
+ FullyQualifiedErrorId : UnauthorizedAccess

Can you run that script manually?

Tim Williams
– Tim Williams

2020-03-19 15:48:07 +00:00
Commented Mar 19, 2020 at 15:48 — Tim Williams
– Tim Williams, Commented Mar 19, 2020 at 15:48
Yes and this what confused me.

YasserKhalil
– YasserKhalil

2020-03-19 16:21:10 +00:00
Commented Mar 19, 2020 at 16:21 — YasserKhalil
– YasserKhalil, Commented Mar 19, 2020 at 16:21

Tim Williams · Accepted Answer · 2020-03-19 16:38:36Z

2

Try this and see what you get:

Sub Call_PowerShell_Script_File_From_Excel_VBA()
    'Windows PowerShell ISE >> New Script >> Create 'Hello World.ps1'
    '    echo "Hello World"
    '    $x = 1 + 1
    '    echo $x
    '----------------------------------------------------------------
    Dim wshShell        As Object
    Dim wshShellExec    As Object
    Dim strCommand      As String
    Dim strOutput

    strCommand = "Powershell.exe -File ""C:\Users\Future\Desktop\Hello World.ps1"""
    Set wshShell = CreateObject("WScript.Shell")
    Set wshShellExec = wshShell.Exec(strCommand)
    strOutput = wshShellExec.StdOut.ReadAll()
    Debug.Print "StdOut:", strOutput

    strOutput = wshShellExec.StdErr.ReadAll()
    Debug.Print "StdErr:", strOutput


End Sub

answered Mar 19, 2020 at 16:38

Tim Williams

169k8 gold badges104 silver badges143 bronze badges

Sign up to request clarification or add additional context in comments.

4 Comments

YasserKhalil Over a year ago

Thanks a lot. I have put the result in the main post. How can I enable it on the system?

Tim Williams Over a year ago

No idea - just pointing out the problem. If you're on a company PC then ask your IT folk. If you're at home then start here: google.com/…

Tim Williams Over a year ago

superuser.com/questions/106360/…

YasserKhalil Over a year ago

Thank you very much for awesome help. It has been enabled by opening PowerShell as administrator then using Set-ExecutionPolicy Unrestricted then using this command too Set-ExecutionPolicy -Scope CurrentUser -ExecutionPolicy ByPass -Force

Collectives™ on Stack Overflow

Call PowerShell script file from VBA In Windows 10

1 Answer 1

4 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

4 Comments

Your Answer

Sign up or log in

Post as a guest

Related