當前位置:成語大全網 - 英語詞典 - excel vba 中如何取得目錄下文件的數量

excel vba 中如何取得目錄下文件的數量

Function?FileCount(cPath?As?String)?as?Integer

cFile=Dir(cPath?&?"*.*")

Do?While?cFile<>""

FileCount=FileCount+1

cFile=Dir

Loop

End?Function

這是壹段自定義函數,在Excel VBA編輯模式下,主菜單“插入”——“模塊”,將代碼粘貼到右側編輯區。如果在工作表狀態下使用,在單元格輸入:=FileCount("c:\XXX\")就可以得出c:\XXX文件夾下的所有文件個數(不含子文件夾);如果在代碼中使用,則可以:nFileCount=FileCount("c:\XXX\")得到文件個數。註意:cPath參數必須以“\”符號結尾。