EXCEL文件，以单元格内容命名文件名，宏怎么做？

因为要大量的更改EXCEL文件名，大致格式都是一样，我想以文件中M15单元格中的内容命名文件名，在网上搜索到有相关的“宏”，有没有高手指点如何做？

Sub gwjm()
i = 2
j = 2
jmc = Range("a" & i)
xmc = Range("m15" & j)
Do While jmc <> "" Or xmc <> ""
jmc = Range("a" & i)
xmc = Range("b" & j)
Dim oldname, newnme
oldname = "E:\****\" & jmc & ".txt": NewName = "E:\*****\" & xmc & ".txt"
Name oldname As NewName
i = i + 1
j = j + 1
Loop
MsgBox "改名结束"
End Sub
注释：
jmc原文件名称， 我是把所有的旧名称都录进了表格中a列Range("a" & i)
xmc 改名后的文件位名称，名称就是你的那个表格中的Range("m15" & j)
我已经测试过了，完全可以 如果还不能解决，加我qq：406639986
望采纳！

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/f428mv7q7qs2v8p4pv7.html