我知道这已经很晚了，但我想让其他任何人都能找到这样做的方法。让你的powershell脚本写一个输出文件：

Get-ChildItem "Directory to Search" | Select-String -Pattern "what to seach for" | out-file "C:\output.txt"

从那里你可以一行一行地写这个变量：

Sub test()
Dim txtfile, text, textline As String

txtfile = "C:\output.txt"

Open txtfile For Input As #1

Do Until EOF(1)
    Line Input #1, textline
    text = text & textline
Loop

Close #1

MsgBox text

End Sub

从那里，您可以将文本插入到单元格中，或者如果愿意，您可以将每一行写入数组，并在需要时单独选择每一行。

看起来VBA只是看到了powershell.exe退出的退出代码。试试这个：

Get-ChildItem "<directory to search in>" | Where-Object {$_.Name -match "<regex to find file name>"} 2>&1

我相信这会将您的PowerShell输出重定向到VBA应该能够获取的stdout。

可以使用WScript访问PowerShell脚本的StdOut输出。请使用以下代码：

Set wShell = CreateObject("WScript.Shell")
Set wShellOutput = wShell.Exec("powershell 'C:\Path\To\file.ps1'")
text_output = wShellOutput.StdOut.ReadAll ()

我建议在.Exec（）调用中使用单引号而不是双引号，因为Windows处理双引号很麻烦。