右键菜单，点击控件工具箱，选择命令按钮，双击出来的命令按钮，加入以下字符就可以
Private Sub CommandButton1_Click()
Dim a As String
a = ActiveSheet.Cells(1, 1)
ActiveWorkbook.SaveAs Filename:="C:\Users\决世\Documents\" & a & " .xls"
End Sub
在表头的一个单元格填写A1的内容，文件---另存为，填入名称和路径，确定
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024