Apakah masih diperlukan "pasangan" ini Mr. Kid jika user sudah melanglang buana ke berbagai file lain ?
On Wednesday, 29 January 2014, 11:00, Mr. Kid <[email protected]> wrote: 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 > Dim Path As String Path = ThisWorkbook.Path & "\" Terima kasih. Salam, HK
