excel另存为时，以表中某一个单元格的内容命名。请问高手如何处理？

Question

如题所述

Answer 1

保存之前，先复制那个单元格的内容，然后点保存，在文件名处粘贴，OK！

Answer 2

另存为时，可以修改文件名的啊

Answer 3

答案：
在ThisWorkbook对象添加VBA代码：
'假设以A1单元格（即代码中的Cells(1,1)）的内容为文件名
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.SaveAs CStr(Cells(1, 1))
'ThisWorkbook.SaveAs "字符型文件名"
End Sub追问

谢谢解答，但是我在代码里复制了此编码后怎么不好用呢？
我需要命名采集的文件名是B3单元格，谢谢

追答

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.SaveAs CStr(Cells(3, 2))
'ThisWorkbook.SaveAs "字符型文件名"
End Sub
'测试过的没问题

追问

搞定了，谢谢！！
但是又出现一个问题，我点击“另存为”，老是提示已经存在相同的文件名，那我是不是直接选择“否”，就直接保存了？是不是意味着，我的“点击另存为”的操作只是确认表中的信息的过程？

本回答被提问者采纳