- 帖子
- 2843
- 主題
- 10
- 精華
- 0
- 積分
- 2899
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-5-31
|
2#
發表於 2023-7-22 20:42
| 只看該作者
先把檔案放在同資料夾中//去掉特殊文字..更改檔名//
或直接用加"日期" 去 like, 符合開啟(自己改看看)
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 |
|