读取当前文件名
Version = Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1) '读取的文件名除去后缀
FileKey = Version & ".xlsm" '读取的文件名加上后缀
参考地址:https://docs.microsoft.com/zh-cn/office/client-developer/excel/excel-home?redirectedfrom=MSDN
该代码仅供学习,如商业转载请联系本人,非商业转载请注明出处
#加油#