返回列表 上一主題 發帖

[發問] 如何找到有特殊符號的檔名

[發問] 如何找到有特殊符號的檔名

論壇的各位大大們
請問VBA有辦法抓到有特殊符號的檔名嗎??
例如:🌟🌟🌟🌟🌟🌟🌟🌟2023.07.21每日模具異動🌟🌟🌟🌟🌟🌟🌟🌟
我有嘗試將檔名改成"2023.07.21每日模具異動",這樣的檔名是可以抓到的

特殊符號檔名.PNG

檔名+特殊符號.zip (660.4 KB)
正常檔名.zip (660.34 KB)

先把檔案放在同資料夾中//去掉特殊文字..更改檔名//
或直接用加"日期" 去 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

TOP

回復 2# 准提部林


非常感謝准提部林大大的解惑

TOP

回復 2# 准提部林

非常感謝准提部林大大的解惑
還是無法抓取


已經請長官去找AL單位的同仁協調檔名的部分

TOP

回復 4# cowww

檔名+特殊符號.zip (660.4 KB)

TOP

回復 5# singo1232001

非常感謝singo1232001大大的解惑

擷取.PNG

TOP

回復 6# cowww


    當電腦有安裝 OneDrive 時,OneDrive 會改變電腦原路徑,
EXCEL 抓取路徑時都只會抓到更改後的路徑,而不是電腦裡實際的路徑位置。
這樣無法讓EXCEL使用相對路徑。所以會很麻煩。

    我是直接卸載 OneDrive 需要使用 OneDrive 時直接網頁開啟使用就好了。

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝,花了許多心血,想盡各式方法要遮擋時間,結果是:浪費了更多時間,且一無所成!
返回列表 上一主題