در این مقاله برای جداکردن نام فایل از آدرس کامل در اکسل دو روش ارائه شده است:
روش اول : استفاده از پنجره Finde & Replace
در تصویر زیر نحوه استفاده از این پنجره به شما نشان داده شده است :
روش دوم: نوشتن تابع در محیط VBA
در ادامه کد دو تابع بع شما ارائه می شود که به دو روش متفاوت ولی ساده و جالب عمل جداسازی نام فایل از آدرس کامل را انجام می دهند :
Function ExtractFileName(filepath) As String
Dim x As Variant
x = Split(filepath, "\")
ExtractFileName = x(UBound(x))
End Function
Public Function ParseFile(sPath As String) As Variant
ParseFile = Array(Mid$(sPath, 1 + InStrRev(sPath, "\")), Mid$(sPath, 1 + InStrRev(sPath, ".")))
End Function