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

| 我有一个.xltm模板电子表格,我想知道是否可以获取一个宏以根据单元格数据填充“另存为”文件名,这可能吗? 将有50多个人拥有此电子表格,它更像是一种表格,我们正在设法找到一种使文件名保持一致的方法。我知道这里有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
编辑:在下面的评论中澄清了您的问题之后,我现在可以放心地说答案是:不,您要问的是不可能的。 可能的是,在工作表上放一个大而胖的命令按钮,上面写着“请按我保存”,然后让该按钮调用上面的Sub。您可以设置固定文件夹,如上例所示,或者让用户使用
FileDialog
对象(或
GetSaveAsFilename
函数)选择文件夹,但是用户将能够更改建议的文件名,因此不太安全。

要回复问题请先登录注册