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