Ayuda al exportar a Excel

Una forma muy facil es exportarlo a xml que el Excell lo interpreta sin
problemas. Para ello invoca el metodo WriteXML del DataSet. Si necesitas
algo mas elaborado, tendrias que usar las interfaces que expone Excell.

Saludos
Diego

Saludos Susana

No puedes exportar el "datagrid" como tal sino el dataset o datable con los
datos que se cargan en un dataset o datatable

Espero que esta función te pueda ayudar..

Primero agrega la referencia de excel a tu proyecto y luego en boton copia
esta linea:

fncExcelExport("select emp_id, fname from employee") o la consulta que
desees exportar a excel

//** FUNCION PARA EXPORTAR A EXCEL**//
Private Function fncExcelExport(ByVal strSql As String)
Dim dsExcelExport As New System.Data.DataSet
Dim daExcelExport As System.Data.SqlClient.SqlDataAdapter
Dim Excel As New Excel.Application
Dim intColumn, intRow, intColumnValue As Integer
Dim strExcelFile As String
Dim strFileName As String
Dim conCurrent As New SqlClient.SqlConnection
conCurrent.ConnectionString = "data source=(local);initial
catalog=pubs;User ID=;Password="
daExcelExport = New System.Data.SqlClient.SqlDataAdapter(strSql,
conCurrent)
daExcelExport.Fill(dsExcelExport)
Dim strAppPath =
System.Reflection.Assembly.GetExecutingAssembly.Location.Substring(0,
System.Reflection.Assembly.GetExecutingAssembly.Location.LastIndexOf("\") + 1)
With Excel
.SheetsInNewWorkbook = 1
.Workbooks.Add()
.Worksheets(1).Select()
'For displaying the column name in the the excel file.
For intColumn = 0 To dsExcelExport.Tables(0).Columns.Count - 1
.Cells(1, intColumn + 1).Value =
dsExcelExport.Tables(0).Columns(intColumn).ColumnName.ToString
Next
'For displaying the column value row-by-row in the the excel file.
For intRow = 0 To dsExcelExport.Tables(0).Rows.Count - 1
For intColumnValue = 0 To
dsExcelExport.Tables(0).Columns.Count - 1
.Cells(intRow + 1, intColumnValue + 1).Value =
dsExcelExport.Tables(0).Rows(intRow).ItemArray(intColumnValue).ToString
Next
Next
'strFileName = InputBox("Please enter the file name.", "Swapnil")
strExcelFile = strAppPath & "employee"
.ActiveWorkbook().SaveAs(strExcelFile)
.ActiveWorkbook.Close()
End With
MessageBox.Show("File exported sucessfully.", "Exporting done",
MessageBoxButtons.OK, MessageBoxIcon.Information)
NormalExit:
Excel.Quit()
Excel = Nothing
GC.Collect()
Exit Function
End Function


Att. Mauricio