[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 => 處理後傳回的字串

關於工作

今天突然對〝工作〞有個體悟：

工作，應該凌駕於專業知識基礎上的游刃有餘。
謂此，若能達成以上目標，方是真正適合自己的工作？

(如果專業知識的基礎足夠的話，應自當能面對工作中所遇到的種種挑戰，而無所畏懼。)