Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2382|回复: 0

求代码解决,打开文件编辑后,根据A1的值保存为文件名并关闭文件.

[复制链接]
发表于 2017-3-23 14:59 | 显示全部楼层 |阅读模式
本帖最后由 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"


excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 14:55 , Processed in 0.459103 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表