vba调用exe(shell)

Sub test()
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    'MsgBox wb.FullName
    Shell "d:\user\845744\desktop\项目管理\GT\GT\bin\Debug\Gt.exe " & wb.FullName & " mc sflp 项目名称 是否录屏", vbNormalFocus
    
    
    
End Sub

rem chcp 65001

echo on

rem [full]  ImportZco007
cd ..\Aided\bin\Debug

rem [short].dna
rem dir .\..\..\..\公共资源包\\Distribution\*.*
.\..\..\..\Resource\Distribution\ExcelDnaPack.exe GT.dna /y

rem [short]-packed.xll
copy /y GT-packed.xll ..\..\..\GT-packed.xll


rem [中文]
cd ..\..\..\
rem dir
explorer.exe  . 
rem pause
rem "C:\Program Files (x86)\Microsoft Office\Office15\excel.exe" 网点成本通报工具.xlsm

rem pause