Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
       Dim EXL As New Excel.Application

        If DataSet11.test.Rows.Count >  0  Then
            If File.Exists(xls) = True Then File.Delete(xls)

            Dim m As Excel.Worksheet
            m = EXL.Workbooks.Add.Worksheets.Add

            For i As Integer =  0  To DataSet11.test.Rows.Count -  1 
                Dim k As Integer
                k +=  1 

                m = EXL.Workbooks.Item( 1 ).Worksheets.Item( 1 )
                m.Rows(k).cells( 1 ) = k.ToString
                m.Rows(k).cells( 2 ) = DataSet11.test.Rows(i).Item("la")
                m.Rows(k).cells( 3 ) = DataSet11.test.Rows(i).Item("lala")
                m.Rows(k).cells( 4 ) = DataSet11.test.Rows(i).Item("lalala")
                m.Rows(k).cells( 5 ) = DataSet11.test.Rows(i).Item("lalalala")
                m.Rows(k).cells( 6 ) = DataSet11.test.Rows(i).Item("lalalalala")
                m.Rows(k).cells( 7 ) = DataSet11.test.Rows(i).Item("lalalalalala")
                Dim g As String
                If (DataSet11.test.Rows(i).Item("lalalalalalala") Is System.DBNull.Value) Then
                    g = "???"
                Else
                    g = DataSet11.test.Rows(i).Item("lalalalalalalal")
                End If
                m.Rows(k).cells( 8 ) = g
                m.Rows(k).cells( 9 ) = DataSet11.test.Rows(i).Item("papapapa")
            Next

            Dim myrange As Excel.Range = m.UsedRange
            myrange.Select()
            With myrange
                .HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
                .Columns.AutoFit()
            End With

            m.SaveAs(Filename:="c:\proba.xls")

            EXL.Workbooks.Close()
            EXL.Quit()
            EXL = Nothing
            GC.Collect()


            Dim reply As MsgBoxResult = MsgBox("Do You want see file " & """main.xls""" & "???", MsgBoxStyle.YesNo)
            If reply = MsgBoxResult.Yes Then

' Вот здесь к вопросу Sa, Файл не запустится, потому как процесс уже сидит плотно плотно, а как выкинуть его оттуда не знаю...

                System.Diagnostics.Process.Start("c:\proba.xls")
            Else
                Exit Sub
            End If
        Else
            MsgBox("Nothing copy to Excel")
        End If


    End Sub

If Not(EXL is Nothing) Then
  EXL.Quit
  EXL=Nothing
  GC.Collect()
End If
' И дальше
Dim EXL As New Excel.Application
lalalalala.....
' А файл показываем так
 Dim reply As MsgBoxResult = MsgBox("Do You want see file " & """main.xls""" & "???", MsgBoxStyle.YesNo)
            If reply = MsgBoxResult.Yes Then
                 EXL.Visible = True

 
With myrange
     .HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
     .Columns.AutoFit()
End With