Question

我有一个我想每天使用的简单宏，它可以正常工作，但它不能保存在我希望的地方。

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

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

Filename方法的SaveAs参数还应包含文件的文件路径。如果未在该参数中包含文件路径，则该文件将保存到当前文件夹中。 See this page了解更多信息。

您的代码应该如下所示，然后：

<强>未测试

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

请注意FilePath字符串末尾添加的反斜杠。

excel文件未保存到宏指定的文件路径

1 个答案: