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
因篇幅问题不能全部显示，请点此查看更多更全内容