Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Natarelli

EXCEL 2003 x VB.NET 2003

Recommended Posts

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_xlsEstrutura da planilha:CODIGO DESCRICAO1 Etapa10 Grupo101U Item102U Item2 Etapa20 Grupo201U Item202U Item203U ItemO problema está ocorrendo extamente nas linhas em que o CODIGO é somente número.Resultado no datagrid:(null) Etapa(null) Grupo101U Item102U Item(null) Etapa(null) Grupo201U Item202U Item203U ItemObs.: 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á.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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.ApplicationClassDim wb As Excel.Workbook = ThisApplication.Workbooks.Open(ARQUIVO)Dim sheet As Excel.WorksheetDim D As Integersheet = 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).RowIf Not sheet.Range("A" & D & "").Value Is System.DBNull.Value Thensheet.Range("A" & D & "").Value = "'" & sheet.Range("A" & D & "").ValueElseExit ForEnd IfNext DThisApplication.DisplayAlerts = Falsewb.Save()wb.Close()ThisApplication.Quit()

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.