[VBA] 從完整路徑擷取 檔名+副檔名

Function GetName(rFile) As String
   
    Dim nameArr As Variant
    nameArr = Split(rFile, "\")
    GetName = nameArr(UBound(nameArr))

End Function


使用說明 --------------------

輸入端：

rFile => 完整的檔案路徑 ( 字串型別 )

輸出端：

GetName => 處理後傳回的字串 ( 只取 檔名 + 副檔名 )


參考資料來源：

chijanzen 雜貨舖

[VBA] 擷取字串中〈特定字符以前的字串〉

Function Find(rText, rSign) As String

    For i = 1 To Len(rText) Step 1
        If Mid(rText, i, 1) <> rSign Then
            Find = Find & Mid(rText, i, 1)
        Else
            Exit For
        End If
    Next
 
End Function


使用說明 -----------

輸入端：

rText => 原字串
rSign => 特定字符

輸出端：

Find => 處理後傳回的字串