[求助] 请教，利用VBA提取Excel的修改时间来重命名文件

或者有什么方法能用B5（图）单元格重命名Excel文件（直接使用会提示有特殊符号)
如下是试着编写程序：
Sub Macro1()
Application.ScreenUpdating = False
Dim Xls
Xls = Dir("C:\Users\Administrator\Desktop\mpimpimpi" & "\*.csv")
Do While Xls <> ""
Set Xls = Workbooks.Open("C:\Users\Administrator\Desktop\mpimpimpi" & "\" & Xls)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Administrator\Desktop\mpimpimpi\ling\mpi" & Format(Sheets(1).Range("C9")) & Format(Date, "yyyymmdd") & Format(Time, "hhmm") & ".csv"
ActiveWorkbook.Close
Xls = Dir
Loop
Set Xls = Nothing
End Sub
这段程序只能是把当前时间作为文件名的一部分，