Question

我有bat文件启动并静默执行测试工具。双击手动bat文件执行它需要做的事情。现在我编写一个需要执行bat文件的VBA宏，但宏只是打开并立即关闭它。在宏代码下面找到。

Sub Macro1()
Dim WshShell As Object
Set WshShell = VBA.CreateObject("WScript.Shell")
WshShell.CurrentDirectory = Trim(CStr(Excel.Sheets("Sheet1").Cells(1, 1)))
Output = WshShell.Run("Command.bat", 1, True)
End Sub

第一张中的

单元格（1,1）具有command.bat文件所在的目录。我做错了什么？

Answer 1

尝试以下方法。正如其他人所提到的，构建变量的路径有点挑剔，尤其是当文件路径有空间时。使用1. model 2. model.docvecs.doctag_syn0.npy 3. model.syn0.npy 4. model.syn1.npy 5. model.syn1neg.npy代表Chr(34)可以很好地运作。

Answer 2

以这种方式尝试怎么样？我已经在本地bat文件上测试了它，它对我来说很好。

Dim Foldername As String
Foldername = "C:\WorkspaceRFT\RMS\command.bat"
Shell "C:\WINDOWS\explorer.exe """ & Foldername & "", vbNormalFocus

VBA宏不执行bat文件

2 个答案: