............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Abrir archivo con macro y extraer datos de otro libro

Ver el tema anterior Ver el tema siguiente Ir abajo

Abrir archivo con macro y extraer datos de otro libro

Mensaje por Kikomarakas el Lun Nov 09, 2009 1:20 pm

Saludos a tod@s, les comento un poco lo que estoy intentando hacer para ver si me pueden aclarar unas cosas. Estoy intentando hacer loque dice el título, primero en un excel tengo un userform para que me pida el dato de la ruta del archivo a abrir, y una vez abierto que se copien unos datos que necesito en otra tabla. lo que no se hacer sería esto último, aqui tengo una macro que abre una rchivo cualquiera:

Código:
Sub Macro1()
'--Abro el libro donde quieres buscar el valor
Workbooks.Open Filename:= _
"[color=red]C:\Documents and Settings\adrian\Mis documentos\Libro2.xls[/color]"

'--Selecciono la celda
Range("A1").Select

'--La copio
Selection.Copy

'--Cierro el libro que acabo de abrir.Si lo quieres dejar abierto borra esta linea
ActiveWindow.Close

'--Celda en el libro desde que se ejecuta la macro donde quieres poner el valor
Range("A1").Select

'--Pego el valor
ActiveSheet.Paste
End Sub

Lo que necesitaría es que la ruta que está en rojo cambiara según los datos que meta en el userform.a ver si me podéis echar una mano.

Muchas gracias y un saludo

Kikomarakas

Masculino Cantidad de envíos : 24
Edad : 36
Ciudad - Pais : Oviedo
Fecha de inscripción : 12/02/2009

Volver arriba Ir abajo

Re: Abrir archivo con macro y extraer datos de otro libro

Mensaje por GalileoGali el Lun Nov 09, 2009 6:28 pm

Mira, no hacemos la macro a nadie, ni le continuamos el trabajo a otro bondadoso que la haya empezado para quien nos interpela. Razón; muy sencilla, el objetivo de este foro es colaborar con el aprendizaje de quienes quieren realmente aprender. Nuestra metodologia se opone radiclamente a: "pregunto un poco por aca y otro poco mas alla y tarde o temprano tengo listo lo que deseo"

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Abrir archivo con macro y extraer datos de otro libro

Mensaje por P@li el Lun Nov 09, 2009 7:46 pm

Coincido con Gali, y me hace acordar a algo que nos enseñaron en el curso de "ética profesional".
Los abogados tienen prohibido tener carteles al público que digan que hacen "consulta gratuita", porque eso significa regalar trabajo, si regalamos trabajo, deshonestamente le quitamos trabajo a otro que lo cobra y vive de eso, o sea, llevando esto a nuestro campo, si te hacemos el código a medida, un programador va a perder un trabajo (por pequeño que sea), gracias a nosotros, y esa no es la idea, creo que la finalidad del foro de macros es orientar a los que se inician (profesionalmente o por hobbie) en el aprendizaje de VBA.

Te recomiendo leer un poco sobre el tema, no es imposible, yo empecé así, leyendo de la ayuda de VBA, MSDN, san Google, uff tantos lugares para sacar información, una vez que hayas iniciado la lectura, y necesites una mano en la construcción de un código, entonces sí, va a ser bienvenida tu consulta, y seguramente más de uno va a querer echarte una mano.

Cuando tenemos que decir esto parece ofensivo, pero lo hacemos en parte por bien de los que consultan, y en parte por nuestro bien, imaginate si vamos a la casa de un matemático y le preguntamos, "disculpe Sr., cuanto es 4 x 6?", seguramente nos va a prestar un manual de 2° grado, para que aprendamos las tablas. No porque tenga falta de interés en decirnos la respuesta, sino porque si nos dice 24, mañana iremos a preguntarle cuanto es 4 x 8, y después 6 x 7, y nunca vamos a aprender, ni vamos a dejarlo tranquilo haciendo sus cosas. Es un poco infantil el ejemplo, pero el burdo es más sencillo de explicar y comprender.

Saludos,
Pablo.

P@li
Admin

Masculino Cantidad de envíos : 243
Edad : 34
Ciudad - Pais : Buenos Aires, Argentina
Version de Excel : Microsoft Excel 2002 (10.2614.2625)
Fecha de inscripción : 03/03/2008

Volver arriba Ir abajo

Re: Abrir archivo con macro y extraer datos de otro libro

Mensaje por Alef-Thau el Jue Abr 01, 2010 6:38 am

Tenéis razón, la mejor manera de aprender es por uno mismo y, cuando estás muy "aturullado" ya recurrir a ver si alguien te puede orientar (que no hacer lo que tu necesitas).

Dado el tiempo pasado ya de la consulta, se supone que habrá encontrado solución al problema o lo habrá dejado de lado por lo que, a manera de "ejercicio práctico" respondo al tema siendo a la vez pregunta, ya que yo sólo estoy empezando en esto, y así me sirve, para que diciendome SI o NO, tener mejor conocimiento de VB aplicado a excel.


Voy a ello:
El problema, se resolvería con un textbox y una variable.
Añadiriamos al formulario un textbox donde introduciriamos el nombre del fichero, dependiendo de los datos que seguirían en el formulario (como no se que es lo que cambia de los datos no puedo pensar otra manera) y después el valor ese lo pasamos a una variable que concatenamos con la ruta al directorio de los archivos.
Resumiendo quedaria como sigue
Código:
Sub Macro1()

'definimos una variable de nombre de archivo
Dim nombre as variant 'o string valdria también ¿no?

nombre = textbox1.text 'o podria ser value tambien.
'--Abro el libro donde quieres buscar el valor
Workbooks.Open Filename:= _
"C:\Documents and Settings\adrian\Mis documentos\" _
& nombre

'--Selecciono la celda
Range("A1").Select

'--La copio
Selection.Copy

'--Cierro el libro que acabo de abrir.Si lo quieres dejar abierto borra esta linea
ActiveWindow.Close

'--Celda en el libro desde que se ejecuta la macro donde quieres poner el valor
Range("A1").Select

'--Pego el valor
ActiveSheet.Paste
End Sub

Esto haría (según creo)que, cuando ponga en el textbox1 angel.xlm me pasaría la ruta de C:\Documents and Settings\adrian\Mis documentos\angel.xlm y abriría dicho archivo.

Como digo no se prácticamente nada de VB y quiza lo que digo sea una burrada por eso me interesa la corrección.

Saludos y seguid así :-)


Última edición por Alef-Thau el Jue Abr 01, 2010 6:40 am, editado 1 vez (Razón : edito ya que puse & "nombre" en vez de & nombre jejejeje un desliz muy importante.)

Alef-Thau

Masculino Cantidad de envíos : 22
Edad : 52
Ciudad - Pais : España
Version de Excel : actualmente 2010
Fecha de inscripción : 23/05/2009

Volver arriba Ir abajo

Re: Abrir archivo con macro y extraer datos de otro libro

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


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