Untuk mendapatkan folder pilihan user, coba kembangkan prosedur ambilfile
yang ada di :
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/32428
dengan menyesuaikan jenis filedialog yang dibutuhkan untuk ambil folder.
Simpan folder pilihan user ke sebuah variabel.
Siapkan variabel nama file dan susun nama file (lengkap dengan folder
pilihan user) sesuai kebutuhan.
Setelah itu baru proses copy sheet
1. siapkan variabel workbook kerja, workbook baru hasil copy
dim wbkKerja as workbook, wbkBaru as workbook
2. set masing-masing workbook
set wbkkerja=thisworkbook
set wbkbaru=workbooks.add
3. kembali ke workbook kerja
wbkkerja.activate
4. mulai copy sheet
sheets("nama sheet pertama").copy wbkbaru.sheets(1)
sheets("nama sheet kedua").copy wbkbaru.sheets(2)
sheets("nama sheet ketiga").copy wbkbaru.sheets(3)
5. save as file baru
wbkbaru.saveas variabel_nama_file_lengkap_dengan_folder
6. tutup file baru
wbkbaru.close false
Wassalam,
Kid.
2014-06-19 13:41 GMT+07:00 Odhy [email protected] [belajar-excel] <
[email protected]>:
>
>
> Dear Para Master,
> Sebelumnya saya sudah menanyakan tentang Export sheet, namun belum ada
> pencerhan untuk itu saya posting ulang dengan harapan di tanggapi amieen...
> Saya ingin mengeksport 3 sheet sekaligus(sheet pemasukan,pengeluaran,
> dan onHand) menjadi 1 file baru
> yang nantinya namanya akan berdasarkan Lokasi dan Tanggal, misalnya
> :Rekap_Mataram_10
> April 2014. Lokasi
>
> Terima Kasih atas pencerahannya,
>
>
>
> Odhy.
>
>
>
