Coding Menyimpan File Melalui UserForm Dengan Default Nama File

Untuk menyimpan file excel yang dilakukan dengan fasilitas yang telah disediakan oleh Microsoft sepertinya sudah banyak orang yang mengetahuinya, namun cara ini saya kira belum begitu banyak yang tahu kecuali mereka para master excel yang sudah betul-betul menguasai tingkat Advance.

Materi kali ini saya akan membahas bagaimana cara menyimpan file menggunakan useform sebagai kontrol objeknya artinya kita akan membuat perintah pengcodean melalui VBA ini. Untuk memahami lebih jelasnya mengenai materi ini perhatikan gambar dibawah ini.

Gambar diatas menunjukan hasil dari coding yang akan kita buat nantinya, perhatikan gambar yang ditunjukan oleh anak panah berwarna merah tersebut merupakan kotak simpan yang telah disetting melalui VBA excel ini. Untuk bisa membuat seperti gambar diatas maka langkah yang harus dilakukan adalah kita harus memiliki desain userform yang nantinya akan dijadikan sebagai kontrol user untuk menyimpan file kemudian tambahkan 1 buah commandbutton dan ganti captionnya menjadi "Simpan"

CommandButton "Simpan File" ini yang dijadikan objek jadi ketika di klik maka muncul kotak simpan seperti gambar diatas. Untuk desain userform silakan buat seperti gambar berikut ini

Sederhana sekali userform diatas, hanya ada 1 objek yaitu tombol "Simpan File" langkah berikutnya kita akan membuat coding atau perintah untuk menyimpan file tersebut dengan prosedur Click maka silakan double klik pada tombol diatas di desain userform kemudian tuliskan coding berikut ini

Sub SimpanFile()
Dim Simpan As Variant
    Simpan = Application.GetSaveAsFilename("TuliskanNamaFile.xlsx", _
        "Excel files,*.xlsx", 1, "Pilih Folder")
    If TypeName(Simpan) = "Boolean" Then Exit Sub
    ActiveWorkbook.SaveAs Simpan
End Sub

Coding diatas merupakan prosedur untuk menyimpan file dan kita akan memanggilnya melalui klik pada tombol "Simpan File" maka silakan tuliskan fungsi Call berikut ini

Private Sub CommandButton1_Click()
Call SimpanFile
End Sub

Silakan test dan jalankan program diatas dan coba klik tombol "Simpan File" maka akan muncul sebuah kotak simpan file seperti gambar no 1 diatas.

Simak:
Pengenalan Dasar Membuat UserForm pada Excel 2010

Demikian, semoga bermanfaat dan selamat mencoba

Tweet