Terima kasih Mr. Kid. Pantes, waktu saya coba ganti ".pdf" dengan ".*" timbul error.
Salam, Hendrik Karnadi ________________________________ From: Kid Mr. <[email protected]> To: [email protected] Sent: Sunday, 2 September 2012, 4:19 Subject: Re: Fw: [belajar-excel] Open file secara otomatis Ops... maaf pak Hendrik, emailnya baru kebuka sekarang... Semua file bisa dibuka, selama ekstensinya sudah memiliki associate application untuk membukanya. Pada dasarnya, cara ini adalah membuka file layaknya windows explorer membuka file. Yang perlu didinamiskan adalah baris : sfullfilename=thisworkbook.path & "\" & .value & ".pdf" Oh iya, waktu mau copas baris di atas, baris bawahnya (if bla) kayanya ada yang kurang kurungnya. Baris aslinya : if lenb(dir$(sfullfilename)<>0 then 'filenya ada beneran hehehe... masih ada kurung yang gak berpasangan... maafkan daku, soalnya gak pake dites dulu. Ubah menjadi : if lenb(dir$(sfullfilename))<>0 then 'filenya ada beneran Wassalam, Kid. 2012/8/25 hendrik karnadi <[email protected]> > >Mr. Kid, > > > >Menyambung pertanyaan dari Pak Yayat, >bagaimana Script VBA nya jika extension filenya terdiri dari ber-macam2, >antara lain .JPEG, .xls, .xlsm ? > > >Terima kasih. > > >Salam, >Hendrik Karnadi > > > >----- Forwarded Message ----- >From: Yayat Ply <[email protected]> >To: [email protected] >Sent: Saturday, 25 August 2012, 5:23 >Subject: Re: [belajar-excel] Open file secara otomatis > > > >Terima kasih Mr. Kid atassolusinya , nanti akan saya praktikan. >________________________________ > >From: "Kid Mr." <[email protected]> >Sender: [email protected] >Date: Fri, 24 Aug 2012 03:20:39 +0700 >To: <[email protected]> >ReplyTo: [email protected] >Subject: Re: [belajar-excel] Open file secara otomatis > > >Coba buat event worksheet before double click di VBE pada sheet tersebut. >Kemudian isi dengan : >dim oShellApp as object >dim sFullFileName as string > >with target 'pada range yang di double click > if .count=1 then 'hanya 1 cell > if .column=7 then 'di kolom ke-7 > if .row>3 then 'nomor baris excel-nya > 3 > if len(.value)=3 then 'isinya hanya 3 karakter > 'set nama file lengkap dengan foldernya > 'ganti thiswrokbook.path dengan pathfile-nya > 'seperti : D:\mydata\folderku > sfullfilename=thisworkbook.path & "\" & .value & ".pdf" > > if lenb(dir$(sfullfilename)<>0 then 'filenya ada beneran > set oShellApp=createobject("WScript.Shell") 'buat shell >command > oshellapp.run sfullfilename 'run file dari shell command > cancel=true 'batalkan perintah double click > endif > endif > endif > endif > endif >end with > >Wassalam, >Kid. > > >2012/8/22 Yayat Ply <[email protected]> > > >> >> Maap saya lupa melampirkannya >>Nih, saya kirimkan kembali. >>Terima kasih >>________________________________ >> >>From: hendrik karnadi <[email protected]> >>Sender: [email protected] >>Date: Wed, 22 Aug 2012 04:44:50 -0700 (PDT) >>To: [email protected]<[email protected]> >>ReplyTo: [email protected] >>Subject: Re: [belajar-excel] Open file secara otomatis >> >> >>Lampirannya ga kelihatan Pak. >> >> >>Salam, >>Hendrik Karnadi >> >> >> >> >>________________________________ >> From: "[email protected]" <[email protected]> >>To: [email protected] >>Sent: Wednesday, 22 August 2012, 10:39 >>Subject: [belajar-excel] Open file secara otomatis >> >>Selamat siang para master excel. >>Mohon bantunya dan petunjuk atas masalah yg sudah saya lampirkan pada email >>ini. >>Sebelumnya saya ucapkan banyak erima kasih. >>Maap kalau email saya terlalu singkat :) >>Powered by Telkomsel BlackBerry® >> >>------------------------------------ >> >>--------------------------------------------------------------------- >>bergabung ke milis (subscribe), kirim mail kosong ke: >>[email protected] >> >>posting ke milis, kirimkan ke: >>[email protected] >> >>berkunjung ke web milis >>http://tech.groups.yahoo.com/group/belajar-excel/messages >> >>melihat file archive / mendownload lampiran >>http://www.mail-archive.com/[email protected]/ >>atau (sejak 25-Apr-2011) bisa juga di : >>http://milis-belajar-excel.1048464.n5.nabble.com/ >> >>menghubungi moderators & owners: [email protected] >> >>keluar dari membership milis (UnSubscribe): >>kirim mail kosong ke [email protected] >>---------------------------------------------------------------------Yahoo! >>Groups Links >> >> >> [email protected] >> >> >> >> > > >
