无法调用WSCript.Shell对象的Run方法，求问题排查方案

你遇到的错误-2147024894对应系统错误码ERROR_FILE_NOT_FOUND，看起来和你确认的“路径文件都正确”矛盾，但其实问题出在带空格路径的引号处理上——WScript.Shell.Run对参数格式的要求比VBA原生Shell函数严格得多。

问题根源 #

你的程序路径C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe包含空格，直接拼接成字符串传给Run方法时，系统会把空格后的部分当成额外参数，导致无法正确识别完整的程序路径，自然就触发了“文件未找到”的错误。而VBA的Shell函数会自动处理这类带空格的路径，所以能正常运行。

修正后的代码 #

给包含空格的路径显式添加双引号即可解决问题，在VBA里需要用两个双引号""来转义字符串中的单个双引号：

Private Sub TryPDF()
    Dim oShell As Object
    Dim App As String
    Dim SrcPath As String
    Dim Fn As String
    Dim FullFilePath As String
    
    ' 给程序路径加上转义的双引号
    App = """C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"""
    SrcPath = Environ("UserProfile") & "\Downloads\"
    Fn = "20200509_Order_of_08_05_2020.PDF"
    ' 给文件完整路径也加上转义的双引号（避免用户目录含空格的情况）
    FullFilePath = """" & SrcPath & Fn & """"
    
    Set oShell = CreateObject("WSCript.Shell")
    ' 拼接带引号的程序路径和文件路径，中间用空格分隔
    oShell.Run App & " " & FullFilePath, vbNormalFocus, True
    Set oShell = Nothing
End Sub

补充说明 #

• 你也可以用Chr(34)来代替双引号转义，代码可读性可能更好：

  App = Chr(34) & "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe" & Chr(34)
  FullFilePath = Chr(34) & SrcPath & Fn & Chr(34)
  

• 即使你的用户目录当前没有空格，也建议给文件路径加上引号——这是一个通用的好习惯，能避免后续路径变化时再次出现类似问题。

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