我懂你想要的效果——在Excel宏跑起来的时候，把运行过程里的信息实时输出到一个独立的外部控制台窗口里，既不想每次输出都弹个新窗口，也不想用Excel自带的即时窗口对吧？

最初尝试的局限 #

你提到用Call Shell("cmd.exe /K echo testInfo", vbNormalFocus)能输出单行文本，但这个方式的问题很明显：每输出一行就会新开一个cmd窗口，完全没法满足频繁输出信息的需求。

无需额外外部程序的解决方案（基于@JohnRC的思路优化） #

你找到的这个方法真的很巧妙，核心逻辑是借助PowerShell的实时文件监控功能，把宏里的运行信息写到一个文本文件，同时让PowerShell持续读取这个文件的内容并展示在控制台窗口中：

1. 先定义好日志文件的路径（换成你自己的路径就行）：

   Dim strPath As String
   strPath = "C:\ExcelMacroLogs.txt" ' 替换为你实际要使用的日志文件路径
   

2. 写一个通用的辅助函数，用来把信息追加写入日志文件（还可以加上时间戳方便追踪）：

   Sub WriteToLog(logText As String)
       Dim fso As Object
       Set fso = CreateObject("Scripting.FileSystemObject")
       Dim logFile As Object
       ' 8代表追加模式，True表示文件不存在时自动创建
       Set logFile = fso.OpenTextFile(strPath, 8, True)
       logFile.WriteLine Now() & " - " & logText
       logFile.Close
       Set logFile = Nothing
       Set fso = Nothing
   End Sub
   

3. 在宏开始运行前，启动PowerShell窗口来实时监控这个日志文件：

   Call Shell("PowerShell.exe -noexit -command get-content " & strPath & " -wait", vbNormalFocus)
   

之后在宏里需要输出信息的地方，直接调用WriteToLog "你的运行状态信息"就行，内容会自动追加到日志文件，PowerShell窗口会实时刷新显示新内容，全程只需要一个控制台窗口，完美实现你要的即时查看运行过程信息的需求。

内容的提问来源于stack exchange，提问作者janik epicexe