|
Título: introducir datos a excel con visual basic, ayudaaaaaaa Publicado por: Ragde88 en 13 Noviembre 2005, 05:55 am hola a todos ;D :) ;)
necesito introducir datos desde un formulario de vb6 a una ventana de excel, que coloque con un ole. los datos deben pasar automaticamente al escribirlos en el text :-\ :-\ ojala que me puedan ayudar por que por mas que he buscado no encuentro informacion sobre como hacerlo, o tal vez no he buscado bien. :P :P saludos Título: Re: introducir datos a excel con visual basic, ayudaaaaaaa Publicado por: 5v5 en 15 Noviembre 2005, 23:13 pm Buen dia...haber si te sirve esto....jejeje .....no me acuerdo de donde lo sake...pero en fin....
Código: Private Type Inf Text As String End Type Private Sub Command1_Click() Dim ApExcel As Variant Set ApExcel = CreateObject("Excel.application") ' Hace que Excel se vea ApExcel.Visible = True 'Agrega un nuevo Libro ApExcel.Workbooks.Add 'Poner Titulos ApExcel.cells(1, 1).Formula = "Titulo de la Aplicacion" ApExcel.cells(1, 1).Font.Size = 18 ApExcel.cells(2, 2).Formula = "Debe" ApExcel.cells(2, 3).Formula = "Haber" ApExcel.cells(2, 4).Formula = "Saldo" ApExcel.cells(3, 2).Formula = 200 ApExcel.cells(3, 3).Formula = 100 ' Aplica Formula ApExcel.cells(3, 4).Formula = "=B3-C3" ' Hace una Seleccion de celdas y pone bordes de Color ApExcel.RANGE("B3:D3").BORDERS.Color = RGB(255, 0, 0) Set ApExcel = Nothing End Sub Título: Re: introducir datos a excel con visual basic, ayudaaaaaaa Publicado por: Ragde88 en 16 Noviembre 2005, 02:29 am ok, muchas gracias 5v5:o
me funciono muy bien saludos ;D |