Problemas al abrir archivo

[ER8]

Buenos días amigos foristas y feliz año a todos. Nuevamente solicitando su valiosa ayuda por favor. Necesito una macro que me abra un archivo X, que se coloque en la hoja 1 y me regrese a mi...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[FGV]

Hola @ER8,
Puedes probar:

Sub AbrirArchivo()
    Application.ScreenUpdating = False
    ChDir ThisWorkbook.Path & "\"
    Vfile = Application.GetOpenFilename("Archivos...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ER8]

Hola @ER8,
Puedes probar:

Sub AbrirArchivo()
    Application.ScreenUpdating = False
    ChDir ThisWorkbook.Path & "\"...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Dante Amor M]

pero no me regresa al archivo donde ejecuté la macro, que podrá ser?

Tampoco me regresa al archivo de la macro, supongo que es la manera como...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[FGV]

Buen día y muy agradecido Fernando, Ya abre el archivo y se coloca en cualquier hoja que le indico, pero no me regresa al archivo donde ejecuté la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[FGV]

Revisando, para asegurar el funcionamiento correcto es mejor prescindir de ScreenUpdating:

Sub AbrirArchivo()
    ChDir ThisWorkbook.Path & "\"
    Vfile =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Dante Amor M]

Revisando, para asegurar el funcionamiento correcto es mejor prescindir de ScreenUpdating:

Genial!!, con eso se soluciona. Gracias

 

[ER8]

Tampoco me regresa al archivo de la macro, supongo que es la manera como se abre el archivo con Application.GetOpenFilename

Prueba con...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ER8]

Revisando, para asegurar el funcionamiento correcto es mejor prescindir de ScreenUpdating:

Sub AbrirArchivo()
    ChDir ThisWorkbook.Path...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ER8]

Perdón, perdón, pero estoy viendo que si no selecciono ningún archivo me genera un error. Probe ponerle la siguiente condición If Vfile = true Then, pero no me funciona alguna otra forma, por...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[FGV]

Perdón, perdón, pero estoy viendo que si no selecciono ningún archivo me genera un error. Probé ponerle la siguiente condición If Vfile = true Then...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ER8]

Prueba si te va bien así:

Sub AbrirArchivo()
    ChDir ThisWorkbook.Path & "\"
    Vfile = Application.GetOpenFilename("Archivos...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí