Hai Dedi,
1. me-non aktifkan peringatan dari Excel cukup dilakukan saat mulai
prosedur dan sesaat sebelum mengakhiri prosedur
>> letakkan baris berikut tepat setelah baris deklarasi prosedur atau
deklarasi variabel
application.displayalerts=false
>> pastikan tidak ada perintah displayalerts lagi di antara baris-baris
script kerja
>> letakkan baris berikut tepat sebelum baris End Sub
application.displayalerts=true
2. menyimpan sheet menjadi file lain
>> menjadi file excel lain
'jika sheet telah disimpan dalam variabel bertipe sheet, maka sheets("nama
sheetnya") bisa diganti dengan nama variabelnya
sheets("nama sheetnya").copy
activeworkbook.saveas "nama filenya",56 'file format 56 = xls, 52 = xlsm,
51 = xlsx, 50 = xlsb :: nama file bisa berupa variabel string
>> menjadi file pdf
'jika sheet telah disimpan dalam variabel bertipe sheet, maka sheets("nama
sheetnya") bisa diganti dengan nama variabelnya
sheets("nama sheetnya").exportasfixedformat xltypepdf,"nama file
pdfnya" 'bisa juga export object range
Wassalam,
Kid.
2014-01-29 Dedi Komarudin <[email protected]>
>
>
> Dear teman
>
> Saya punya kasus seperti ini,
> saya ingin mengextrak masing-masing sheet ke folder yang di tentukan
> dengan penamaan file sesuai penamaan sheet dengan hasil 1 file format *xls
> dan 1 lagi dengan format *pdf dari worksheet "MediaOrderRadio" namun
> hasilnya selalu tersimpan di my document bukan di folder yang saya mau, dan
> juga selalu muncul peringatan :
>
> A file named "D:\data eikeu\database radio\new data gabung\FINIS DATA
> RADIO NASIONAL.XLSM already exists in this location. Do you to replace it?
>
> begitupun dengan peringatan save to pdf yang selalu muncul dan harus di
> clik ulang tiap sheet padahal itu tidak di inginkan muncul.
>
> Atas perhatian dan bantuannya kami ucapkan terima kasih.
>
> Salam
> Dedi Komarudin
>
>
>
