introducir datos a excel con visual basic, ayudaaaaaaa

Iniciado por Ragde88, 13 Noviembre 2005, 05:55 AM

0 Miembros y 1 Visitante están viendo este tema.

Ragde88

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


5v5

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



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 ;D