PRB: Nilai-nilai Excel kembali sebagai NULL menggunakan DAO OpenRecordset

1. Memastikan bahwa data dalam Excel dimasukkan sebagai teks. Hanya reformatting Excel kolom teks tidak akan melakukannya. Anda harus memasukkan kembali ada nilai setelah reformatting Excel kolom. Dalam Excel, Anda dapat menggunakan F5 untuk memasukkan kembali nilai-nilai yang ada dalam sel terpilih.
2. Anda dapat menambahkan pilihan IMEX = 1; untuk Excel menghubungkan string dalam OpenDatabase metode. Misalnya:

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

   Catatan: Pengaturan IMEX = 1 memberitahu sopir untuk menggunakan mode impor. Dalam keadaan ini, registri yang menetapkan ImportMixedTypes = teks akan melihat. Hal ini akan memaksa campuran data untuk dikonversikan ke teks. Untuk bekerja terpercaya, Anda mungkin juga harus mengubah pengaturan registri, TypeGuessRows = 8. Islam TERPADU driver secara default terlihat pada baris pertama delapan dan dari sampel itu menentukan datatype. Jika ini delapan baris sampling semua angka, kemudian menetapkan IMEX = 1 tidak akan mengkonversi default datatype untuk teks; itu akan tetap numerik.
   
   Anda harus berhati-hati bahwa IMEX = 1 tidak boleh digunakan tanpa pandang bulu. Ini adalah Impor modus, sehingga hasil mungkin tak terduga jika Anda mencoba melakukan menambahkan atau memperbarui data dalam mode ini.
   
   Pengaturan mungkin IMEX adalah:

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

   Kunci registri di mana pengaturan yang diuraikan di atas berada adalah:
   
   HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\3.5\Engines\Excel
   
   Lihat bagian referensi dari artikel ini untuk informasi tentang ketika Excel spreadsheet memiliki teks kolom header dengan data numerik.

Kembali ke atas

Langkah-langkah untuk mereproduksi perilaku

1. Membuat referensi ke perpustakaan objek Microsoft DAO 3.5. Dalam Visual Basic 6.0, ini akan menjadi perpustakaan objek Microsoft DAO 3.51.
2. Tambah CommandButton bentuk baru.
3. Letakkan kode berikut dalam bentuk umum Deklarasi bagian:

         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
   
   						

   Menjalankan proyek dengan menekan tombol F5 dan perhatikan bahwa di jendela Debug nilai-nilai teks dicetak sebagai Null. Jika sebagian besar nilai-nilai di Excel Spreadsheet yang teks, maka hasil dari kode di atas akan dibalikkan. Itu adalah, nilai-nilai numerik akan kembali sebagai Nulls.

Kembali ke atas