请教代码怎么改

ttggjxl

目的：合并文件夹下的表格到一个工作簿中，并以【“原工作簿名”舍去末尾年月（202005）】命名个 sheet。请教划线部分代码怎么改。

shuidisyy

ActiveSheet.Name = Left(Split(f, ".")(0), Len(Split(f, ".")(0)) - 6)

ttggjxl

shuidisyy 发表于 2020-6-1 12:29
ActiveSheet.Name = Left(Split(f, ".")(0), Len(Split(f, ".")(0)) - 6)

谢谢