EXCEL用VBA建一个另存为按钮-Excel教程

我在工作中经常要处理EXCEL表格，有一批表格只要更改1、2处内容，然后要不停的另存为以更改后的内容为文件名命名的新表格，比方说：更改内容“DD123”“WW145”，然后要另存为“DD123-WW145.xls”。要不断的重复、不断的重复、不断的重复，我的生命就在这样重复之中慢慢被耗光。

还好我是个懒人，一个真正的懒人是不会让生命就此无意义的流失的，于是改造就此开始，跟我来吧。

因为家里没装微软的office，就用WPS代替吧。

前期准备工作（包括相关工具或所使用的原料等）

微软的office或者WPS

详细的操作方法或具体步骤

1首先我们为excel添加一个按钮。

然后把按钮名称改为“另存为”。

然后双击这个按钮，进行这个按钮的代码编写。开始和结尾已经自动写好了。

在代码的开始和结尾之间插入我们要用的代码，我把代码也写一下吧，方便复制。

-------------------以下是代码-----------------------------------

'已B3单元格-C3单元格内容为文件名另存一份到当前目录下

ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & Range("B3") & "-" & Range("C3").Value & ".xls"

'保存活动的工作簿

ActiveWorkbook.Save

-------------------以上是代码-----------------------------------

已英文单引号开头的内容是注释，不参与代码运行。

WPS和微软的office还是有一定的区别的，工作上我完全使用office，推荐用新一点的版本，不要再用2003了，虽然经典但毕竟时代在进步。

编辑好按钮的代码WPS需要按“退出设计”才能运行。

然后就可以了，改一个内容，按一下另存为，我使用过程中，效率提升在50%以上，配合一些别的代码，效率轻轻松松翻倍。

注意事项

office的版本不同，代码并不一定能通用，我是已office2013为基础设计的代码。经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本教程系本人依照真实经历原创，未经许可，谢绝转载。