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

جدا کردن نام فایل از آدرس کامل در اکسل
در این مقاله برای جداکردن نام فایل از آدرس کامل در اکسل دو روش ارائه شده است:   روش اول : استفاده از پنجره 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
               
 
نویسنده : وحید فرزام
تاریخ انتشار : 1393-01-19 04:30:00
1448

0 نظر

user


تازه ترین ها