Visual Basic

Private Sub Button_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim m_sConn1 As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                  "Data Source=C:\Temp\Test.xlsx;" & _
                  "Extended Properties=""Excel 12.0 Xml;HDR=No;IMEX=1"""     'IMEX=1 would treat all columns as text

        Dim conn1 As New System.Data.OleDb.OleDbConnection(m_sConn1)
        conn1.Open()
        Dim da As OleDbDataAdapter
        Dim ds As New System.Data.DataSet
        Dim test As String
        test = "[Sheet1b$]"
        Dim teststring As String
        teststring = "Select * FROM" & test & """"

        da = New OleDbDataAdapter(teststring, conn1)
        da.Fill(ds, "TestTable")
        da.Dispose()

        Dim bindingSource As New BindingSource(ds, "TestTable")

        excelDataGrid.ItemsSource = bindingSource
        conn1.Close()

    End Sub

    Private Sub getList_Click(sender As Object, e As RoutedEventArgs) Handles getList.Click

        Dim m_sConn1 As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                  "Data Source=C:\Temp\Test.xlsx;" & _
                  "Extended Properties=""Excel 12.0 Xml;HDR=No;IMEX=1"""     'IMEX=1 would treat all columns as text
        Dim conn1 As New System.Data.OleDb.OleDbConnection(m_sConn1)
        conn1.Open()
        Dim test As New System.Data.DataTable
        test = conn1.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
        If test Is Nothing OrElse test.Rows.Count < 1 Then
            Throw New Exception("Error: Could not determine the name of the first worksheet.")
        End If
        Dim firstSheetName As String
        Dim i As Integer

        For i = 0 To test.Rows.Count - 1
            firstSheetName = test.Rows(i)("TABLE_NAME").ToString()
            List1.Items.Add(firstSheetName)

        Next



    End Sub

Dim TestDataTabe As System.Data.DataTable
        TestDataTabe = DirectCast(excelDataGrid.ItemsSource, System.Data.DataView).ToTable

Private Sub Button_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim m_sConn1 As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                  "Data Source=C:\Temp\Test.xlsx;" & _
                  "Extended Properties=""Excel 12.0 Xml;HDR=No;IMEX=1"""     'IMEX=1 would treat all columns as text

        Dim conn1 As New System.Data.OleDb.OleDbConnection(m_sConn1)
        conn1.Open()
        Dim da As OleDbDataAdapter
        'Dim ds As New System.Data.DataSet
        Dim ds As New System.Data.DataTable
        Dim test As String
        test = "[Sheet1b$]"
        Dim teststring As String
        teststring = "Select * FROM" & test & """"

        da = New OleDbDataAdapter(teststring, conn1)
        'da.Fill(ds, "TestTable")
        da.Fill(ds)
        da.Dispose()

        'Dim bindingSource As New BindingSource(ds, "TestTable")

        ' excelDataGrid.ItemsSource = bindingSource
        excelDataGrid.ItemsSource = ds.DefaultView


        'Public DataAdapter As New sqlClient.sqlDataAdapter(sqlCommandstr, sqlConnectStr)

        'Public dbTable As New DataTable

        'First I define the sqlAdapter and a data table object, now,

        'DataAdapter.SelectCommand.CommandText="select * from Company" --> where Company is just a table with few fields

        'DataAdapter.fill(dbTable)
        'DataGrid1.ItemSource=dbTable.DefaultView
     


        conn1.Close()

    End Sub

Private Sub Button_Click_2(sender As Object, e As RoutedEventArgs)
        Dim TestDataTabe As System.Data.DataTable
        TestDataTabe = DirectCast(excelDataGrid.ItemsSource, System.Data.DataView).ToTable


        'listItem.Items.Add(TestDataTabe.Rows(3).Item(1))

    End Sub