Programación General > Visual Basic 6.0 e inferiores

 Re: Copiar datos a hojas de excel

(1/1)

Jorge López:
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...........

Jose Arriagada:
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

Navegación

[0] Índice de Mensajes