Quiero pasar las estructuras de carpetas de Windows con todos sus niveles y archivos, a un formato de excel de manera automatica, se puede hacer esto?
Ademas de que cada archivo que se exporte a excel, este con hipervinculo.
Saludos,
Miguel
| |||
Trasladar estructura de carpetas a Excel Quiero pasar las estructuras de carpetas de Windows con todos sus niveles y archivos, a un formato de excel de manera automatica, se puede hacer esto? Ademas de que cada archivo que se exporte a excel, este con hipervinculo. Saludos, Miguel |
| ||||
Re: Trasladar estructura de carpetas a Excel y esta para carpetas y sub carpetas: Public Function ListarArchivosCarpetaYSubCarpetas(nomCarpeta As String, NumFila) Dim ObjetoFSO As Object Dim Carpeta As Object Dim SubCarpeta As Object Dim Archivos As Object Dim Archivo As Object Dim fila As Integer Dim Columna As Integer Columna = 1 fila = NumFila Set ObjetoFSO = CreateObject("Scripting.FileSystemObject") Set Carpeta = ObjetoFSO.GetFolder(nomCarpeta) Set Archivos = Carpeta.Files For Each Archivo In Archivos 'Buscamos en los archivos de la carpeta 'Buscamos en los archivos de la carpeta fila = fila + 1 ActiveSheet.Cells(fila, Columna).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=nomCarpeta & "\" & Archivo.Name, _ TextToDisplay:=Archivo.Name Next Set Archivos = Nothing ' Buscamos en las carpetas y subcarpeta haciendo 'llamadas recursivas a la funcion For Each SubCarpeta In Carpeta.SubFolders Call ListarArchivosCarpetaYSubCarpetas(nomCarpeta & "\" & SubCarpeta.Name, fila) Next Set Carpeta = Nothing Set ObjetoFSO = Nothing End Function Y la llamas asi: Call ListarArchivosCarpetaYSubCarpetas("C:\demo", 0) Un saludo |
| ||||
Re: Trasladar estructura de carpetas a Excel La primera parte de tu consulta es sencilla de realizar. Pero: ¿Qué significa "que cada archivo que se exporte a excel esté con hipervinculo" ? O sea: ¿A qué le llamas exportar a excel", ¿Donde quieres colocar tal hipervínculo? Saludos |