1、启动excel，执行“工具→宏→visual basic 编辑器”命令，进入vba编辑状态(如图1)。

JvD\*:pkYD%n(/5B [ 本 资 料 来 源 于 贵 州 学 习 网 电脑课堂办公软件 http://Www.gzU521.com ] JvD\*:pkYD%n(/5B

　　2、在左侧的“工程资源管理器”窗口中，选中“vbaproject(personal.xls)”(个人宏工作簿)选项。

　　3、执行“插入→模块”命令，插入一个模块(模块1)。

　　4、将下述代码输入到右侧的代码编辑窗口中：

　　sub baocun()
　　lj = inputbox("请输入文档保存路径")
　　activeworkbook.saveas filename:=lj & activecell.value & ".xls"
　　end sub

　　退出vba编辑状态。

　　5、以后要保存某个工作簿文档时，先选中作为名称的字符所在的单元格(参见图2)，然后执行“工具→宏→宏”命令，打开“宏”对话框(如图3)。

　　6、选中刚才编辑的宏(personal.xls!baocun)，单击“执行”按钮，系统弹出如图4所示的对话框。

　　7、输入保存文档的路径(如“e:\Office技巧\”)，单击“确定”按钮。

　　文档保存成功(参见图5)。

　　注意：如果不需要保存路径，文档将被保存到“我的文档”文件夹中。