Sub TTT()
Dim PH$, xObj, xFiles, F, FN$, Nm$
PH = ThisWorkbook.Path & "\"
Set xObj = CreateObject("Scripting.FileSystemObject")
Set xFiles = xObj.GetFolder(PH).Files
For Each F In xFiles
FN$ = F.Name: Nm = ""
If FN Like "*每日模具異動*.xlsx" Then
For j = 1 To Len(FN)
T = Mid(FN, j, 1)
If Asc(T) <> 63 Then Nm = Nm & T
Next j
If FN <> Nm And Dir(PH & Nm) = "" Then F.Name = Nm
End If
Next
End Sub作者: cowww 時間: 2023-7-24 08:44