如何將文件夾和子文件夾中的所有文件列出到工作表中？

Sub MainList() Updateby Extendoffice Set folder = Application.FileDialog(msoFileDialogFolderPicker) If folder.Show <> -1 Then Exit Sub xDir = folder.SelectedItems(1) Call ListFilesInFolder(xDir, True) End Sub Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean) Dim xFileSystemObject As Object Dim xFolder As Object Dim xSubFolder As Object Dim xFile As Object Dim rowIndex As Long Set xFileSystemObject = CreateObject("Scripting.FileSystemObject") Set xFolder = xFileSystemObject.GetFolder(xFolderName) rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1 For Each xFile In xFolder.Files Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name rowIndex = rowIndex + 1 Next xFile If xIsSubfolders Then For Each xSubFolder In xFolder.SubFolders ListFilesInFolder xSubFolder.Path, True Next xSubFolder End If Set xFile = Nothing Set xFolder = Nothing Set xFileSystemObject = Nothing End Sub Function GetFileOwner(ByVal xPath As String, ByVal xName As String) Dim xFolder As Object Dim xFolderItem As Object Dim xShell As Object xName = StrConv(xName, vbUnicode) xPath = StrConv(xPath, vbUnicode) Set xShell = CreateObject("Shell.Application") Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode)) If Not xFolder Is Nothing Then Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode)) End If If Not xFolderItem Is Nothing Then GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8) Else GetFileOwner = "" End If Set xShell = Nothing Set xFolder = Nothing Set xFolderItem = Nothing End Function

前往下載30天免費(fèi)試用購買貝寶/ MyCommerce

最佳辦公生產(chǎn)力工具

在Word，Excel，PowerPoint中啟用選項(xiàng)卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。 在同一窗口的新選項(xiàng)卡中而不是在新窗口中打開并創(chuàng)建多個文檔。 每天將您的工作效率提高50％，并減少數(shù)百次鼠標(biāo)單擊！