exportar a excel

[jose58]

Alguien sabe como hago para exportar datos a excel pero que los datos estan cagado en un caja de texto o varias cajas de texto o algun otro objeto??

[juanutcm]

No se entiende tu pregunta trata de explicarte mejor para poder ayudarte

[jose58]

yo tengo un proyecto en el cual se ingresan datos atravez de una caja de texto osea textbox y yo necesito pasar esos datos a excel exportarlos a excel si yo en text1.text coloco hola como estas? eso datos quiero que se vallan a excel a alguna celda, entienden

[jose58]

a mi me explicaron este codigo pero ese toma los datos directamente del codigo pero yo deseo exporat es lo que yo ingrese en un textbox por ejemplo



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

[juanutcm]

Iniciado por jose58

a mi me explicaron este codigo pero ese toma los datos directamente del codigo pero yo deseo exporat es lo que yo ingrese en un textbox por ejemplo



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 lo que puedes hacer es reemplazar los textos escritos directamente del codigo por el control osea la caja de texto por ejemplo :

ApExcel.cells(2, 2).Formula = Text1.Text
ApExcel.cells(2, 3).Formula = Text2.Text
ApExcel.cells(2, 4).Formula = Text3.Text

Creo que estoo podria funcionar... pruebalo y nos comentas...

[jose58]

Gracias hermano si me funciona perfecto ahora yo lo cuadro de verdad gracias...

anexo codigos para los que lo deseen

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 = Text1.Text
ApExcel.cells(1, 2).formula = Text2.Text
Set ApExcel = Nothing

[jose58]

ya va antes de cerrar este tema hay un detallito que yo deseo otra cosita que los datos exportados a excel sean hacia una misma hoja de tal forma que pueda exortar varias veces varias operaciones EN UNA HOJA YA CREADA??