Pegar dados do excel e passar para datagridview

[marlonboecker 3]

Bom galera, estou tentando pegar o conteúdo de uma determinada planilha e montar um datagrid, só que nunca programei em VB e nao estou conseguindo o resultado.

 

Fiz o seguinte código, mas esta dando um erro. Diz que nao foi encontrada tabela 0;

Imports System.Data.OleDb

Public Class Form1
    'Lê os dados do Arquivo Excel
    Private Function LerExcel(ByVal arquivo As String, ByVal nomeAba As String) As DataSet
        Dim dts As New DataSet
        'String de Conexão
        Dim conexao As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                "Data Source=" & _
                                arquivo & _
                                ";Extended Properties=Excel 8.0;"
        'Comando SQL
        Dim sql As String = "select * from [" + nomeAba + "]"
        Dim conn As OleDbConnection = Nothing

        Try
            conn = New OleDbConnection(conexao)
            Dim cmd As New OleDbCommand(sql, conn)
            Dim da As New OleDbDataAdapter(cmd)
            'Aqui Preenchemos o DataSet
            da.Fill(dts)
        Catch ex As Exception
            MessageBox.Show("Erro na Leitura do Arquivo.")
        Finally
            If conn IsNot Nothing AndAlso conn.State = ConnectionState.Open Then
                conn.Close()
            End If
        End Try

        Return dts
    End Function

 

    Private Sub btnLer_Click_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLer_Click.Click
        Dim arquivo As New OpenFileDialog
        'Abrimos a seleção do arquivo excel
        If arquivo.ShowDialog = Windows.Forms.DialogResult.OK Then
            dgvExcel.DataSource = LerExcel(arquivo.FileName, "Plan1$").Tables()
        End If
    End Sub
End Class

Vejam se podem me ajudar.

 

Obrigado!!