ejemplo de código de carpeta y subcarpetas de lista de excel vba

Nuestro grupo de redactores ha pasado horas buscando soluciones a tu búsqueda, te regalamos la respuesta de modo que nuestro objetivo es serte de gran ayuda.

Ejemplo: lista de subcarpetas vba

' List of subfolders' Needs to add "Microsoft Scripting Runtime" reference to your fileSub SubFoldersInfo(ByVal pFolder AsString,ByRef pColFolders As Collection,_OptionalByVal pMe AsBoolean)Dim sFolder AsStringDim oFSO AsNew FileSystemObject
    Dim oFolder, oSubFolder As Folder
    
    sFolder = IIf(Right(pFolder,1)<>"", pFolder &"", pFolder)Set oFolder = oFSO.GetFolder(sFolder)If pMe Then
        pColFolders.Add oFolder
    EndIfForEach oSubFolder In oFolder.SubFolders
        pColFolders.Add oSubFolder
        SubFoldersInfo oSubFolder.Path, pColFolders,FalseNextEndSub'------------------------------------------------------------------------------Sub TestMe()Dim colFolders AsNew Collection, sFolderPath AsVariant
    SubFoldersInfo ThisWorkbook.Path, colFolders,TrueForEach sFolderPath In colFolders
        Debug.Print sFolderPath.ShortName &" : "; sFolderPath.Path
    Next sFolderPath
EndSub

Puedes añadir valor a nuestra información dando tu experiencia en las notas.

---

---

Utiliza Nuestro Buscador