Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/28.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/google-apps-script/6.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 是否在保存电子表格时根据单元格数据自动命名文件?_Excel_Vba - Fatal编程技术网

Excel 是否在保存电子表格时根据单元格数据自动命名文件?

Excel 是否在保存电子表格时根据单元格数据自动命名文件?,excel,vba,Excel,Vba,我有一个.xltm模板电子表格,我想知道我是否可以得到一个宏来根据单元格数据填充“另存为”文件名,这可能吗 有50多人将拥有这个电子表格,它更像是一种形式,我们正试图找出一种保持文件名统一的方法。我知道在保存之前有ThisWorkbook.BeforeSave,但我在那里运气不好。我只需要它来制作一个名为$a$1r$B$1t$B$3.xlsx的文件 有什么办法吗?当然 Sub SaveMyWorkbook() Dim strPath As String Dim strFolde

我有一个.xltm模板电子表格,我想知道我是否可以得到一个宏来根据单元格数据填充“另存为”文件名,这可能吗

有50多人将拥有这个电子表格,它更像是一种形式,我们正试图找出一种保持文件名统一的方法。我知道在保存之前有ThisWorkbook.BeforeSave,但我在那里运气不好。我只需要它来制作一个名为
$a$1r$B$1t$B$3.xlsx的文件

有什么办法吗?

当然

Sub SaveMyWorkbook()

    Dim strPath As String
    Dim strFolderPath as String

    strFolderPath = "C:\"

    strPath = strFolderPath & _
        Sheet1.Range("A1").Value & "R" & _
        Sheet1.Range("B1").Value & "T" & _
        Sheet1.Range("B3").Value & ".xlsx"

    ActiveWorkbook.SaveAs Filename:=strPath

End Sub
编辑:在你在下面的评论中澄清了你的问题之后,我现在可以有把握地说答案是:不,你所问的是不可能的


可以在工作表上放置一个大而胖的命令按钮,上面写着“按我保存”,然后让该按钮调用上面的子按钮。您可以设置一个固定文件夹,如上面的示例所示,或者让用户使用
文件对话框
对象选择一个文件夹(或者使用
GetSaveAsFilename
函数,但是用户可以更改建议的文件名,因此不太安全).

我知道如何在VBA中保存文件,我想要的是在最终用户单击“保存”或“另存为”时自动命名该文件,而不仅仅是保存一份副本并仍打开该文件。编辑答案以解决您的澄清。