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

در این مقاله برای جداکردن نام فایل از آدرس کامل در اکسل دو روش ارائه شده است:   روش اول : استفاده از پنجره 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
777

0 نظر

user


تازه ترین ها