Question

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

有超过50人将拥有此电子表格，它更像是一种形式，我们正试图找到一种方法来保持文件名的统一。我知道有ThisWorkbook.BeforeSave，但我真的没有运气。我只需要它来创建一个名为$A$1 R $B$1 T $B$3.xlsx

的文件

关于如何做到这一点的任何想法？

Answer 1

不确定

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函数选择文件夹，但用户可以更改建议的文件名，所以安全性较低）。

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

1 个答案: