PRB: Valores de Excel devueltos como NULL con OpenRecordset de DAO

1. Asegúrese de que los datos en Excel es introducidos como texto. Sólo volver a formatear la columna de Excel a texto no se lograr esto. Vuelva a escribir los valores existentes después de volver a formatear la columna de Excel. En Excel, puede utilizar F5 para volver a escribir valores existentes en la celda seleccionada.
2. Puede agregar la opción IMEX = 1; a Excel la cadena en el método OpenDatabase de conexión. Por ejemplo:

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

   Nota: configuración IMEX = 1 indica el controlador que utilizar el modo de importar. En este estado, el registro de configuración de ImportMixedTypes = Text se ser observado. Esto obliga a mixtos datos que se va a convertir en texto. Para que esto funcione correctamente, puede que también tenga que modificar la configuración del registro, TypeGuessRows = 8. El ISAM de controlador de forma predeterminada busca en las primeras ocho filas y de muestreo que determina el tipo de datos. Si este ocho de la fila muestreo es todo numérico, a continuación, establecer IMEX = 1 no convertirá el tipo de datos predeterminado a texto; permanecerá numérico.
   
   Debe procurar que IMEX = 1 no puede utilizar forma indiscriminada. Se trata de importación anexa modo, por lo que los resultados pueden ser impredecibles si se intenta realizar o actualizaciones de datos de este modo.
   
   Los valores posibles de IMEX son:

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

   la clave del registro donde se encuentran la configuración se ha descrito anteriormente es:
   
   HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\3.5\Engines\Excel
   
   Consulte la sección referencias de este artículo para obtener información en cuando la hoja de cálculo Excel tiene encabezados de columna de texto con datos numéricos.

Volver al principio

Pasos para reproducir este comportamiento

1. Hacer una referencia a biblioteca de objetos Microsoft DAO 3.5. En Visual Basic 6.0, esta será la biblioteca de objetos Microsoft DAO 3.51.
2. Agregue un CommandButton al formulario de nuevo.
3. Coloque el código siguiente en la sección de declaraciones generales del formulario:

         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
   
   						

   ejecutar el proyecto presionando la tecla F5 y observe que en la ventana depuración se imprimen los valores de texto como NULL. Si la mayoría de los valores de la hoja de cálculo Excel texto, se debería invertir el resultado del código anterior. Es decir, los valores numéricos sería volver como valores nulos.

Volver al principio