Terima kasih Mr. Kid. Salam, HK
On Wednesday, 29 January 2014, 11:25, Mr. Kid <[email protected]> wrote: Pak Hendrik, ThisWorkbook.Path untuk mendapatkan path dari workbook kerja. Jadi, penyusunan nama file tergantung path file dan nama filenya. Jika path lokasi save sama dengan path-nya workbook, maka bisa menggunakan ThisWorkbook.Path Kalau path tidak sama dengan workbook kerja, maka silakan ditentukan sendiri. Wassalam, Kid. 2014-01-29 hendrik karnadi <[email protected]> > >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
