Microsoft Excel 2013 - 将电子表格拆分为新工作簿并保存到与父电子表格相同的文件夹中

Question

我在此链接中找到了 mtone 于 2012 年 3 月 5 日针对“我可以根据 Excel 2007 中的列将电子表格拆分为多个文件吗？”编写的一些代码我可以根据 Excel 2007 中的列将电子表格拆分为多个文件吗？。它确实运行良好，但我希望它将工作簿保存到与父文件相同的文件夹中。这可能吗？谢谢 Lynn

Answer 1

代码接近末尾处是：

 ash.SaveAs sFilePath + "\Split\" + sSectionName, fileFormat

改成

 ash.SaveAs sFilePath + sSectionName, fileFormat

另外，您可以删除创建拆分目录的早期代码：

If Dir(sFilePath + "\Split", vbDirectory) = "" Then
    MkDir sFilePath + "\Split"
End If