Macro para abir un archivo .xls

20/04/2007 - 13:57 por Jorge Forero | Informe spam
Buenos días, solicito colaboración para realizar lo siguiente:

tengo una macro de excel y necesito desde un commandbutton abrir otro
archivo de excel, pero adicionalmente cuando este se abra, debe insertar un
dato contenido en una celda en una celda específica del archivo que deseo
abrir ejemplo:

Archivo con el commandbutton: excel1.xls - celda a2
archivo que debe abrir: excel2.xls e insertar lo de la celda a2 en la celda
b2

gracias por la colaboración

Saludos...
Jorgef.
 

Leer las respuestas

#1 Juan M
20/04/2007 - 15:07 | Informe spam
"Jorge Forero" escribió en el mensaje

tengo una macro de excel y necesito desde un commandbutton abrir otro
archivo de excel, pero adicionalmente cuando este se abra, debe insertar
un
dato contenido en una celda en una celda específica del archivo que deseo
abrir ejemplo:

Archivo con el commandbutton: excel1.xls - celda a2
archivo que debe abrir: excel2.xls e insertar lo de la celda a2 en la
celda
b2



Hola Jorge,

En tus detalles falta que nos indiques la hoja de la que debe copiar el dato
y en que hoja del libro excel2 quieres pegarlo, y si los dos libros están en
el mismo directorio.

Te paso una rutina para que pruebes, donde pone worksheets(1) pon el índice
o el nombre de la hoja entrecomillado para adecuarlo a tus necesidades.
Donde pone workbooks.open puedes poner la ruta completa del libro que
quieres abrir

Un saludo,
Juan

En un módulo estándar

Sub AbreCopia()
Dim NuevoLibro As Workbook

Set NuevoLibro = Workbooks.Open(ThisWorkbook.Path & "\excel2.xls")

ThisWorkbook.Worksheets(1).Range("A2").Copy
NuevoLibro.Worksheets(1).Range("B2")

Set NuevoLibro = Nothing
End Sub

Fin código

Preguntas similares