Excel 2003 X Vb.net 2003

[Natarelli]

Amigos,

Estou com o seguinte problema:

Leio uma planilha excel e carrego um datagrid. Ocorre que algumas linhas de uma determinada coluna estão sendo geradas no datagrid como (null) e essas colunas possuem valor no excel.

Código para ler a planilha:

cmd_xls = New OleDbDataAdapter("SELECT * FROM [" & NomePlanilha & "$]", conn)

cmd_xls.Fill(dt_xls)

DataGrid1.DataSource = dt_xls

Estrutura da planilha:

CODIGO DESCRICAO

1 Etapa

10 Grupo

101U Item

102U Item

2 Etapa

20 Grupo

201U Item

202U Item

203U Item

O problema está ocorrendo extamente nas linhas em que o CODIGO é somente número.

Resultado no datagrid:

(null) Etapa

(null) Grupo

101U Item

102U Item

(null) Etapa

(null) Grupo

201U Item

202U Item

203U Item

Obs.: Na planilha excel a coluna está com formato Geral, já modifiquei para formato texto e não resolveu o problema.

Se alguém puder me ajudar, agradeço desde já.

[Natarelli]

Consegui resolver o problema editando a planilha via código e inserindo " ' " antes dos valores que estão na coluna que está gerando o problema.

Segue o código:

Dim ThisApplication As New Excel.ApplicationClass

Dim wb As Excel.Workbook = ThisApplication.Workbooks.Open(ARQUIVO)

Dim sheet As Excel.Worksheet

Dim D As Integer

sheet = wb.Worksheets().Item(PLANILHA)

'Lê a planilha até a última coluna que possua valor

For D = 12 To sheet.Range("A65536").End(Excel.XlDirection.xlUp).Row

If Not sheet.Range("A" & D & "").Value Is System.DBNull.Value Then

sheet.Range("A" & D & "").Value = "'" & sheet.Range("A" & D & "").Value

Else

Exit For

End If

Next D

ThisApplication.DisplayAlerts = False

wb.Save()

wb.Close()

ThisApplication.Quit()