Dear Mas Andi, kebetulan saya pernah mengikuti kopdar di gramedia matraman, disana dibahas tentang kolaborasi access dan excel dengan lengkap. Salah satunya yang diinginkan Mas Andi ini. Misalnya:
Function CopyRecordDariExcel()
'Tahap 1: Deklarasi nama object dan variable yg digunakan
Dim MyConnect As String
Dim myrecordset As ADODB.Recordset
Dim MyTable As ADODB.Recordset
Dim MySQL As String
'Tahap 2: Deklarasi jenis koneksi database dan lokasinya
MyConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & CurrentProject.Path & "\KolaborasiAccessExcel.xlsm;" & _
"Extended Properties=Excel 12.0"
Dim MyConnect As String
Dim myrecordset As ADODB.Recordset
Dim MyTable As ADODB.Recordset
Dim MySQL As String
'Tahap 2: Deklarasi jenis koneksi database dan lokasinya
MyConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & CurrentProject.Path & "\KolaborasiAccessExcel.xlsm;" & _
"Extended Properties=Excel 12.0"
'Tahap 3: Membuat kode SQL
MySQL = " SELECT * FROM [Sheet2$]" & _
" WHERE [Unit Price] <=20"
MySQL = " SELECT * FROM [Sheet2$]" & _
" WHERE [Unit Price] <=20"
'Tahap 4: Inisialisasi recordset
Set myrecordset = New ADODB.Recordset
myrecordset.Open MySQL, MyConnect, adOpenStatic, adLockReadOnly
Set myrecordset = New ADODB.Recordset
myrecordset.Open MySQL, MyConnect, adOpenStatic, adLockReadOnly
'Tahap 5: Membuka table di Access menjadi Recordset
Set MyTable = New ADODB.Recordset
MyTable.Open "CopyFromExcel", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
Set MyTable = New ADODB.Recordset
MyTable.Open "CopyFromExcel", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
'Tahap 6: Import data dari excel ke table di Access
Do Until myrecordset.EOF
MyTable.AddNew
MyTable!ID = myrecordset!ID
MyTable![Order ID] = myrecordset![Order ID]
MyTable![Product ID] = myrecordset!Product
MyTable!Quantity = myrecordset!Quantity
MyTable![Unit Price] = myrecordset![Unit Price]
MyTable!Discount = myrecordset!Discount
MyTable.Update
myrecordset.MoveNext
Loop
Do Until myrecordset.EOF
MyTable.AddNew
MyTable!ID = myrecordset!ID
MyTable![Order ID] = myrecordset![Order ID]
MyTable![Product ID] = myrecordset!Product
MyTable!Quantity = myrecordset!Quantity
MyTable![Unit Price] = myrecordset![Unit Price]
MyTable!Discount = myrecordset!Discount
MyTable.Update
myrecordset.MoveNext
Loop
'Tahap 7: Bersihkan memory di VBA
myrecordset.Close
MyTable.Close
Set myrecordset = Nothing
Set MyTable = Nothing
End Function
myrecordset.Close
MyTable.Close
Set myrecordset = Nothing
Set MyTable = Nothing
End Function
Perhatikan Tahap 3: Membuat kode SQL, disinilah kita buat kriteria, kemudian mengambil datanya.
----- Original Message -----From: Andi AliSent: Tuesday, April 03, 2012 9:54 PMSubject: [belajar-access] Import data Excel ke field tertentu di tabelSalam Access...Mohon pencerahannya barangkali ada yang tau code VBA untuk memasukkan data di Excel ke dalam Fiel tertentu di Tabel access dengan suatu key tertentu.misalnya:1. saya mempunyai tabel "master" dengan field (kode, nama, jumlah)2. saya ingin memasukkan data "jumlah" yang telah di edit di Excel ke dalam tabel "master" dengan key adalah "kode"mungkin ada yang bisa membantu.wassalam.
__._,_.___
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar