Erro lendo XLS

Question

Boa tarde,

Estou encontrando um problema ao ler um arquivo do tipo xls, acredito que o problema esteja na coluna aonde existem ponto, como não coloco aspas cause o erro, ele apresenta o registro vazio Ex:

1    ok
11  ok
11.1 Erro, retornar vazio.

Meu código para acessar o arquivo:

Dim dtb As New DataTable
Dim conexao As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & _
arquivo & _
";Extended Properties=Excel 8.0;"

Dim sql As String = "select * from [" + nomeAba + "]"
Dim conn As OleDbConnection = Nothing
 
conn = New OleDbConnection(conexao)
Dim cmd As New OleDbCommand(sql, conn)
Dim da As New OleDbDataAdapter(cmd)

da.Fill(dtb)

Desde já agradeço

Answer 1

Achei a solução neste site:

http://passeiporisso.com.br/wp/?page_id=81

O certo seria:

Dim conexao As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                "Data Source=" & _
                                arquivo & _
                                ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""

Answer 2

Boa tarde Fábio,

Que bom que conseguiu resolver o seu problema! Muito obrigado por retornar com a solução dele para nós, isso facilitará se alguém vier ao fórum procurando resolução para o mesmo problema.

Qualquer nova dúvida, estamos a disposição.

Abraço!

---

Eduardo Romero

Esse conteudo e fornecido sem garantias de qualquer tipo, seja expressa ou implicita.

MSDN Community Support

Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais facil para os outros visitantes encontrarem a resolucao mais tarde.