|
本帖最后由 happymojo 于 2017-3-23 15:48 编辑
想实现打开一XLSM文件进行编辑之后, 运行代码让该文件自动保存修改并关闭,同时再重命名为单元格A1的值为文件名.
目前试过用以下这条代码可以实现自动关闭并保存修改, 但却无法做到把A1单元格的值如"SE12345"变成文件名. 运行代码之后,文件名还是老的没有变化.
ActiveWorkbook.Close Savechanges:=True, Filename:= ph & [A1] & ".xlsm"
谢谢!
补充:
刚发现实际上这条代码是成功的, 只所以我没发现文件, 是因为文件保存到了我的文档里, 而不是我打开文件的文件夹内, 并且最重要的是原来的文件还在,也就是说此代码实际上是起到"另存为"的功能, 并不是我最初以为的原文件重命名.
另请问如何指定保存路径为该文件打开的目录中?
补充2:
经搜索添加了一条代码解决了本问题.
ph=ActiveWorkbook.Path & "\"
ActiveWorkbook.Close Savechanges:=True, Filename:= ph & [A1] & ".xlsm"
|
|