Excel里面，用宏程序编写一个可以保存表格并退出当前表格。设置一个按钮

可以的。

Option Explicit

Private Sub CommandButton1_Click()

ActiveWorkbook.Close True

End Sub

[file,path]=uiputfile({'*.xls','Excel'},'open')

if file

xlswrite([path file],str2num(get(handles.edit3,'string')),'sheet1')

xlswrite([path file],str2num(get(handles.edit4,'string')),'sheet2')

xlswrite([path file],str2num(get(handles.edit5,'string')),'sheet3')

xlswrite([path file],str2num(get(handles.edit6,'string')),'sheet4')

xlswrite([path file],str2num(get(handles.edit5,'string')),'sheet5')

msgbox('the result is saved in sheet1\sheet2\sheet3\sheet4\sheet5','save')

else

msgbox('you havenot saved the result','not save')

end

---