DATAGRID to EXCEL

[Crash Override]

Hi.
I have a application that fills a DATAGRIDVIEW, but i need to export that info to a new instance of EXCEL.
But I need to do it throu a command button.
Could anyone please tell me how to do it.

THANKS !!!

[PeejAvery]

I just did this rather recently. Just remember to pass the DataGridView to the parameters.

    Private Declare Function ShellEx Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer

    Private Sub exportExcel(ByVal grdView As DataGridView)
        Dim myFile As String = My.Application.Info.DirectoryPath & "\" & "ExportedData.xls"

        Dim fs As New IO.StreamWriter(myFile, False)
        fs.WriteLine("<?xml version=""1.0""?>")
        fs.WriteLine("<?mso-application progid=""Excel.Sheet""?>")
        fs.WriteLine("<ss:Workbook xmlns:ss=""urn:schemas-microsoft-com:office:spreadsheet"">")
        fs.WriteLine("  <ss:Styles>")
        fs.WriteLine("    <ss:Style ss:ID=""1"">")
        fs.WriteLine("      <ss:Font ss:Size=""14"" ss:Bold=""1""/>")
        fs.WriteLine("      <ss:Alignment ss:Vertical=""Center""/>")
        fs.WriteLine("    </ss:Style>")
        fs.WriteLine("    <ss:Style ss:ID=""2"">")
        fs.WriteLine("      <ss:Font ss:Bold=""1""/>")
        fs.WriteLine("      <ss:Alignment ss:Horizontal=""Center"" ss:Vertical=""Center"" ss:WrapText=""1""/>")
        fs.WriteLine("      <ss:Interior ss:Color=""#C0C0C0"" ss:Pattern=""Solid""/>")
        fs.WriteLine("    </ss:Style>")
        fs.WriteLine("    <ss:Style ss:ID=""3"">")
        fs.WriteLine("      <ss:Alignment ss:Vertical=""Center"" ss:WrapText=""1""/>")
        fs.WriteLine("    </ss:Style>")
        fs.WriteLine("  </ss:Styles>")
        fs.WriteLine("<ss:Worksheet ss:Name=""Sheet1"">")
        fs.WriteLine("  <ss:Table>")
        For i As Integer = 0 To grdView.Columns.Count - 1
            fs.WriteLine(String.Format("    <ss:Column ss:Width=""{0}""/>", grdView.Columns.Item(i).Width))
        Next
        fs.WriteLine("    <ss:Row>")
        For i As Integer = 0 To grdView.Columns.Count - 1
            fs.WriteLine(String.Format("      <ss:Cell ss:StyleID=""2""><ss:Data ss:Type=""String"">{0}</ss:Data></ss:Cell>", grdView.Columns.Item(i).HeaderText))
        Next
        fs.WriteLine("    </ss:Row>")
        For i As Integer = 0 To grdView.RowCount - 1
            fs.WriteLine(String.Format("    <ss:Row ss:Height=""{0}"">", grdView.Rows(i).Height))
            For intCol As Integer = 0 To grdView.Columns.Count - 1
                fs.WriteLine(String.Format("      <ss:Cell ss:StyleID=""3""><ss:Data ss:Type=""String"">{0}</ss:Data></ss:Cell>", grdView.Item(intCol, i).Value.ToString))
            Next
            fs.WriteLine("    </ss:Row>")
        Next
        fs.WriteLine("  </ss:Table>")
        fs.WriteLine("</ss:Worksheet>")
        fs.WriteLine("</ss:Workbook>")
        fs.Close()

        ShellEx(Me.Handle, "open", myFile, "", "", 10)
    End Sub