PROBLEMA: Excel valores retornados como NULL Usando OpenRecordset do DAO

1. Garantir que os dados no Excel são inseridos como texto. Apenas reformatar a coluna do Excel para texto não será fazer isso. Você deve inserir novamente os valores existentes depois de reformatar a coluna do Excel. No Excel, você pode usar F5 inserir novamente os valores existentes na célula selecionada.
2. Você pode adicionar a opção IMEX = 1; para o Excel conectar seqüência de caracteres no método OpenDatabase. Por exemplo:

         Set Db = OpenDatabase("C:\Temp\Book1.xls", _
               False, True, "Excel 8.0; HDR=NO; IMEX=1;")
   
   						

   Observação: configuração IMEX = 1 informa o driver para usar o modo importação. Nesse estado, o registro configuração ImportMixedTypes = Text será ser notado. Isso força mistos dados a ser convertido em texto. Para isso funcione de forma confiável, você também pode ter que modificar a configuração do Registro, TypeGuessRows = 8. O ISAM analisa as oito primeiras linhas de driver por padrão e de amostragem que determina o tipo de dados. Se este oito linha amostragem é todos os numérica, em seguida, definir IMEX = 1 não converterá o tipo de dados padrão para texto; ele permanecerá numérico.
   
   Você deve ter cuidado que IMEX = 1 não ser usados indiscriminadamente. Isso é importar modo, portanto, os resultados podem ser imprevisíveis se você tentar fazer acrescenta ou atualizações de dados nesse modo.
   
   As configurações possíveis de IMEX são:

           0 is Export mode
           1 is Import mode
           2 is Linked mode (full update capabilities)
   
   						

   a chave do registro onde as configurações descritas acima estão localizadas é:
   
   HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\3.5\Engines\Excel
   
   Consulte a seção Referências deste artigo para obter informações sobre quando a planilha do Excel tem cabeçalhos de coluna de texto com dados numéricos.

Voltar para o início

Etapas para reproduzir o problema

1. Fazer uma referência a biblioteca de objetos do Microsoft DAO 3.5. No Visual Basic 6.0, isso será Microsoft DAO 3.51 Object Library.
2. Adicione um CommandButton ao formulário novo.
3. Coloque o código seguinte na seção de declaração geral do formulário:

         Dim Db As Database
         Dim Rs As Recordset
   
         Private Sub Command1_Click()
             Set Rs = Db.OpenRecordset("Sheet1$")
             'This will print the spreadsheet Text values as Nulls.
   
             Do While Not Rs.EOF
                 Debug.Print Rs(0)
                 Rs.MoveNext
             Loop
   
         End Sub
   
         Private Sub Form_Load()
             'HDR refers to the Excel header row.
         Set Db = OpenDatabase("C:\Temp\Book1.xls", _
                  False, True, "Excel 8.0; HDR=NO;")
   
         End Sub
   
         Private Sub Form_Unload(Cancel As Integer)
             Db.Close
             Set Db = Nothing
   
         End Sub
   
   						

   executar o projeto pressionando a tecla F5 e observe que, na janela Verificação imediata os valores de texto são impressos como nulo. Se a maioria dos valores da planilha do Excel eram texto, o resultado do código acima seria ser revertido. Ou seja, os valores numéricos seriam voltar como nulos.

Voltar para o início