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

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

我不是一个编码器 – 我用loggingmacros来创build它,然后编辑它以取出特定的path。 我实际上有这个工作,直到我开始添加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 

尝试这个

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