Cómo usar VBA para obtener el nombre de una hoja de trabajo en un libro específico

Para obtener el nombre de la hoja de trabajo en un libro de trabajo específico en lugar del nombre de la tabla en ese libro de trabajo, puede usar el siguiente código:

Nombre del subextracto()

Dim wk Como libro de trabajo

Atenuar sh como hoja de trabajo

Atenuar rw como byte

Establecer wk = Workbooks.Open("D:\ Ejercicios de funciones\Capítulo 1 Conceptos básicos de funciones. xls")

Para cada sh en Workbooks(2).Worksheets

rw = rw + 1

ThisWorkbook.Sheets(1).Range ("a " & rw ) = sh.Name

Next sh

wk.Close True

End Sub

Crear un nuevo libro de trabajo en VBA Cree un nuevo módulo y copie el código anterior en él. Recuerde cambiar la ruta después de workbooks.open según el libro que especifique. El resultado será un nuevo libro con los nombres de las hojas enumerados en la columna hojas1a.