[Attachment(s) from Sofyan Efendi included below]
Dear Mas Hendra Agestha Hamid, pertama kali buatlah sebuah file Access kemudian tambahkan form, lalu buat command button untuk membuka file xlsm. Misal:
Private Sub Command0_Click()
'Sebelum menjalankan procedure dibawah ini, pastikan library ini sudah ditambahkan
'di Tools -> References:
'- Microsoft Excel Objects Library
'Versi sesuai dengan Office yg diinstall di PC nya
'Sebelum menjalankan procedure dibawah ini, pastikan library ini sudah ditambahkan
'di Tools -> References:
'- Microsoft Excel Objects Library
'Versi sesuai dengan Office yg diinstall di PC nya
'Tahap 1: Deklarasi nama object dan variable yg digunakan
Dim xl As Excel.Application
Dim xlwkbk As Excel.Workbook
Dim xl As Excel.Application
Dim xlwkbk As Excel.Workbook
'Tahap 2: Buka file Excelnya
Set xl = Excel.Application
Set xlwkbk = xl.Workbooks.Open(CurrentProject.Path & "\SumberDB.xlsm")
'Tahap 3: Tampilkan Excel agar terlihat workbooknya
xl.Visible = True
Set xl = Excel.Application
Set xlwkbk = xl.Workbooks.Open(CurrentProject.Path & "\SumberDB.xlsm")
'Tahap 3: Tampilkan Excel agar terlihat workbooknya
xl.Visible = True
'Tahap 4: Bersihkan memory di VBA
Set xl = Nothing
Set xlwkbk = Nothing
End Sub
Set xl = Nothing
Set xlwkbk = Nothing
End Sub
Kemudian buat file xlsm, di Sheet1 tambahkan judul kolom dan datanya, lalu tekan Alt+F11. Pada class module Sheet1, tambahkan procedure:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveWorkbook.Save
End Sub
ActiveWorkbook.Save
End Sub
Save file xlsm ini dengan nama : SumberDB.xlsm, lalu exit dari excel.
Buka file access yg dibuat pada langkah 1 diatas, lalu buat link table ke file SumberDB.xlsm di Sheet1. Buka form nya, lalu klik tombolnya.
File excel akan terbuka, kemudian cobalah ubah salah satu data yg ada, maka dengan segera table di Access pun akan berubah.
Sample bisa di download, lalu simpanlah di folder D:\ACC_Buka_XL\
Agar selalu membuka instance baru, cukup mengganti kode:
Set xl = Excel.Application
Menjadi:
Set xl = New Excel.Application
Pada 18 Mei 2011 20:24, Hendra Agestha Hamid <the_agestha@yahoo.com> menulis:
Dear Warga Milis...
Mohon pencerahannya :
Bagaimana coding untuk membuka sebuah file excel (misal ABC.xls, sheet1) dari sebuah button dan file tsb terbuka dalam mode read and write sedang ABC.xls, sheet1 tersebut kita set menjadi link table di database kita..?
Maksud saya adalah ingin membuka file excel tsb (dalam kondisi database access juga terbuka) dan setiap kita merubah data di file excel tsb otomatis data tabel di access yg merupakan hasil link tabel dari file tsb juga otomatis berubah...
Terima kasih
Regards
Hendra
__._,_.___
Attachment(s) from Sofyan Efendi
1 of 1 File(s)
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar