你的代码问题主要出在CMD命令的拼接逻辑和Shell参数格式上，我帮你拆解一下问题点，再给出修复后的代码：

核心错误点 #

• 你把三个命令直接拼接成一串，CMD无法区分不同的命令，需要用&（执行多个命令，不管前一个是否成功）或者&&（仅当前一个命令成功时执行下一个）来分隔每个命令。
• 带空格的文件夹名必须用双引号括起来，否则CMD会把空格后的部分当成新命令，导致路径识别错误。
• Shell命令里的/S参数后面需要加空格，否则会和后面的命令串连在一起，导致CMD无法正确解析参数。

修复后的代码 #

Dim filet As String
Dim numero As String

Const pekka = "TIEDOSTO"
Const sami = "NUMEROT"
filet = Range(pekka).Cells(1, 1).Value
numero = Range(sami).Cells(1, 1).Value

' 拼接CMD命令：切换盘符 -> 进入目标文件夹 -> 执行BAT并传递参数
Dim commandStr As String
commandStr = "cmd.exe /S /K " & _
             "D: && " & _
             "cd ""folder name"" && " & _
             """Create-tri.bat"" """ & filet & """ """ & numero & """"

Call Shell(commandStr, vbNormalFocus)

关键修改说明 #

1. 命令分隔符：用&&替代直接拼接，确保前一个命令执行成功后才执行下一个（比如先成功切换到D盘，再进入文件夹）。
2. 路径引号：给带空格的文件夹名folder name和BAT文件名加上双引号，避免CMD解析错误。
3. 参数格式：/S后面加了空格，同时新增/K参数（执行命令后保持CMD窗口打开，方便你查看错误信息；如果想执行后自动关闭，可以换成/C）。
4. 参数引号：给传递给BAT的filet和numero也加上双引号，防止这两个变量包含空格时出现问题。

额外调试建议 #

如果还是无法运行，建议先手动在CMD里执行拼接后的命令，看看是否能正常运行——这样能快速排查是VBA的问题，还是BAT脚本本身的问题。比如把拼接好的commandStr用MsgBox commandStr输出，复制到CMD里执行，观察报错信息。

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