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
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
ok, muchas gracias 5v5:o
me funciono muy bien
saludos ;D