怎么设置一个Excel表格按钮，点击后按照表格内容自动命名并另存到指定文件夹。然后改表格恢复原状态？

Question

1-怎么设置一个按钮，可以作为保存快捷按钮。
2-点击按钮后，Excel以（A1-A4-B3）的形式命名并保存到D盘指定文件夹。
3-保存后，该EXCEL表格恢复到原表格，可以继续重复下一次填写。

......好心人帮忙指点，运行成功后再追加50财富，谢谢谢谢！

Answer 1

以下代码存为宏，另从为启用宏的工作表（xlsm格式），处理你的表格的时候保证此工作表打开。
在“开发工具”选项卡，“插入”-“按钮”，指定Save_As（）这个宏。
开发工具选项卡默认不显示，怎么显示自行百度。

Sub Save_As()
On Error GoTo error_shoot

Dim S_path, Old_Path As String
Old_Path = ActiveWorkbook.FullName
With ActiveWorkbook.ActiveSheet
If .Cells(1, 1) & .Cells(4, 1) & .Cells(3, 2) = "" Then
MsgBox "文件名为空"
Exit Sub
End If
If IsError(.Cells(1, 1) & .Cells(4, 1) & .Cells(3, 2)) = True Then
MsgBox "文件名存在错误值"
Exit Sub
End If
'"D:\新建文件夹"是目标另存路径，请自行修改，请提前创建文件夹，否则会报错
S_path = "D:\新建文件夹" & "\" & .Cells(1, 1) & "-" & .Cells(4, 1) & "-" & .Cells(3, 2)
End With

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=S_path, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=True
ActiveWorkbook.SaveAs Filename:=Old_Path, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True
MsgBox S_path & Chr(10) & "文件已创建"
Exit Sub

error_shoot:
Application.DisplayAlerts = True
MsgBox "出错了，请检查目标文件夹权限，并确保目标文件夹中同名文件未被打开。"

End Sub

Answer 2

打开我的电脑--点菜单栏里的工具--点文件夹选项--点查看，再把“显示所有文件和文件夹”前面打上打勾，让计算机不再显示隐藏文件就行了。 打开excel,点“工具”菜单里的“选项”，再找到“保存”这一项，里面就有设置自动保存的时间，你可以把他调长一些，或是关闭自动保存功能就行了。