Menyimpan setiap sheet menjadi file workbook baru - Sheet atau worksheet merupakan lembaran yang ada pada excel, secara umum saat kita membuat dokumen baru Microsoft Excel versi 2003, 2007, dan 2010, kita akan diberi bekal 3 (tiga) lembar kerja (sheet) dengan masing-masing nama sheet1, Sheet2, dan sheet3. Dengan modal berupa tiga (3) buah lembar kerja inilah sebuah database bisa mulai anda bangun .

Barangkali beberapa pengguna Microsoft Excel akan memanfaatkan setiap lembar kerja yang ada sehingga tidak ada satupun lembar kerja yang kosong bahkan menambah lembar kerja yang baru, atau mungkin juga terdapat beberapa pengguna lain yang mengabaikan salah satu atau beberapa lembar kerja lain tidak diisi data alias kosong.


Terlepas dari itu semua lembar kerja tersebut berisi data atau diabaikan, serta berapapun jumlah lembar kerja yang aktif dalam buku kerja Microsoft excel. Mungkin dalam benak anda pernah bertanya pada diri anda sendiri, bagaimana caranya menyimpan setiap lembar kerja tersebut menjadi sebuah dokumen Microsoft Excel yang baru atau dengan kata lain memecah lembar kerja (sheet) menjadi beberapa bagian dan menyimpan masing masing lembar sheet menjadi beberapa file (tergantung jumlah sheet yang digunakan). Lihat gambarannya dibawah ini


Baris kode macro atau VBA untuk membuat seperti tampilan gambar di atas adalah sebagai berikut

Sub SimpanSheet ()
Dim Drv As String
Drv = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each shit In ThisWorkbook.Sheets
shit.Copy
Application.ActiveWorkbook.SaveAs Filename:=Drv & "\" & shit.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Simpan file Microsoft excel terlebih dahulu sebelum mengeksekusi baris kode VBA di atas, karena setiap sheet nantinya akan dikonversi menjadi file baru di drive tempat anda menyimpan file tersebut.

Usahakan tidak ada file dengan nama yang sama dengan nama setiap sheet (lembar kerja) dalam folder tempat anda menyimpan file tersebut, karena jika ada nama file Microsoft excel yang sama dengan nama lembar kerja (sheet) maka file tersebut akan direplace tanpa pemberitahuan, sebab dalam kode macro tersebut ada perintah menon aktifkan peringatan apapun bahkan akan menjalankan perintah 'Overwrite' jika dalam satu folder terdapat nama file Microsoft Excel yang sama dengan nama sheet.

Application.DisplayAlerts = False

Jika anda tidak ingin susah payah membuat atau menulis kode macro diatas anda bisa langsung download file sampel Menyimpan setiap sheet menjadi file workbook baru pada link download dibawah ini, semoga bisa membantu

Download File Menyimpan setiap sheet menjadi file workbook baru
Link tersedia
Mau semua fle sampel silahkan klik > disini

Demikianlah cara Menyimpan setiap sheet menjadi file workbook baru, tidak seperti zaman waktu saya masih mengelola iparengan.com untuk saat ini saya juga membahas rumus excel yang dulu hampir tidak saya singgung, semoga artikel ini bermanfaat

No comments