excel文件不保存到macros指定的文件path

我有一个简单的macros，我想每天使用，它工作得很好，而不是保存在我想要的地方。

而不是保存在所需的共享networking文件夹中，而是保存在“文档”文件夹中。 请帮忙。

Dim FilePath As String Dim NewName As String FilePath = "G:\Pricing\Gas Pricing Models\Wholesale\Basis Strips": NewName = "NYMEX" & Format(Date, "MM-DD-YYYY") & ".xlsm" ActiveWorkbook.SaveAs Filename:=NewName, FileFormat _ :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False ActiveWindow.SmallScroll Down:=-30 End Sub 

Answer 1

SaveAs方法的Filename参数还应该包含文件的文件path。 如果不包含该参数中的文件path，该文件将保存到当前文件夹中。 请参阅此页面了解更多信息。

你的代码应该看起来像这样，然后：

未经testing

 FilePath = "G:\Pricing\Gas Pricing Models\Wholesale\Basis Strips\" NewName = "NYMEX" & Format(Date, "MM-DD-YYYY") & ".xlsm" ActiveWorkbook.SaveAs Filename:=FilePath & NewName, FileFormat _ :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 

请注意在FilePathstring末尾添加的反斜杠。