Salam Kenal semua
Saya punya kode utk mengakses file excell 2003, seperti berikut :
With sConn2
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Trim(Text1.Text) & ";" & _
"Extended Properties=Excel 8.0;"
.Open
End With
If sRec2.State = adStateOpen Then sRec2.Close
sComm2.CommandText = "Select * from [sheet1$A0:Z15000]"
sComm2.ActiveConnection = sConn2
sRec2.Open sComm2, , adOpenDynamic, adLockOptimistic
Tapi kok jika membaca cell, misal A12 yang berisi angka, maka hasil
pembacaan akan null / blank / "", sehingga saya harus merupah tipe
format cell nya, tapi saya sudah coba ubah menjadi general, text dsb,
tetap saja kosong, saya pun format menjadi text dengan menambahkan
tanda " kutip satu ( ' ) " pada awal angka tersebut, sehingga pada
pojok kiri atas cell A12 itu menjadi berwarna segitiga hijau ( tanda
bahwa angka itu diperlakukan sebagai text ) baru hasil pembacaan tidak
ankan kosong. tapi yang menjadi masalah adalah, jika ada 1000 row,
apakah saya harus tambahkan 1 per satu tanda kutip satu itu pada
setiap baris, adakah yang bisa bantu beri advice, ASAP
Best Regard's
Benny
