小编Mat*_*ega的帖子

我的excel vba宏有问题.我需要它来执行批处理文件,该文件与excel工作簿位于同一文件夹中.代码有时运行良好.我不知道导致错误的是什么.这是代码:

Sub writebatch()
  Sheets("code").Select
  Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs FileName:=ThisWorkbook.path & "\code.bat",
  FileFormat:=xlTextPrinter, CreateBackup:=False
  Application.DisplayAlerts = True
  ThisWorkbook.Saved = True
  Shell "cmd.exe /k cd " & ThisWorkbook.path & "&&code.bat"
  Application.Quit
End Sub

它写入批处理文件,但之后不执行它.只有一旦我得到命令窗口没有关闭,它说无法找到code.bat文件.所以changedir命令工作.是否可以运行cmd.exe并使用相对路径运行code.bat而无需更改？