جدا کردن نام فایل از آدرس کامل در اکسل

در این مقاله برای جداکردن نام فایل از آدرس کامل در اکسل دو روش ارائه شده است:

روش اول : استفاده از پنجره Finde & Replace

در تصویر زیر نحوه استفاده از این پنجره به شما نشان داده شده است :

روش دوم: نوشتن تابع در محیط VBA

در ادامه کد دو تابع بع شما ارائه می شود که به دو روش متفاوت ولی ساده و جالب عمل جداسازی نام فایل از آدرس کامل را انجام می دهند :

Function ExtractFileName(filepath) As String
Dim x As Variant
x = Split(filepath, "\")
ExtractFileName = x(UBound(x))
End Function

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

Public Function ParseFile(sPath As String) As Variant

ParseFile = Array(Mid$(sPath, ۱ + InStrRev(sPath, "\")), Mid$(sPath, 1 + InStrRev(sPath, ".")))

End Function

فروردین ۱۹, ۱۳۹۳

9 قسمت

180 دقیقه

35 هزار تومان

24 قسمت

700 دقیقه

140 هزار تومان

15 قسمت

400 دقیقه

85 هزار تومان

آخرین مقاله های آموزشی

آخرین محصولات