SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Jorge López en Martes 4 de Febrero de 2003, 19:27

Título: Re: Copiar datos a hojas de excel
Publicado por: Jorge López en Martes 4 de Febrero de 2003, 19:27

Hola a todos, quiero hacer que el contenido de un texbox se me copie a todas las hojas que tengo en un archivo que se llama datos.xls (en excel), esto que lo haga en el event click del boton..

el formulario solo va a tener un texbox y un boton que se llama copiar...



por favor si me pueden decir como hacer se los agraezco...........

Título: Copiar datos a hojas de excel
Publicado por: Jose Arriagada en Martes 4 de Febrero de 2003, 23:08

Archivo = "H:BDATOS.XLS"
    Set ixls = CreateObject("Excel.Application")
    ixls.Workbooks.Open Archivo
    ixls.Visible = False
    ixls.Worksheets("Hoja1").Activate    
    xCelda="A1"
    ixls.Worksheets("Hoja1").Range(xCelda).Value=text1
    ixls.Worksheets("Hoja2").Range(xCelda).Value=text1
    ixls.Worksheets("Hoja3").Range(xCelda).Value=text1
    ixls.ActiveWorkbook.Close SaveChanges:=true