恳请大神帮忙看下这个有实现的可能吗

qiongmei6

我附件有个文件，我想求得一个代码，就是当我执行代码的时候，他根据e9的内容将这个工作簿改成以e9名称命名的文件，我在网上找到一个代码，但是这个代码
Sub SaveWork()
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\123.xls"
End Sub
保存为另一个文件，但是我希望的是这个这个代码直接按e9的内容修改原文件名，并且不需要提醒是否修改文件名，谢谢各位大神的帮忙。

wanghan519

打开的文件没法改名啊。。。

shiruiqiang

打开的文件，保存为另一个文件

qiongmei6

wanghan519 发表于 2023-6-14 11:35
打开的文件没法改名啊。。。

我也是觉得应该不行，但是网上的师傅很牛，因此想发上来试下，看有没有师傅能做到这点

ykcbf1100

当前工作簿另存方法有点少见。

gwjkkkkk

将当前工作簿名存入变量，再将当前工作簿另存为新工作簿，接着将工作簿（变更名）删除

gwjkkkkk

请参考。。。

cidanji

试试sssss

qiongmei6

gwjkkkkk 发表于 2023-6-14 20:49
请参考。。。

谢谢gwjkkkkk师傅，但是这个代码不能连续使用，如果说已经执行过一次后再次执行就会出现以下的图片，不管是选哪个，都出现错误的提示，能否修改下，再次谢谢您的帮忙

qiongmei6

cidanji 发表于 2023-6-14 22:30
试试sssss

谢谢cidanji师傅的帮忙，不知道咋回事，我按这个代码敲进去，出现错误提示，能否将代码放入文件内，再次谢谢您的帮忙。