Exportar a Excel

[jaullo]

Bueno es cierto lo que dice gnzsoloyo la mayoria de ejemplos que encuentres instancian esta libreria. Microsoft.office.interop.excell

ahi muchas maneras de hacerlo, asi como te lo hemos mostrado hasta ahora importando la libreria o de esta otra forma.

'funcion exportar a excel
Sub exportaexcell()
Dim ApExcel As Object
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 = "Interesados"
ApExcel.cells(2, 1).Formula = txtnombre.Text
'cambiar la fuente
ApExcel.cells(1, 1).Font.Size = 12
ApExcel.cells(1, 2).Font.Size = 12
ApExcel.cells(1, 3).Font.Size = 12
ApExcel.cells(1, 4).Font.Size = 12
ApExcel.cells(1, 5).Font.Size = 12
ApExcel.cells(1, 6).Font.Size = 12

ApExcel.cells(1, 2).formula = "Código Cliente"
ApExcel.cells(2, 2).Formula = txtidclien.Text
ApExcel.cells(1, 3).formula = "Cédula Juridica"
ApExcel.cells(2, 3).Formula = txtcedjuridica.Text
ApExcel.cells(1, 4).formula = "Por Concepto de"
ApExcel.cells(2, 4).Formula = cboProducto.Text
ApExcel.cells(1, 5).formula = "Cantidad"
ApExcel.cells(2, 5).Formula = mktxtcantidad.Text
ApExcel.cells(1, 6).formula = "Total a Pagar"
ApExcel.cells(2, 7).Formula = txtfinal.Text
' 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)
ApExcel = Nothing

End Sub