VBA-快速合并多个Excel工作薄为一个工作薄
在知乎如何快速的合并多个 Excel 工作簿成为一个工作簿?答案的基础上添加了给sheet改名的功能 Function NameOfWorkbook(ByVal strFullPath As String) As String Dim FileNameFromPath FileNameFromPath = Right(strFullPath, Len(strFullPath) - InStrRev(strFullPath, "\")) NameOfWorkbook = Left(FileNameFromPath, (InStrRev(FileNameFromPath, ".", -1, vbTextCompare) - 1)) End…