در این مقاله برای جداکردن نام فایل از آدرس کامل در اکسل دو روش ارائه شده است:
روش اول : استفاده از پنجره 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, ۱ + InStrRev(sPath, "\")), Mid$(sPath, 1 + InStrRev(sPath, "."))) End Function |
