Libros Abierto
Quiero listar los nombres de los los libros y de sus respectivas hojas que están abiertas en el momento.
Muchas gracias.
Henry peña
Muchas gracias.
Henry peña
1 Respuesta
Respuesta de César Mera
1
Este código copia lo que deseas en la última hoja del libro activo.
Sub LIBROS_HOJAS()
Worksheets(Worksheets.Count).Select
Range("A1").Select
ActiveCell.Value = "LIBROS"
ActiveCell.Offset(0, 1).Value = "HOJAS"
For Each wb In Workbooks
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = wb.Name
'wb.Activate
For Each ws In wb.Worksheets
ActiveCell.Offset(0, 1).Value = ws.Name
ActiveCell.Offset(1, 0).Select
Next ws
Next wb
End Sub
Te agradezco finalizar la pregunta con una valoración acorde a la calidad y oportunidad de la respuesta.
Sub LIBROS_HOJAS()
Worksheets(Worksheets.Count).Select
Range("A1").Select
ActiveCell.Value = "LIBROS"
ActiveCell.Offset(0, 1).Value = "HOJAS"
For Each wb In Workbooks
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = wb.Name
'wb.Activate
For Each ws In wb.Worksheets
ActiveCell.Offset(0, 1).Value = ws.Name
ActiveCell.Offset(1, 0).Select
Next ws
Next wb
End Sub
Te agradezco finalizar la pregunta con una valoración acorde a la calidad y oportunidad de la respuesta.
No olvides finalizar la pregunta pues en este momento hay usuarios intentando preguntar y no han podido.
