文件--另存为--命名即可。
演示版本2007.操作步骤如下:
1.
点击文件
2.
找到另存为,选择保存为表格
3.
命名--保存
右键菜单,点击控件工具箱,选择命令按钮,双击出来的命令按钮,加入以下字符就可以
Private
Sub
CommandButton1_Click()
Dim
a
As
String
a
=
ActiveSheet.Cells(1,
1)
ActiveWorkbook.SaveAs
Filename:="C:\Users\决世\
Documents
\"
&
a
&
"
.xls"
End
Sub