当我尝试根据列将电子表格拆分为多个文件时，出现运行时错误 1004

Question

我正在使用来自这个答案，它允许您根据指定列的值拆分文件。我对其进行了调整以添加

Dim sMonthYear As String ' Month & Year of report

sMonthYear = Application.InputBox("Enter the Month and Year of the report", "Enter text", , , , , , 2)

用户输入一个字符串，我SaveAs把它改成了

ash.SaveAs sFilePath + "\Split\" + sSectionName + "\" + sMonthYear + "\" + osh.Name, fileFormat

以便创建一个如下所示的文件路径：\Split\Group 1\October 2019\Report.xlsx。我还添加了sMonthYear第 69、87 和 114 行的命令，以确保变量已传递到新的工作表并保存。

但是，当我运行它时，它给出了这个错误：

运行时错误‘1004’：

Microsoft Excel 无法访问文件 ...\Split\Group 1\October 2019\CBAE2000'。可能的原因有以下几种：

我不确定我做错了什么。当我删除 sMonthYear 位和引号中的反斜杠时，它工作正常。当我单击“调试”时，它会带我到 ash.SaveAs 行。