|
Transfer Data Dari MS Excel ke MS Access |
|
|
'Deskripsi: Mentransfer data dari MS Excel ke dalam tabel MS
Access.
'Pembuat : Herman Liu, diterjemahkan oleh Masino
Sinaga
'
([EMAIL PROTECTED])
'Persiapan: 1. Buat project baru dengan 1 form dan 1
commandbutton.
'
2. Klik menu Project->References->lalu ceklist Microsoft DAO 3.5
'
Object Library.
'
3. Buat satu file baru (New) MS Access dgn nama "Db1.mdb",
'
dan tidak perlu ada tabelnya.
'
4. Buat satu file baru (New) MS Excel dgn nama "Book1.xls",
'
dan pada Sheet1, isikan data sebagai berikut (baris pertama
'
merupakan judul tabel ybt, yaitu: Nomor Nama
dst...):
'
A B
C
D
'
1 Nomor Nama Nilai Golongan
'
2 1.
Adi 75
1
'
3 2. Joko
80 2
'
4 3. Badu
65 3
'
5 4. Roni
88 4
'
5. Copy-kan coding di bawah ini ke dalam editor form
Anda.
'
6. Jalankan program, dan lihat hasilnya di file Db1.mdb,
'
akan terbentuk tabel baru bernama Table1 yang di dalamnya
'
terisi data dari MS Excel tsb.
'
7. Mengenai hal ini, Anda juga dapat memperdalamnya di
'
CD MSDN, dengan topik "How to Append An Excel Worksheet
'
to A Database Using DAO"
'
8. Silahkan Anda sesuaikan dengan kebutuhan. Ini
hanya contoh/
'
simulasi bagaimana VB bisa mengambil data dari file MS
Excel.
'-------------------------------------------------------------------------------
Option
Explicit
Private
Sub Command1_Click()
On
Error GoTo errHandler
Dim
mExcelFile As String
Dim
mAccessFile As String
Dim
mWorkSheet As String
Dim
mTableName As String
Dim
mdatabase As Database
mExcelFile = App.Path & "\Book1.xls"
mAccessFile = App.Path & "\Db1.mdb"
mWorkSheet = "Sheet1"
mTableName = "Table1"
'Anda bisa memakai "Excel 7.0" or 8.0
tergantung dari
'ISAM yang terinstall di
PC Anda.
Set mdatabase =
OpenDatabase(mExcelFile, True, False, "Excel 5.0")
mdatabase.Execute "SELECT * into
[;database=" & mAccessFile & "]." & _
mTableName & " FROM [" & mWorkSheet &
"$]"
MsgBox "Sukses. Buka dengan MS Access
untuk melihat tabel " & mTableName
Exit Sub
errHandler:
If Err.Number = 3010
Then
MsgBox mTableName
& " sudah ada!" & vbCrLf & _
"Hapus " &
mTableName & " dulu atau pilih nama yang lain."
Else
MsgBox Err.Number
& " " & Err.Description
End If
End
Sub
Private
Sub Form_Unload(Cancel As Integer)
End
End
Sub
