introducir datos a excel con visual basic, ayudaaaaaaa

[Ragde88]

hola a todos

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.

saludos

[5v5]

Buen dia...haber si te sirve esto....jejeje .....no me acuerdo de donde lo sake...pero en fin....

Código [Seleccionar] Expandir



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


[Ragde88]

ok, muchas gracias 5v5:o

me funciono muy bien

saludos