Hai RR, Pada *event click lbpbxls* *mulai baris On Error sampai End if dibuang* dan *diganti* dengan baris kode berikut :
if len( dir(thisworkbook.path & "\bpb.xls") )=0 then msgbox "File BPB.xls tidak ditemukan!!!", vbinformation,"Proses embuh" else set wb=appxl.workbooks.open( thisworkbook.path & "\bpb.xls ) if wb is nothing then msgbox "File BPB.xls tidak bisa dibuka!!!",vbinformation,"Proses embuh" appxl.quit else appxl.visible=true endif endif Lalu coba jalankan dan kabarkan pesan apa yang muncul. Regards, Kid 2017-03-19 17:57 GMT+07:00 RR TV ratrisya...@gmail.com [belajar-excel] < belajar-excel@yahoogroups.com>: > > > Dear Para Master > > Saya buat program ini dulu dipakai di excel 2003 dan 2007 lancar2 saja.. > Tp sekarang kok gak bisa? > Terutama di 2007, mungkin pernah saya update dulu.. > > Indikasi yg bikin error "appXL" nya. > Mohon bantuannya. > Thanks. > > Salam, > RR > > >