vba - 使用 'Run' 对象的 'WScript.Shell' 方法时出现运行时错误

Question

我正在尝试通过 VBA 运行命令提示符来执行几个命令，但我遇到了一个错误。

Run-time error '-214702894(80070002)':
Method 'Run' of object 'IWshShell3' failed

我尝试将文件路径用引号括起来(如下所示)，但无论我使用哪种方法，错误都仍然存在。

Shell.Run "cd """ & MyDocumentsPath & """", 1, True
Shell.Run "cd " & Chr(34) & MyDocumentsPath & "Chr(34)", 1, True

我也尝试直接输入文件路径(没有空格)，但也失败了。

Shell.Run "cd ""C:\Users\GardD""", 1, True

有人能够发现任何问题吗？这是我的完整代码-

Dim Shell As Object ' An instance of the 'Shell' object
Set Shell = VBA.CreateObject("WScript.Shell")

Dim MyDocumentsPath As String   ' The path to the current users 'My Documents' folder
MyDocumentsPath = GetMyDocumentsPath

Shell.Run "cd " & MyDocumentsPath, 1, True  ' Change the Shell start location to the users 'My Documents' folder
Shell.Run DIR_CMD & DIR_FILE_PATH, 1, True  ' Output the full file paths of all files in the users 'My Documents' folder

Set Shell = Nothing ' Destroy the 'Shell' object

Answer 1

cd不是可执行文件；它是一个仅存在于 (cmd.exe) 控制台 session 中的命令，dir 同上如果这就是 DIR_CMD 中的内容.

你可以 Shell.Run "cmd /c cd c:\temp & dir *.xls", 1, true
使用 VBA 在命令行上执行您想做的任何事情可能会更好。