Question

怎样能把Excel表格另存为指定文件名

电子表格保存的文件名自动取电子表格中单元单元格（如：a1）的值，节省复制粘贴的时间，直接点击保存，就自动取A1的值为文件名了

Answer 1

右键菜单，点击控件工具箱，选择命令按钮，双击出来的命令按钮，加入以下字符就可以
Private Sub CommandButton1_Click()
Dim a As String
a = ActiveSheet.Cells(1, 1)
ActiveWorkbook.SaveAs Filename:="C:\Users\决世\Documents\" & a & " .xls"
End Sub

追问

能否说得更清楚点
还有如果a1的内容发生变化，再次保存时以变化的内容为名保存，以后再变化又以变化的内容保存，以此下去

追答

Private Sub CommandButton1_Click()
Dim a, path As String
a = ActiveSheet.Cells(1, 1)
path = ActiveWorkbook.path
ActiveWorkbook.SaveAs Filename:=path & "\" & a & " .xls"
End Sub
示例如下：

追问

还是没明白

Answer 2

在表头的一个单元格填写A1的内容，文件---另存为，填入名称和路径，确定