Exportar DataGridView a excel 2007

[mchavezs]

ESPERO TE SIRVA, ES DE VB 2008.

Dim objHojaExcel1 As Excel.Worksheet
Dim m_Excel As New Excel.Application
Dim objLibroExcel As Excel.Workbook
Dim oBook As Object
Dim oExcel As Object
Dim oSheet As Object
oExcel = CreateObject("Excel.Application")
oBook = oExcel.Workbooks.Add
objLibroExcel = m_Excel.Workbooks.Add()
objHojaExcel1 = objLibroExcel.Worksheets(1)
objHojaExcel1.Visible = Excel.XlSheetVisibility.xlSheetVisible
objHojaExcel1.Name = "COMO SE VA LLAMAR LA HOJA DE EXCEL"
Tu DataGridView.SelectAll()
Tu DataGridView.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeH eaderText
Clipboard.SetDataObject(Tu DataGridView.GetClipboardContent())
objLibroExcel.Worksheets(1).range("A1").Select()
objLibroExcel.Worksheets(1).Paste()
oSheet = objLibroExcel.Worksheets(1)
oSheet.Range("A1").AutoFilter(ComboBox6.Text) ' MOSTRAR AUTOFILTRO
oExcel.Quit()
m_Excel.Visible = True

SALUDOS.