Administrator

Username:

Password:

All efforts to enter into this website are logged.
Unique Visitors
1207475
sejak 26 Mei 2010.

Atau rata-rata sekitar 239 pengunjung perhari.

IP addr anda:
172.70.38.33
Facebook
Mawan A. Nugroho

Promote Your Page Too
Mawan's Net

MbahDukun.com
SMK Negeri 1 Tng
SMK PGRI 1 Tng
PGRI.org
Tangerang.net
Mawan.net
Mawan.id
Mawan.my.id
Mawan.or.id
Mawan.web.id
SingleWoles.com
Balekota.com

MKom UBL 10

Blog
Mailing List

MS Access Membaca MS Excel

Mawan A. Nugroho, 07 Jul 2012 03:09:42 WIB

Misalkan kita sedang menggunakan Microsoft Access 2003, lalu berniat membaca data yang disimpan di file Microsoft Excel untuk dimasukkan ke tabel. Tadinya saya pikir sulit, tapi ternyata tidak. Caranya begini: Kita buat dulu sebuah modul di Microsoft Access. Setelah itu klik Tools > References. Beri tanda checklist pada "Microsoft Excel 11.0 Object Library" kemudian ketik program di bawah ini.

Option Compare Database

Public Sub baca_dari_excel()
   Dim xlBook As Excel.Workbook
   Dim xlSheet As Excel.Worksheet
   Dim rs As Recordset
   Dim baris As Integer

   Set xlBook = GetObject("C:\Users\Mawan\Documents\siswa.xls")
   Set xlSheet = xlBook.Worksheets(1)

   Set rs = CurrentDb.OpenRecordset("master")

   For baris = 6 To 1529
      rs.AddNew
      rs.Fields("nis") = xlSheet.cells(baris, "A")
      rs.Fields("nama") = xlSheet.cells(baris, "B")
      rs.Update
   Next baris

   rs.Close
   set rs = Nothing
End Sub


Nah... sekarang coba jalankan. Mudah kan?
Catatan: Pada file Excel, data berada mulai baris ke 6 sampai 1529. Kolom A berisi NIS (Nomor Induk Siswa), kolom B berisi Nama siswa. Silakan sesuaikan dengan data milik anda. Saya menggunakan Microsoft Windows 7.

Sekarang, bagaimana jika programnya ditulis di Microsoft Excel? Prinsipnya sama saja. Pada Microsoft Excel, klik Tools > Macro ... > Visual Basic Editor. Kemudian klik Tools > References. Beri tanda checklist pada "Microsoft DAO 3.6 Object Library" lalu ketik program di bawah ini.

Public Sub tulis_ke_access()
   Dim db As Database
   Dim rs As Recordset
   Dim baris As Integer

   Set db = OpenDatabase("C:\Users\Mawan\Documents\siswa.mdb")
   Set rs = db.OpenRecordset("master", dbOpenTable)

   For baris = 6 To 1529
      rs.AddNew
      rs.Fields("nis") = Range("A" & baris).Value
      rs.Fields("nama") = Range("B" & baris).Value
      rs.Update
   Next baris

   rs.Close
   Set rs = Nothing
   db.Close
   Set db = Nothing
End Sub

Share on:
Facebook


Belum ada komentar untuk artikel ini.

Tambah komentar singkat.

Perhatikan!

  1. Komentar anda baru dapat dilihat oleh umum setelah mendapat persetujuan dari Administrator.
  2. Untuk membendung serbuan spam, satu orang hanya boleh mengirimkan 5 komentar perhari. Jumlah komentar anda hari ini: 0 komentar.
  3. Nama ibukota negara kita adalah nama kota yang terletak di antara kota Tangerang dan Bekasi, tujuh karakter.

Pay attention please!

  1. Your comment will be visible to the public after the approval of the Administrator.
  2. To stem the invasion of spams, one person may only submit 5 comments per day. The number of your comments today: 0 comment(s).
  3. Do not waste your time by trying to send spam. I guarantee your efforts will be futile. Okay... Suppose you could probably pass a CAPTCHA test, but you will not be able to pass a special test of us. Trust me!

Nama*:
Email: (akan dirahasiakan)
Komentar*:
Verifikasi*:Ketik dua kata yang meleyot-leyot di bawah ini ke dalam kotak kecil yang sudah disediakan di bawahnya.
  Nama ibukota negara kita*:
  * = Wajib diisi.
© 2010-2024 by Mawan A. Nugroho. All rights reserved.