保存电子表格时,根据单元格数据自动命名文件?

我有一个.xltm模板电子表格,我想知道如果我可以得到一个macros来填充基于单元格数据的“另存为”文件名,这是可能的吗?

有超过50人将拥有这个电子表格,这更多的是一种forms,我们正试图找出一种方法来保持文件名的统一。 我知道有ThisWorkbook.BeforeSave,但我真的没有任何运气。 我只是需要它做一个文件命名为$A$1 R $B$1 T $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 

编辑 :当你在下面的评论中澄清你的问题后,我现在可以放心地说,答案是:不,你问的是不可能的。

什么可能的是在你的工作表上放一个大的,胖的命令button,说:“按我保存”,并有该button调用上面的小组。 你可以像上面例子那样设置一个固定的文件夹,或者让用户使用FileDialog对象(或GetSaveAsFilename函数,然后用户将能够改变build议的文件名,所以不太安全)select一个文件夹。