Hàm sẵn trong E. mà trả về tên file ? mình dùng CELL("filename") nhưng có cả thu mục
TRIM(MID(SUBSTITUTE(CELL("filename"),"]",REPT(" ",255)),FIND("[",CELL("filename"))+1,256))
Đây cũng là giãi pháp hay đấyMình nghĩ có thể dùng CELL() kết hợp với INFO() là đơn giản nhất
Nếu đơn giãn nhất chắc là dùng UDFCách nào đơn giản dễ hiểu nhất ấy
Function Tenfile() As String
Tenfile = ThisWorkbook.Name
End Function
Muốn chỉ còn mỗi cái tên (bỏ luôn ".xls") thì thay "]" = ".xls"=MID(CELL("filename"),FIND("[",CELL("filename"))+1,FIND("]",CELL("filename"))-FIND("[",CELL("filename"))-1)