VBA：指定なフォルダしたのすべてのファイル名

 

1.  '①、指定なフォルダ下にすべてのファイル名を取得 
2.  
3. strPathName = ThisWorkbook.Path & "\*.*" 
4.  
5. strFileName = Dir(strPathname,vbNormal) 
6.  
7. ※vbNormal引数変更可能 

 

转载于:https://blog.51cto.com/zhangmin/736374