VBA中如何等待Shell命令执行完成后再继续？Run-time error '1004'问题求解

这个问题我太懂了！你碰到的核心坑是Shell函数是异步执行的——它启动cmd命令后会立刻返回，根本不等systeminfo导出完CSV就跑去执行Workbooks.Open。这时候哪怕文件已经创建，系统可能还在往里面写数据，VBA自然会报错找不到（或者说无法正常访问）文件，第二次运行时文件已经完全写入，所以就没问题了。

下面给你两种靠谱的解决方案：

方法一：用WScript.Shell的Run方法（最推荐） #

WScript.Shell的Run方法支持等待命令执行完成，直接解决异步的问题，代码也简洁：

Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")
Dim sCommandToRun As String
Dim fileFullPath As String

' 用绝对路径更稳妥，避免路径混乱
fileFullPath = ThisWorkbook.Path & "\PC_one.csv"
sCommandToRun = "systeminfo /fo csv > """ & fileFullPath & """"

' WaitOnReturn:=True 会让代码暂停，直到cmd命令执行完毕
wsh.Run "cmd.exe /S /C " & sCommandToRun, vbHide, True
Set wsh = Nothing

' 现在可以安全打开文件了
Workbooks.Open (fileFullPath)

这里特意用了绝对路径，避免cmd的当前目录和Excel的当前目录不一致，导致文件生成在你意想不到的地方。

方法二：用Shell+循环等待文件就绪 #

如果你非要用Shell函数，可以通过循环检查文件是否存在且大小稳定（确保写入完成）：

Dim sCommandToRun As String
Dim fileFullPath As String
Dim prevFileSize As Long, currFileSize As Long

fileFullPath = ThisWorkbook.Path & "\PC_one.csv"
sCommandToRun = "systeminfo /fo csv > """ & fileFullPath & """"

' 启动Shell命令
Shell "cmd.exe /S /C " & sCommandToRun, vbHide

' 第一步：等文件出现
Do While Dir(fileFullPath) = ""
    DoEvents ' 让Excel保持响应，避免假死
Loop

' 第二步：等文件大小不再变化（确保写入完成）
prevFileSize = FileLen(fileFullPath)
Do
    DoEvents
    currFileSize = FileLen(fileFullPath)
    ' 如果连续两次检查大小一样，说明写入完成
    If currFileSize = prevFileSize Then Exit Do
    prevFileSize = currFileSize
Loop

' 现在打开文件就不会报错了
Workbooks.Open (fileFullPath)

这个方法适合需要更精细控制的场景，但要记得加DoEvents，不然Excel会在等待时卡住。

额外提醒 #

• 永远优先用绝对路径处理文件，相对路径很容易因为当前目录变化出问题；
• 如果你的systeminfo命令执行时间很长，方法二的循环等待会更灵活，但方法一的代码可读性更高。

内容的提问来源于stack exchange，提问作者Jacob Mazanowski