如何根据现有文件名重命名文件名

时间:2017-08-07 09:01:37

标签: excel vba

我的文件名格式为File-2-Mar-17,File-10-Apr-17等。

有没有办法当我点击保存命令按钮时,我在的工作簿被保存为File-Mar或File-Apr?在这里,我只会选择与同月相对应的文件。

其次当我有像File-Jan,File-Feb,File-Mar和我这样的文件进行协调时(另一个宏在这里运行),当我点击保存按钮时,我可以将文件保存为File-Jan_Feb_Mar或File- Oct_Nov_Dec?

我知道标准的SaveAs程序。但在这种情况下,由于我使用Application.GetOpenFilename(filefilter:="Excel Files, *.xl*", MultiSelect:=True)来选择多个文件,我对如何执行它感到茫然?

1 个答案:

答案 0 :(得分:0)

我想这就是你要找的东西,

ActiveWorkbook.SaveAs filename:="D:\" & Mid(ActiveWorkbook.Name, 3, 3)

如果我错了,请告诉我。我会尝试解决您的问题