如何解决保存电子表格时会根据单元格数据自动命名文件吗?
| 我有一个.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
函数)选择文件夹,但是用户将能够更改建议的文件名,因此不太安全。版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。