Bagaimana cara menutup buku kerja excel menggunakan vba?

Untuk menutup file Excel, Anda harus menggunakan metode “Tutup”. Dengan metode ini, Anda dapat menentukan apakah Anda ingin menyimpan perubahan atau tidak. Dan, jika Anda ingin menyimpan dan menutup file yang belum disimpan, Anda dapat menentukan jalur penyimpanannya sebelum menutupnya.

Berikut adalah sintaks dari metode close.

 Workbook.Close (SaveChanges, FileName, RouteWorkbook)

Langkah-langkah untuk menutup buku kerja

1. Tentukan buku kerja yang ingin Anda tutup.
2. Gunakan metode tutup dengan buku kerja ini.
3. Dalam metode kode, tunjukkan apakah Anda ingin menyimpan file atau tidak.
4. Di bagian akhir sebutkan jalur tempat Anda ingin menyimpan file sebelum ditutup.

Dalam tutorial ini, kita akan melihat berbagai cara untuk menutup buku kerja di Excel menggunakan VBA.

Tautan yang berguna: Jalankan makro – Perekam makro – Editor Visual Basic – Buku Pegangan Makro Pribadi

Tutup buku kerja tanpa menyimpan

Jika Anda ingin menyimpan buku kerja yang aktif tanpa menyimpannya, Anda perlu menggunakan kode seperti ini.

 ActiveWorkbook.Close SaveChanges:=False

Dalam kode ini, saya menentukan “False” untuk argumen “SaveChanges”. Jadi VBA akan mengabaikan jika ada perubahan pada workbook yang tidak disimpan. Dan jika Anda ingin menutup buku kerja tertentu, Anda bisa menggunakan nama buku kerja tersebut. Sama seperti kode berikut.

 Workbooks("book1").Close SaveChanges:=False

Jika Anda memiliki data di buku kerja dan Anda mengabaikan argumen “Simpan Perubahan”, Excel akan menampilkan kotak dialog untuk mengonfirmasi apakah Anda ingin menyimpan buku kerja atau tidak. Intinya begini: lebih baik menentukan argumen “SaveChanges” meskipun itu opsional.

Tutup buku kerja setelah menyimpannya

Seperti yang Anda lihat, ada argumen dalam metode CLOSE untuk menentukan lokasi jalur. Katakanlah Anda ingin menyimpan “Book6” ke folder di desktop. Ini kode yang perlu Anda gunakan.

 Workbooks("Book6").Close _ SaveChanges:=True, _ Filename:="C:UsersDellDesktopmyFoldermyFile.xlsx"

Kode ini akan menyimpan buku kerja “Book6” di folder yang disimpan di desktop saya dengan nama “myFILE.xlsx”. Namun ada satu hal yang perlu Anda perhatikan: jika Anda sudah memiliki buku kerja dengan nama yang sama, file tersebut akan diganti dengan yang baru.

Tenang saja, ada solusi yang bisa Anda gunakan. Kode berikut memeriksa apakah ada file dengan nama yang ingin Anda gunakan

 Sub vba_close_workbook() Dim wbCheck As String wbCheck = Dir("C:UsersDellDesktopmyFoldermyFile.xlsx") If wbCheck = "" Then Workbooks("Book6").Close _ SaveChanges:=True, _ Filename:="C:UsersDellDesktopmyFoldermyFile.xlsx" Else MsgBox "Error! Name already used." End If End Sub