Nombres de hojas de otro archivo
Antes que nada te agradezco tu tiempo para ayudarme.
Tengo un archivo en excel y en este archivo tengo una macro que abre un segundo archivo.
¿Existe alguna manera para que en el primer archivo en algún rango en especifico aparezcan los nombres de las hojas del segundo archivo?
Gracias.
Tengo un archivo en excel y en este archivo tengo una macro que abre un segundo archivo.
¿Existe alguna manera para que en el primer archivo en algún rango en especifico aparezcan los nombres de las hojas del segundo archivo?
Gracias.
Respuesta de tavopz
1
Puede ser una macro como esta:
Sub NombresHojas()
Dim i(256)
ruta = "C:\Archivos\"
archivo = "Archivo123.xls"
miarchivo = "macro_nombreshojas.xls"
Workbooks.Open Filename:=ruta & archivo
Windows(archivo).Activate
x = ActiveWorkbook.Sheets.Count
For j = 1 To x
i(j) = ActiveWorkbook.Sheets(j).Name
Next j
Windows(miarchivo).Activate
For k = 1 To x
Cells(k, 1).Value = i(k)
Next k
End Sub
Esta es sólo una forma, puede hacerse la macro más sencilla pero esta es la que se me ocurrió en el momento.
Sub NombresHojas()
Dim i(256)
ruta = "C:\Archivos\"
archivo = "Archivo123.xls"
miarchivo = "macro_nombreshojas.xls"
Workbooks.Open Filename:=ruta & archivo
Windows(archivo).Activate
x = ActiveWorkbook.Sheets.Count
For j = 1 To x
i(j) = ActiveWorkbook.Sheets(j).Name
Next j
Windows(miarchivo).Activate
For k = 1 To x
Cells(k, 1).Value = i(k)
Next k
End Sub
Esta es sólo una forma, puede hacerse la macro más sencilla pero esta es la que se me ocurrió en el momento.
