Dear BeExceller, Mr. Kid. Terima kasih atas solusinya. It's work.
Wassalam, Harry ________________________________ Dari: Mr. Kid <[email protected]> Kepada: [email protected] Dikirim: Sabtu, 10 November 2012 16:56 Judul: Re: [belajar-excel] Membuka & menutup 3 file sekaligus dengan 1x klik Variabel workbooknya baru 1 bijik, yaitu wbkDATABASE. Buatlah sebanyak yang diinginkan. Lalu script pembuka workbook juga baru untuk buka sebuah workbook bernama DATABASE.xls yang disimpan dalam variabel workbook wbkDATABASE, yaitu dibagian blok : If Workbooks("DATABASE.xls") Is Nothing Then Set wbkA = Workbooks.Open(wbkPROGRAM.Path & "\DATABASE.xls") Else Set wbkDATABASE = Workbooks("DATABASE.xls") End If wbkDATABASE.Activate Jika akan membuka 3 file atau berapapun yang diinginkan, buat 3 blok seperti itu tapi nama variabel penyimpannya diganti dengan variabel yang akan digunakan untuk file database1 atau 2. Sesuaikan juga nama filenya jadi database1 atau 2 atau sekian. Kalau sudah lancar buat script, baru belajar loop. Wassalam, Kid. 2012/11/10 Harry <[email protected]> > >Dear BeExceller, > > >Saya membuat Workbook yang hasil inputan UserForm-nya ke file database dengan >proses buka tutup file. >Jika saya menggunakan 1 file database, berarti proses penginputannya harus >bergantian. Karenanya saya menggunakan 3 file database sekaligus dng nama >DATABASE_1, DATABASE_2 & DATABASE_3. > > >Untuk meng-akses (membuka) database dari Workbook aktif biasanya saya >menggunakan rumus sbb: > > >Private Sub Cmdopenfile_Click() > Dim wbkA As Workbook, wbkDATABASE As Workbook > On Error Resume Next >Set wbkA = ThisWorkbook >If Workbooks("DATABASE.xls") Is Nothing Then > Set wbkA = Workbooks.Open(wbkPROGRAM.Path & "\DATABASE.xls") >Else > Set wbkDATABASE = Workbooks("DATABASE.xls") >End If >wbkDATABASE.Activate > With Sheets("HOME") > .Visible = -1: .Activate > End With > Unload Me >End Sub > > >Tapi setelah menggunakan 3 Database, saya kesulitan untuk meng-akses (membuka >dan menutup) 3 file Database tersebut dengan mengacu pada rumus tersebut >diatas. > > >Mohon bantuan teman-teman BeExceller untuk dapat memberikan solusi dengan 1 x >klik, kita dapat membuka dan/atau menutup 3 file sekaligus. > > >Terima kasih atas berkanan solusinya. > > > > > > >Harry > > > > >
