如何在VBA中使用变量指定目录路径调用外部.exe程序？

我一眼就看出问题出在哪了——你第二个Shell语句里犯了个典型的字符串拼接错误：你直接把变量名file写在了引号里，VBA可不会自动把这个字符串里的file替换成你定义的变量值！cmd执行的时候会真的去找一个叫file的文件，这当然找不到啦。

修正核心问题的代码 #

先把你的代码改对，把变量正确插入到Shell命令字符串中，同时还要注意路径的引号包裹（避免路径含空格时出错）：

Sub convert()
    Dim directory As String
    Dim inputFilename As String
    Dim outputFilename As String
    Dim exePath As String
    Dim shellCommand As String
    
    ' 定义各个路径变量
    directory = "C:\Users\user1\Desktop\reporting\201703161224"
    inputFilename = directory & "\input.set"
    outputFilename = directory & "\output.txt"
    exePath = "C:\Users\user1\Desktop\reporting\appli.exe"
    
    ' 正确拼接Shell命令：用变量替换硬编码路径，同时给路径加引号避免空格问题
    shellCommand = "cmd /c """ & exePath & """ """ & inputFilename & """ > """ & outputFilename & """"
    
    ' 执行命令，还可以接收返回值判断是否成功（返回0以外的数可能表示出错）
    Dim shellResult As Double
    shellResult = Shell(shellCommand, vbNormalFocus)
    
    If shellResult = 0 Then
        MsgBox "调用exe失败，请检查路径是否正确！"
    End If
End Sub

升级为支持用户选择目录的版本 #

既然你需要让用户选择不同目录，那就加上文件夹选择对话框，这样更灵活：

Sub convertWithUserSelection()
    Dim selectedDir As String
    Dim inputFilename As String
    Dim outputFilename As String
    Dim exePath As String
    Dim shellCommand As String
    
    ' 让用户选择目标文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "请选择存放input.set的文件夹"
        If .Show = -1 Then
            selectedDir = .SelectedItems(1)
        Else
            MsgBox "未选择文件夹，程序退出"
            Exit Sub
        End If
    End With
    
    ' 定义exe路径（可以改成固定路径，或者也让用户选择exe文件）
    exePath = "C:\Users\user1\Desktop\reporting\appli.exe"
    inputFilename = selectedDir & "\input.set"
    outputFilename = selectedDir & "\output.txt"
    
    ' 拼接命令，注意引号的转义（VBA里用""表示一个"）
    shellCommand = "cmd /c """ & exePath & """ """ & inputFilename & """ > """ & outputFilename & """"
    
    ' 执行命令
    Dim shellResult As Double
    shellResult = Shell(shellCommand, vbNormalFocus)
    
    If shellResult = 0 Then
        MsgBox "转换失败，请检查：" & vbCrLf & _
               "1. appli.exe路径是否正确" & vbCrLf & _
               "2. 所选文件夹中是否存在input.set文件"
    Else
        MsgBox "转换完成！结果已保存到：" & outputFilename
    End If
End Sub

关键注意点 #

• 变量插入字符串：必须用&把字符串片段和变量拼接起来，不能直接在引号里写变量名。
• 路径引号包裹：如果路径（包括exe路径、输入输出文件路径）中包含空格，一定要用双引号把整个路径括起来，否则cmd会把空格当成参数分隔符，导致解析错误。VBA里要输出一个双引号，需要写两个双引号""来转义。
• Shell返回值：Shell函数会返回一个任务ID，如果返回0，通常表示命令执行失败，可以用这个来做错误提示。

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