Foros del Web » Soporte técnico » Ofimática »

Macro Excel - Copiar valores a archivo cerrado

Estas en el tema de Macro Excel - Copiar valores a archivo cerrado en el foro de Ofimática en Foros del Web. Como puedo hacer en macro de excel para copiar o escribir un valor en otro archivo, pero este otro archivo esta cerrado???...
  #1 (permalink)  
Antiguo 04/04/2008, 15:37
Avatar de Nuvato  
Fecha de Ingreso: mayo-2005
Mensajes: 61
Antigüedad: 19 años
Puntos: 0
Pregunta Macro Excel - Copiar valores a archivo cerrado

Como puedo hacer en macro de excel para copiar o escribir un valor en otro archivo, pero este otro archivo esta cerrado???
  #2 (permalink)  
Antiguo 04/04/2008, 18:20
Avatar de caesar.l  
Fecha de Ingreso: febrero-2007
Ubicación: Aguascalientes, México
Mensajes: 1.439
Antigüedad: 17 años, 2 meses
Puntos: 91
Re: Macro Excel - Copiar valores a archivo cerrado

pues en la misma macro tienes que poner que abra el archivo, poner el dato, guardar el archivo y cerrarlo, incluso puedes utilizar el Application.ScreenUpdating y Application.DisplayAlerts para evitar los cambios en las ventanas y alertas de guardar el archivo, respectivamente.
__________________
Yo solo sé, que no sé nada...
  #3 (permalink)  
Antiguo 05/04/2008, 12:23
Avatar de caesar.l  
Fecha de Ingreso: febrero-2007
Ubicación: Aguascalientes, México
Mensajes: 1.439
Antigüedad: 17 años, 2 meses
Puntos: 91
Re: Macro Excel - Copiar valores a archivo cerrado

Puedes utilizar este código

Sub GaradarOtroArchivo()
Application.ScreenUpdating = False 'evita que se vean los cambios de las ventanas
Application.DisplayAlerts = False 'evita que se vean los anuncios al guardar
Workbooks.Open Filename:="C:\Libro1.xls" 'abre el libro donde quieres guradar el dato
Workbooks("Libro1.xls").Worksheets("Hoja1").Range( "B5").Select 'selecciona hoja y celda donde quieres poner el dato
ActiveCell.FormulaR1C1 = "Aqui va el dato" 'aqui pones el dato, puedes variar dependiendo de lo que quieras poner
ActiveWorkbook.Save 'salva el arvhivo
ActiveWindow.Close 'lo cierra
Application.DisplayAlerts = True 'activa las alertas
Application.ScreenUpdating = True 'activa la actualización de la pantalla
End Sub

espero que te sirva, saludos
__________________
Yo solo sé, que no sé nada...
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas (incluyéndote)




La zona horaria es GMT -6. Ahora son las 19:13.