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 <hendrikkarn...@yahoo.com>
>
>
> 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 <mr.nm...@gmail.com>
> 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 <dediko...@yahoo.co.id>
>
>
> 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
>
>
>
