bung eko...
sy mau mencoba membagi apa yang pernah sy lakukan, mungkin cara ini masih
banyak kelemahan, tapi cukup bisa menyelesaikan kebutuhan sy waktu itu..
1. bikin koneksi ke file excel
Set cn = New ADODB.Connection
With cn
.Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
"DriverID=790;" & _
"DBQ=" & strFName & " ; " & _
"DefaultDir= & strDir
.Open
End With
ket :
strFName berisi nama file excel (hanya nama file tanpa folder directory)
misal "DATAKU.XLS"
strDir berisi nama folder direktory misal "C:\My Documents"
2. membaca data record excel per baris.
cara sy ini terpaksa membaca record perbaris karena mengalami kesulitan
bila membaca
keseluruhan record (selalu record yang terakhir tidak terbaca)
-- mungkin rekan lain bisa membantu??
For n = 1 To 10000
Dim rsADO As New ADODB.Recordset
Set rsADO = Nothing
' Specify Sheet Name and Cell Range
strSQL = "SELECT * FROM [A" + Trim(Str(n)) + ":R" + Trim(Str(n + 1)) +
]"
rsADO.Open strSQL, cn, adOpenDynamic, adLockOptimistic, adCmdText
setelah ini akan didapatkan record set yang berisi data2 dalam sel excel
isi sel kolom A (pertama) = rsADO.Fields(1).Name
isi sel kolom B (kedua) = rsADO.Fields(2).Name
isi sel kolom C (ketiga) = rsADO.Fields(3).Name
dst....
Next n
ket :
sy membaca sampai 10000 baris dengan asumsi data excel sy tdk mencapai
sebanyak itu,
selamat mencoba...._
[Non-text portions of this message have been removed]
