PRB: Excel ??? NULL DAO OpenRecordset ????? ?? ??? ??? ??? ??

1. Insure ?? Excel ??? ???? ??? ?? ??? ??? ???? ???? ??? ??? ???? ??? ?? ??? Excel ????? reformatting ????? ???? ???? ??? Excel ????? reformatting ?? ??? ?? ?????? ????? ???? ???? ???? ?????? ??? Excel ???, ?? ????? ???? ??? ?? ?????? ????? ?? ??? ?? ???? ???? ?? ??? F5 ?? ????? ?? ???? ????
2. ?????? IMEX ?????? = 1; OpenDatabase ?????? ??? ???????? ?? ?????? ???? ?? ??? Excel. ?????? ?? ???::

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

   ????? ???: ?????? IMEX = 1 ???? ??? ?? ????? ???? ?? ??? ??????? ???? ??? ?? ?????? ???, ????????? ImportMixedTypes ??? ???? = ??? noticed ?? ?????? ?? forces ????-???? ???? ?? ??? ??? ?????? ???? ?? ???? ??? ???? ??? reliably ????? ???? ?? ???, ???? ?? ??? ???? ?? ????????? ??????, TypeGuessRows ?? ??????? ???? ?? ??? = 8? ISAM ???????? ??? ?? ??????? ???? ?? ????????? ??? ????? ?? ?? ?? sampling ?? datatype ????????? ???? ??? ??? ?? ????? row sampling IMEX ??? ???? ?? ?? ??? ??????????, ?? = 1 ???????? datatype ??? ??? ?????? ???? ?????; ?????????? ??????
   
   Careful ???? ????? ?? IMEX = 1 ????? ???? ???? ?? indiscriminately. ???? ???? ?? ?? ???, ?????? ???? ???? ?? ?????? ???? ??? ????????? ?? ???? ??? ???? appends ?? ?? ??? ??? ???? ?? ?????? ???? ???
   
   IMEX ?? ??????? ???????? ???:

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

   ???? ???????? ?? ??? ?????? ????? ??? ?? ????????? ????? ??:
   
   HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\3.5\Engines\Excel
   
   ?? ??????? ?? ??? ?? ???? ?? ?????? ??? ?? ????? ?? Excel ?????????? ??? ??? ????? ????? ??? ???????? ???? ???

????? ?? ???? ????

??????? ?? ???: ??????? ???? ?? ??? ???

1. Microsoft DAO 3.5 ???????? ????????? ?? ??? ??? ?????? ?????? ????? ??? 6.0, ??? ?? Microsoft DAO 3.51 ???????? ????????? ?? ??????
2. ?? ??????? ?? ??? ??? CommandButton ???????
3. ??????? ?? ??????? Declarations ?????? ??? ????? ??? ?? ????:

         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
   
   						

   F5 ????? ??? ?? ????????? ?? ????? ?? ??? ???? ?? ???? ????? ??? ????? ?? ??? ??????? ???? ??? ?? ?? ??? ??? ??? ??? Excel ?????????? ??? ????? ?? majority ??? ?? ??? ?? ??, ?? ?? ??? ??? ?????? ???? ?? ??????? ??????, ???????? ??? ???? ??? Nulls ?? ??? ??? ?????

????? ?? ???? ????