Экспорт данных в Excel после фильтрации

 Private Sub ПоискButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПоискButton2.Click
 
        Первая_четвертьBindingSource.Filter = ("ID_класса='" & ComboBox2.Text & "'")
        Первая_четвертьBindingSource.Filter = ("ID_предмет=" & ComboBox1.Text)
 
      end sub

Try
 
 
            Dim Ex As New Microsoft.Office.Interop.Excel.Application
            Process.Start("1.xlsx")
 
 
            Dim Spec As New werDataSet.Первая_четвертьDataTable()
            Первая_четвертьTableAdapter.Fill(Spec)
 
            For i As Integer = 0 To Spec.Rows.Count - 1
                For j As Integer = 0 To Spec.Columns.Count - 1
                    Dim excelRange As Microsoft.Office.Interop.Excel.Range = CType(Ex.Cells(1, i + 1), Microsoft.Office.Interop.Excel.Range)
                    excelRange = CType(Ex.Cells((i + 16), (j + 1)), Microsoft.Office.Interop.Excel.Range)
                    excelRange.Value2 = Spec(i)(j)
                Next
            Next
 
 
        Catch ex As Exception
            MsgBox(ex.Message + "  Ошибка ")
        End Try