Generar Excel

[thewalker]

hola que tal , espero alguien me pueda ayudar, alguien sabe como crear un documento en Excel

si tengo en un WindowForm por ejemplo

Nombre : Fulanito de tal
Edad : 17 años
Domicilio:Conocido

etc

y que le de click a un boton y se pase a excel y se abra claro,,
si alguien puede ayudarme se lo agradecere tengo este codigo pero me marca erro enla segunda linea

Excel.ApplicationClass app = new Excel.ApplicationClass();
Excel.Workbook libro = app.Workbooks.Add();

Excel.Worksheet hoja;//crea una hoja
hoja = (Excel.Worksheet)libro.Worksheets[1];

hoja.Cells[19, 3] = this.textBox1.Text;
hoja.Cells[19, 4] = this.textBox2.Text;
app.Visible = tru

[Trulala de cordoba]

hola

poco he trabajado con excel, pero en la página de microsoft tiene este artículo similar a lo que necesitas:


http://support.microsoft.com/kb/306023

[Ka0stj]

Hola thewalker

Yo utilicé esta función que encontré en alguna parte de Internet.

Código vb.net:

Function GridAExcel(ByVal ElGrid As DataGridView) As Boolean
 
        'Creamos las variables
        Dim exApp As New Microsoft.Office.Interop.Excel.Application
        Dim exLibro As Microsoft.Office.Interop.Excel.Workbook
        Dim exHoja As Microsoft.Office.Interop.Excel.Worksheet
 
 
        Try
            'Añadimos el Libro al programa, y la hoja al libro
            exLibro = exApp.Workbooks.Add
            exHoja = exLibro.Worksheets.Add()
 
            ' ¿Cuantas columnas y cuantas filas?
            Dim NCol As Integer = ElGrid.ColumnCount
            Dim NRow As Integer = ElGrid.RowCount
 
            'Aqui recorremos todas las filas, y por cada fila todas las columnas y vamos escribiendo.
            For i As Integer = 1 To NCol
                exHoja.Cells.Item(1, i) = ElGrid.Columns(i - 1).Name.ToString
                'exHoja.Cells.Item(1, i).HorizontalAlignment = 3
            Next
 
            For Fila As Integer = 0 To NRow - 1
                For Col As Integer = 0 To NCol - 1
                    exHoja.Cells.Item(Fila + 2, Col + 1) = ElGrid.Rows(Fila).Cells(Col).Value
                Next
            Next
            'Titulo en negrita, Alineado al centro y que el tamaño de la columna se
            'ajuste al texto
            exHoja.Rows.Item(1).Font.Bold = 1
            exHoja.Rows.Item(1).HorizontalAlignment = 3
            exHoja.Columns.AutoFit()
 
 
            'Aplicación visible
            exApp.Application.Visible = True
 
            exHoja = Nothing
            exLibro = Nothing
            exApp = Nothing
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error al exportar a Excel")
            Return False
        End Try
 
        Return True
 
    End Function
 

Espero y te sirva.