[VBA-EXCEL]Lister les fichiers d';un répertoire donné

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了[VBA-EXCEL]Lister les fichiers d';un répertoire donné相关的知识,希望对你有一定的参考价值。

Comment lister tous les fichiers d'un répertoire dans un fichier excel ?

Excel (VBA) list all filenames in a directory

mastipro
  1. Sub ListAllFile()
  2.  
  3. Dim objFSO As Object
  4. Dim objFolder As Object
  5. Dim objFile As Object
  6. Dim ws As Worksheet
  7.  
  8. Set objFSO = CreateObject("Scripting.FileSystemObject")
  9. Set ws = Worksheets.Add
  10.  
  11. 'Get the folder object associated with the directory
  12. Set objFolder = objFSO.GetFolder("C:")
  13. ws.Cells(1, 1).Value = "The files found in " & objFolder.Name & "are:"
  14.  
  15. 'Loop through the Files collection
  16. For Each objFile In objFolder.Files
  17. ws.Cells(ws.UsedRange.Rows.Count + 1, 1).Value = objFile.Name
  18. Next
  19.  
  20. 'Clean up!
  21. Set objFolder = Nothing
  22. Set objFile = Nothing
  23. Set objFSO = Nothing
  24.  
  25. End Sub

以上是关于[VBA-EXCEL]Lister les fichiers d';un répertoire donné的主要内容,如果未能解决你的问题,请参考以下文章

VBA-Excel如何清除组合框项目

使用 VBA-Excel 跨多个数据库进行 SQL 查询

VBA-Excel ComboBox 具有条目列表,首先显示最后输入的值

php 亚马逊lister定制

php 亚马逊lister定制

oracle服务配置解决no lister