Question

ActiveWorkbook.SaveAs Filename 如何使用ActiveWorkbook.SaveAs Filename:=range("A1").value & ".xls",这是在MS EXCEL电子表格中使用的VBA代码,作用是将当前活动工作薄以A1单元格中的值做为文件名,另外保存在活动工作薄所在的位置。怎么把代码改成另外保存在桌面

Answer 1

问：ActiveWorkbook.SaveAs Filename 如何使用ActiveWorkbook.SaveAs Filename:=range("A1").value & ".xls",这是在MS EXCEL电子表格中使用的VBA代码,作用是将当前活动工作薄以A1单元格中的值做为文件名,另外保存在活动工作薄所在的位置。怎么把代码改成另外保存在桌面

答：1、打开原来的工作薄，按ALT+F11，打开VBA代码窗口。2、选菜单-插入-模块，得到1个“模块1”模块3、在模块1中输入sub MySaveAsFile()ActiveWorkbook.SaveAs Filename:=range("A1").value & ".xls"end sub4.保存文件。5、关闭VBA窗口。使用方法：打开菜单-工具-宏-宏...-，打开宏对话框，选择MySaveAsFile，单击执行按钮。