hacer listado de los libros de una carpeta

hola, esteban !

... tengo una carpeta y de esa carpeta necesito hacer un listado de todos los libros y de cada libro el listado de todas las hojas

copia/pega las siguientes lineas en un modulo de codigo normal/general/estandar/...
el codigo borrara el contenido de la hoja activa, y volcara el resultado de libros encontrados con las hojas que contengan
asegurate de especificar la carpeta adecuada y no olvides poner al final el signo "\"

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

-> IMPORTANTE: establece primero en tu proyecto de macros VBA una referencia a la libreria...
-> Microsoft ADO Ext. x.x for DDL and Security

Dim Libro As ADOX.Catalog, Hoja As ADOX.Table, _
Ruta As String, Archivo As String, Tmp As String, _
Fila As Integer, Col As Byte
Sub Lista_de_archivos_y_hojas()
Ruta = "c:uta y sub\carpetas donde pusiste\tus libros de excel\"
Archivo = Dir(Ruta & "*.xls")
Fila = 0
Application.ScreenUpdating = False
Cells.ClearContents
Do While Archivo <> ""
Fila = Fila + 1: Col = 0
Range("a1").Offset(Fila) = Archivo
Set Libro = New ADOX.Catalog
Libro.ActiveConnection = _
"Provider=MSDASQL.1;Data Source=Excel Files;" & _
"Initial Catalog=" & Ruta & Archivo
For Each Hoja In Libro.Tables
Tmp = Application.Substitute(Hoja.Name, "'", "")
If Right(Tmp, 1) = "$" Then
Col = Col + 1
Range("a1").Offset(Fila, Col) = Left(Tmp, Len(Tmp) - 1)
End If
Next
Set Libro = Nothing
Archivo = Dir()
Loop
ActiveSheet.UsedRange.Columns.AutoFit
Range("a1") = Ruta
End Sub

Dim Libro As ADOX.Catalog, Hoja As ADOX.Table, _
Ruta As String, Archivo As String, Tmp As String, _
Fila As Integer, Col As Byte

Sub Lista_de_archivos_y_hojas()
Ru

hola chicos,

disculpad la intormision, pero queria hacerle una consulta a Hector de
algo que me ha llamado la atencion: ¿el declarar las variables
'fuera'(¿a nivel de modulo?) del procedimiento es por alguna causa en
especial en este caso?


supongo que simplemente sera que sobre la marcha las has puesto y ahi
se han quedado, pero ya sabes, mi curiosidad puede mas que mi
prudencia, y, por si acaso hay algun motivo que tenga que ver con el
uso de ADO (p ej.), pues nada, a molestar

gracias por anticipado, y un saludo y hasta pronto
Ivan

hola, Ivan !

Dim Libro As ADOX.Catalog, Hoja As ADOX.Table, _
Ruta As String, Archivo As String, Tmp As String, _
Fila As Integer, Col As Byte

Sub Lista_de_archivos_y_hojas()
Ru

... el declarar las variables 'fuera' (a nivel de modulo?) del procedimiento es por alguna causa en especial en este caso?
supongo que simplemente sera que sobre la marcha las has puesto y ahi se han quedado, pero ya sabes, mi curiosidad [...]

[efectivamente]... en las pruebas utilizaba dos procedimientos separados pero decidi 'presentarlos' como uno solo
por eso es que las variables [se me] quedaron 'a nivel de modulo' :))

saludos,
hector.

On 2 jun, 00:45, "Héctor Miguel"
wrote:

hola, Ivan !

>> Dim Libro As ADOX.Catalog, Hoja As ADOX.Table, _
>> Ruta As String, Archivo As String, Tmp As String, _
>> Fila As Integer, Col As Byte

>> Sub Lista_de_archivos_y_hojas()
>> Ru

> ... el declarar las variables 'fuera' (a nivel de modulo?) del procedimiento es por alguna causa en especial en este caso?
> supongo que simplemente sera que sobre la marcha las has puesto y ahi se han quedado, pero ya sabes, mi curiosidad [...]

[efectivamente]... en las pruebas utilizaba dos procedimientos separados pero decidi 'presentarlos' como uno solo
por eso es que las variables [se me] quedaron 'a nivel de modulo' :))

saludos,
hector.

hola Hector,

suponia que seria algo asi, pero teniendo el tema +o- fresco del hilo
de VB y dada mi tendencia obsesiva, he preferido confirmarlo yeliminar
'otro pajaro' de mi cabeza

muchas gracias y disculpas de nuevo por la intromision

un saludo
Ivan