Macro excel para abrir otro .xls
Pues estoy haciendo una macro en el excel y necesito saber cual es el código para que me abra otro archivo axcel y pueda coger datos de este nuevo archivo, el código para:
- Abrir archivo excel
- Coger celda A1 del nuevo archivo y pasarlo al que esta ejecutando la macro.
¿Alguien sabe como hacerlo en visual Basic para excel?
- Abrir archivo excel
- Coger celda A1 del nuevo archivo y pasarlo al que esta ejecutando la macro.
¿Alguien sabe como hacerlo en visual Basic para excel?
1 Respuesta
Respuesta de wazxs
1
Lo primero decirte que nunca había programado para Excel, pero buscando un poquillo por Internet
he conseguido sacarlo. Estoy convencido de que hay una forma más eficiente de hacerlo, aunque de esta forma
funciona correctamente.
El código en cuestión es este:
Sub Macro1()
'--Abro el libro donde quieres buscar el valor
Workbooks.Open Filename:= _
"C:\Documents and Settings\adrian\Mis documentos\Libro2.xls"
'--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
Mira a ver si te sirve (a mi me ha funcionado perfectamente) y sino es así avisame e intentamos otra cosa.
he conseguido sacarlo. Estoy convencido de que hay una forma más eficiente de hacerlo, aunque de esta forma
funciona correctamente.
El código en cuestión es este:
Sub Macro1()
'--Abro el libro donde quieres buscar el valor
Workbooks.Open Filename:= _
"C:\Documents and Settings\adrian\Mis documentos\Libro2.xls"
'--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
Mira a ver si te sirve (a mi me ha funcionado perfectamente) y sino es así avisame e intentamos otra cosa.
