EXCEL NO DATAGRID

ADHEL 18/05/2011 15:07:29
#374288
Existe um topico no vbmania do amigo ALTAIR que fala sobre o mesmo assunto.
Nesse topico o JONATHAN resolveu.
Eu tentei fazer como o descrito e não deu certo

Vou postar o codigo que estou usando


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Conexao As String = [Ô]Provider=Microsoft.Jet.OleDb.4.0;data source=c:    este.xls;Extended Properties=Excel 8.0;[Ô]
Dim DA As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter([Ô]SELECT * FROM [Plan1$][Ô], Conexao)
Dim DT As DataTable = New DataTable
DA.Fill(DT)
dgv.DataSource = DT.DefaultView
End Sub

Vou postar o erro que aparece

[ô]Plan1$[ô] não é um nome válido. Certifique-se de que ele inclua somente caracteres ou pontuação válidos e de que não seja longo demais.

nesse topico do amigo Altair o JONATHAN deu um link do exemplo no Macoratti,fiz o download mas mesmo assim o erro persisti

vou postar o arquivo excel para apreciação melhor de vocês

Muito obrigado a todos
ALTAIR148 18/05/2011 16:37:01
#374302 Resposta escolhida
Olá, amigo tente assim que vai dar certo:


     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Conexao As String = [Ô]Provider=Microsoft.Jet.OleDb.4.0;data source=c:    este.xls;Extended Properties=Excel 8.0;[Ô]
        Dim DA As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter([Ô]SELECT * FROM [RATEIO$][Ô], Conexao)
        Dim DT As DataTable = New DataTable
        DA.Fill(DT)
        DataGridView1.DataSource = DT.DefaultView
    End Sub



O único erro é o nome da planilha é RATEIO e não PLAN1.

Se tiver dúvidas poste ai..

Abraços
ADHEL 18/05/2011 16:43:12
#374303
ALTAIR
Perfeito, Muito obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar