Insertar hoja en un libro de excel desde una ruta variable

ￜ Hola !

Tengo un libro de excel desde el que creo listados de alumnos por meses.

Mediante una macro asociada a un cuadro de texto, para cada listado nuevo,

inserto una nueva hoja, que es un archivo llamado "NUEVO

LISTADO.xltm", y que se encuentra en la misma carpeta que el libro de excel

donde es insertada la hoja nueva, hasta aqui todo funciona correcto, pero lo

que yo quiero es que cuando copie y pege toda la carpeta donde se encuentran

los

dos archivos, en otra ubicacion, la macro siga funcionando, pero me marca error

porque he cambiado la ruta del archivo.

Este es el codigo que utiliza la macro,

Sub NUEVO_LISTADO()



' NUEVO_LISTADO Macro



Application.ScreenUpdating = False

Application.DisplayFullScreen = True

Sheets.Add Type:="C:UsersusuarioDesktopCOMEDOR VANEListados ComedorNUEVO

LISTADO.xltm"

Application.DisplayAlerts = False

Workbooks("LISTADOS COMEDOR 1 - copia.xlsm").Activate

Sheets("PAGINA PRINCIPAL 1").Visible = False

Sheets("Hoja1").Select

Application.ScreenUpdating = True

End Sub

ï¿œalguien puede decirme como puedo hacer que la ruta sea una variable?

Si todo esta siempre en la misma carpeta, basta usar 'Thisworkbook.Path' en
lugar de usar la ruta completa como estas usando hasta ahora.

Abraham


El miércoles, 17 de octubre de 2012 06:31:18 UTC-5, pomares71
escribió:

ￜ Hola !

Tengo un libro de excel desde el que creo listados de alumnos por meses.

Mediante una macro asociada a un cuadro de texto, para cada listado nuevo,

inserto una nueva hoja, que es un archivo llamado "NUEVO

LISTADO.xltm", y que se encuentra en la misma carpeta que el libro de
excel

donde es insertada la hoja nueva, hasta aqui todo funciona correcto, pero lo

que yo quiero es que cuando copie y pege toda la carpeta donde se encuentran

los

dos archivos, en otra ubicacion, la macro siga funcionando, pero me marca
error

porque he cambiado la ruta del archivo.

Este es el codigo que utiliza la macro,

Sub NUEVO_LISTADO()



' NUEVO_LISTADO Macro



Application.ScreenUpdating = False

Application.DisplayFullScreen = True

Sheets.Add Type:="C:UsersusuarioDesktopCOMEDOR VANEListados ComedorNUEVO

LISTADO.xltm"

Application.DisplayAlerts = False

Workbooks("LISTADOS COMEDOR 1 - copia.xlsm").Activate

Sheets("PAGINA PRINCIPAL 1").Visible = False

Sheets("Hoja1").Select

Application.ScreenUpdating = True

End Sub

ï¿œalguien puede decirme como puedo hacer que la ruta sea
una variable?