VBA - Excel 工作表不会保存到当前目录 - 默认为我的文档答案

【问题标题】：VBA - Excel sheet wont save to current directory - defaults to My DocumentsVBA - Excel 工作表不会保存到当前目录 - 默认为我的文档
【发布时间】：2017-02-17 15:49:21
【问题描述】：

我想将 2 张 xlsm 文件保存为带有 .bat 扩展名的 MSDOS 文本文件，以便我可以将它们作为脚本运行，并将它们保存到当前目录。什么会导致它默认为“我的文档”？

我不是编码员 - 我使用录制宏创建它，然后对其进行编辑以取出特定路径。我实际上一直在工作，直到我在开头添加了 ActiveWorkbook.Save，最后添加了 ActiveWorkbook.Close SaveChanges:=False，这样我就不会因意外手动保存而丢失格式。现在，无论我尝试什么，它都会将文件保存到我的文档中。我无法想象那会导致它，并且去掉这两条线并没有解决它。我错过了什么？

这是我的代码：

ActiveWorkbook.Save
Sheets("Copy Script").Select
ActiveWorkbook.SaveAs Filename:= _
    "copy.bat", FileFormat:= _
    xlTextMSDOS, CreateBackup:=False
Sheets("Plot Script").Select
ActiveWorkbook.SaveAs Filename:= _
    "plot.bat", FileFormat:= _
    xlTextMSDOS, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False

【问题讨论】：

标签： vba excel

【解决方案1】：

试试这个

ActiveWorkbook.SaveAs Filename:= ThisWorkbook.Path & "\copy.bat", FileFormat:= xlTextMSDOS, CreateBackup:=False

【讨论】：

效果很好！我想，为什么它以另一种方式停止工作仍然是一个谜。谢谢！
如果它对你有用，你能接受答案吗？谢谢