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
>
>
>
>
