Excel 获取运行时错误'-2147024894（80070002）和#x27；当我的代码文件被放在一个有空间的文件夹中时'；姓名

当我将代码Excel文件放在一个没有任何空间的文件夹/目录中时，命名约定会比它正常工作并启动Web服务更好。但是，当我将代码Excel文件放在命名约定中有空间的文件夹中时，我得到一个运行时错误：

'-2147024894（80070002）

请帮忙

Sub InvokShellScript1()

Dim sApp As String
Dim var As Integer

sApp = ThisWorkbook.Path & "\protected\WSInvoke.bat   " & ThisWorkbook.Path & "\protected\Refresh.txt  " & ThisWorkbook.Path

Dim objShell As Object

   Set objShell = CreateObject("WScript.Shell")
   var = objShell.Run(sApp, 0, True)


End Sub

---

您需要在路径周围加引号才能处理空格。请尝试以下任一方法：

sApp=Chr$（34）和ThisWorkbook.Path&“\protected\WSInvoke.bat”&Chr$（34）和“&Chr$（34）和ThisWorkbook.Path&“\protected\Refresh.txt”&Chr$（34）和“&Chr$（34）和ThisWorkbook.Path&Chr$（34）

或者如果Chr（）不起作用：

---

sApp=“”&ThisWorkbook.Path&“\protected\WSInvoke.bat”“”&ThisWorkbook.Path&“\protected\Refresh.txt”“”&ThisWorkbook.Path&“

非常感谢您，Chr$one工作正常。然而，第二个需要稍微调整一下。sApp=“”&ThisWorkbook.Path&“\protected\WSInvoke.bat”“”&ThisWorkbook.Path&“\protected\Refresh.txt”“”&ThisWorkbook.Path&“哦，你说得对，我错过了那里的引号，谢谢你抓住了它。我用更正后的文本更新了我的答案。