Dear BeExceller,

Mohon info / penjelasan sebagaimana rumus sbb:


Set wbkA = ThisWorkbook
Set wbkDB = Workbooks.Open(wbkA.Path & "\database.xls")
 wbkA.Activate

Rumus tersebut diatas ( Set wbkDB = Workbooks.Open(wbkA.Path & 
"\database.xls")  ) menggambarkan bahwa File "database.xls" dalam keadaan 
tertutup (tidak aktif) dan untuk memasukkan data yang ada pada User Form yang 
telah kita isi, maka rumus tersebut harus dipergunakan.

Pertanyaan saya adalah :
Bagaimana cara dan rumusnya jika kondisi File "database.xls" tersebut sudah 
memang dalam keadaan terbuka (aktif)...???

karena jika kita tetap menggunakan rumus tersebut, maka akan muncul peringatan 
sbb:
database.xls is already open. Reopening will cause any changes you made to be 
discarded. Do you want to reopen database.xls?

Saya telah mencoba rumus sbb:
Set wbkA = ThisWorkbook
Set wbkDB = Workbooks.Activate(wbkA.Path & "\database.xls")
 wbkA.Activate
 wbkDB.Activate

tapi sama sekali tidak berfungsi bahkan Error.

Mohon berkenan infonya.

Terima kasih.

Regards,


Harry

N/B:
wbkA dalam deadaan aktif
wbkDB juga dalam keadaan aktif

Kirim email ke