Terima kasih banyak Mr. Kid. atas solusinya, akhirnya terpecahkan maslah saya,
terima kasih juga HK atas solusi alternatifnya.
Mohon maaf saya baru sempet cek ke sini lagi.
Sekali lagi terima kasih banyak atas segala Bantuannya.
Salam
Dedi Komarudin
Pada Rabu, 29 Januari 2014 11:32, hendrik karnadi <hendrikkarn...@yahoo.com>
menulis:
Terima kasih Mr. Kid.
Salam,
HK
On Wednesday, 29 January 2014, 11:25, Mr. Kid <mr.nm...@gmail.com> 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 <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
