• Domingo 22 de Diciembre de 2024, 19:23
« anterior próximo »
Páginas: [1]

Autor Tema:  Re: Copiar datos a hojas de excel  (Leído 1217 veces)

Jorge López

  • Miembro MUY activo
  • ***
  • Mensajes: 118
    • Ver Perfil
Re: Copiar datos a hojas de excel
« en: Martes 4 de Febrero de 2003, 19:27 »
0
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...........
Un fracasado es un hombre que ha cometido un error pero que no es capaz de convertirlo en experiencia.

Jose Arriagada

  • Miembro MUY activo
  • ***
  • Mensajes: 373
    • Ver Perfil
Copiar datos a hojas de excel
« Respuesta #1 en: Martes 4 de Febrero de 2003, 23:08 »
0
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
Páginas: [1]
« anterior próximo »