Private Sub CommandButton1_Click()
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\heag1002\桌面\" & Range("A1") & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub
温馨提示:答案为网友推荐,仅供参考