👤　地球人の作成したネットをイロイロ、ネットサーフィンしたらさ
とにかく、VBAなのにPowerShellが起動させれるみたい

'* PowerShellのコマンドを実行するVBA*
Function runPS(ppp As String)
　Dim ooo As Object
　Set ooo =CreateObject("WScript.Shell")
　 ooo.Run "powershell -NoLogo 　-ExecutionPolicy RemoteSigned 　-Command " & ppp, 0, True
End Function

これが、VBAなのにPOWER SHELLが動いちゃうFunctionだ
引数pppはmax 260文字という制限あるが
モピロン、このFuctionを無限回コールすりゃ無限大の
power shellが動かせる。　　わけないけど、とにかく、
pppに、ファイルコピーするpowershellを代入すると
ちゃんとファイルコピー　できるようだ。

by 👤の呟き