2017-08-07 188 views
0

我有格式爲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)來選擇多個文件,所以我對如何執行它感到不知所措?

回答

0

我想這是你在找什麼,

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

請讓我知道如果我錯了。我會盡力解決你的問題