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 [email protected] [belajar-excel] <
[email protected]>:
>
>
> 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
>
>
>
