reynold78

EXCEL．指定〔路徑〕或〔資料夾〕列出檔案名稱
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＜操作界面＞
 檢視圖片 
　
＜定義名稱＞
MyPath：
=LEFT(CELL("filename",$A$1),FIND("[",CELL("filename",$A$1))-1)
　
MyName：
=MID(LEFT(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))-1),FIND("[",CELL("filename",$A$1))+1,99)
　
iPath：
=SUBSTITUTE(IF($B$2="MyPath",MyPath,$B$2)&"\"&IF($C$2="","",$C$2&"\"),"\\","\")
　
iFile：
=FILES(iPath&$D$2)&T(NOW())
　
＜公式＞
檔案名稱：
=IF(A6="","",INDEX(iFile,A6+(A6>=IF(ISNA(MATCH(MyName,iFile,)),9^9,MATCH(MyName,iFile,)))))
　
檔案類型：
=UPPER(TRIM(RIGHT(SUBSTITUTE(B6,".",REPT(" ",10)),10)))
　
檔案大小：
=IF(A6="","",getfilelen(iPath&B6))
　
＜自定函數＞取得檔案大小
Function GetFileLen(FilePath$) As Long
Dim uObj As Object
Set uObj = CreateObject("Scripting.FileSystemObject")
GetFileLen = uObj.GetFile(FilePath).Size
End Function
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＜範例檔＞下載：
檔案名稱：20140916v01(資料夾檔案明細)　　公式及自訂函數版
下載位址：
　
檔案名稱：20140917v01(資料夾檔案明細)　　ＶＢＡ版
下載位址：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＜同步發表網頁＞

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－