Natarelli 0 Denunciar post Postado Junho 1, 2006 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
Natarelli 0 Denunciar post Postado Junho 5, 2006 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