UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO elije y abre hoja el 06/08/15, 09:18 pm

bertas


hola sres del foro:tengo un codigo con el cual,entre otras cosas,abre una hoja de calculo determinada;si lo llevo a otra maquina ya no me encuentra esa hoja para abrirla;hay posibilidad de que yo cambie esa ubicacion de otra forma?(no es un vinculo el cual si se puede cambiar
adjunto codigo
Private Sub CommandButton5_Click()
On Error Resume Next
Application.ScreenUpdating = False
Workbooks.Open Filename:= _
        "D:\Documents and Settings\MQZ02\Escritorio\richard\embalaje.xlsm"
    ActiveWindow.ActivateNext

el archivo que quiero que se abra es embalaje.xlsm y la persona que debera abrirlo no es para nada ducha en excel(mucho menos que yo!!)
espero se entienda;desde ya muchas gracias por su colaboracion

2RESUELTO Re: elije y abre hoja el 06/08/15, 09:47 pm

Igtelo


Que tal Bertas.

Ajusta la ruta según lo tenga en su máquina y eso es todo.

Para que no tengan que estar haciendo ajustes en las rutas cuando cambian de máquinas, puedes usar lo siguiente:
Código:
Private Sub CommandButton5_Click()
Dim ruta As String, nombre As String  'Definimos variables
On Error Resume Next
Application.ScreenUpdating = False
ruta = ThisWorkbook.Path & "\"  'Con ésta instrucción encuentra la ruta del archivo
nombre = "Embalaje"  'Nombre del archivo                                      
Workbooks.Open Filename:=ruta & nombre  'Concatena la ruta y el nombre
    ActiveWindow.ActivateNext

Los archivos o libros deben estar en la misma carpeta. Ya tienes 2 opciones.

Saludos
Ignacio Téllez

3RESUELTO listo el 07/08/15, 07:08 am

bertas


acabo de probarlo y parece que anda barbaro,el lunes lo probare en la maquina de mi compañero!mil gracias por tu explicacion y  por tu ayuda!

4RESUELTO pregunta el 07/08/15, 08:51 am

bertas


perdon igtelo pero se que este tema ya lo cerre,pero queria comentarte y agradecerte de nuevo ya que lo probe recien en otra pc y anda perfecto!!!! y estoy analizando los comandos que pusistes(gracias a tu explicacion en los mismos que esta barbara)y al margen de ya entenderlos,querria confirmar si ,por ejemplo usando este codigo ya lo puedo aplicar a cualquier otro programa para que abra el archivo(y adsi no tener que molestarlo en el futuro)
Código:
Private Sub CommandButton5_Click()
Dim ruta As String, nombre As String  'Definimos variables
On Error Resume Next
Application.ScreenUpdating = False
ruta = ThisWorkbook.Path & "\"  'Con ésta instrucción encuentra la ruta del archivo
nombre = "Embalaje"  'Nombre del archivo
Workbooks.Open Filename:=ruta & nombre  'Concatena la ruta y el nombre
ActiveWindow.ActivateNext
End Sub

5RESUELTO Re: elije y abre hoja el 07/08/15, 12:05 pm

Igtelo


Hola Bertas.

Si, te sirve para cualquier archivo, es la ventaja de usar Thisworkbook.path (ruta de éste libro), los archivos deben estar en la misma carpeta.

Haz pruebas con varios archivos y ya le tomarás confianza.


Saludos
Ignacio Téllez

6RESUELTO gracias el 07/08/15, 05:01 pm

bertas


gracias de nuevo Igtelo!!

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.