Konversi File Excel Ke Access

Mungkin selama ini ada kawan-kawan yang ingin mengkonversi file Excel ke database Accses. Hal ini biasa terjadi saat data tabel di excel yang ingin kita jadikan tabel di database access.. Daripada capek mengetik satu per satu data dalam tabelnya, ada baiknya kawan menggunakan cara berikut.




1. Buatlah file excel dengan data sebagai berikut :

2. Simpan file excel dengan nama sesuka anda
3. Buatlah file database dan simpan dengan nama sesuka anda
4. Buatlah form seperti gambar berikut :

5. Masuk ke bagian coding dan copas script di bawah ini:

Private Sub Command1_Click()
Dim FileExcel As String
CDialog.DialogTitle = "Excel File"
CDialog.Filter = "Excel (*.xls)|*.xls"
CDialog.InitDir = App.Path
CDialog.ShowOpen
FileExcel = CDialog.FileName
Text1 = FileExcel
End Sub
Private Sub Command2_Click()
CDialog.DialogTitle = "Access File"
CDialog.Filter = "Excel (*.mdb)|*.mdb"
CDialog.InitDir = App.Path
CDialog.ShowOpen
FileMDB = CDialog.FileName
Text2 = FileMDB
End Sub
Private Sub Command3_Click()
On Error GoTo salah
If Text1 = "" Then
MsgBox "file excel belum dipilih"
Command1_Click
Exit Sub
ElseIf Text2 = "" Then
MsgBox "file database belum dipilih"
Command2_Click
Exit Sub
ElseIf Text3 = "" Then
MsgBox "nama tabel baru belum diisi"
Text3.SetFocus
Exit Sub
End If
Dim con As New adodb.Connection
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & Text2 &
"'"
Dim strSQL As String
strSQL = "SELECT * INTO " & Text3 & " FROM [Sheet1$] IN """ & Text1 &
""" ""Excel 8.0; HDR=Yes;"""
con.Execute strSQL
con.Close
Set con = Nothing
MsgBox "konversi dari excel ke acces telah dilakukan"
On Error GoTo 0
Exit Sub
salah:
MsgBox "Mungkin nama tabel sama, coba gunakan nama tabel yang berbeda"
End Sub

SELAMAT MENCOBA!!!!!!!!