Hai sobat Excel-ID gimana kabarnya agar sehat, Lama tidak posting kembali mengenai VBA atau Macro Excel. Mungkin sebab beberapa hari terakhir ini saya butuh liburan dengan keluarga hasilnya update menjadi terabaikan. Namun jangan khawatir kini saatnya kembali untuk membuatkan informasi, tutorial, tips serta trik Ms. Excel kembali.
Pada kesempatan kali ini saya akan membahas bagaimana seh caranya menciptakan userform yang sanggup memanggil atau membuka file Ms. Excel sekaligus sanggup juga menutupnya kembali hanya memakai kontrol penuh UserForm.
Materi ini akan membahas bagaimana memanggil Open Dialog dan menampilkan ekstension Ms. Excel kemudian Anda juga akan diajarkan bagaimana script membuka file dan bagaimana juga menutupnya hanya dengan kontrol penuh melalui UserForm tanpa masuk kedalam worksheet.
Simak:
Cara Membuat UserForm secara Dasar
Perhatikan gambar berikut ini saya telah menciptakan sebuah userform sederhana yang ditambahkan dengan objek Textbox kemudian 2 buah CommandButton untuk kontrol buka file dan tutup file nya. Baiklah untuk menciptakan userform dan menyisipkan objek commandbutton maupun textbox sudah pernah saya bahas pada artikel atau goresan pena saya sebelumnya silakan cari kembali untuk mempelajarinya.
Pada form diatas terlihat alamat atau lebih kerennya kita kenal dengan Path (alamat lokasi penyimpanan file" hal ini akan muncul otomatis sesudah tombol "Buka File" ditekan sebab fungsi dari tombol file ini akan mencari dan membuka file excel kemudian jikalau sudah terbuka maka akan tampil alamat (path) filenya.
Baca:
Pengenalan Dasar Membuat UserForm
Langkah-Langkah Membuat (Coding) Buka dan Tutup File
Yang pertama harus dilakukan sesudah Anda menciptakan USerForm menyerupai diatas yaitu menciptakan coding untuk menampilkan obrolan open dan silakan ketikan codingnya berikut ini
Sub AmbilFile()langkah berikutnya silakan buat coding untuk CommandButton1 dan sebelumnya Anda juga sanggup mengganti Captionnya melalui properties dengan nama "Buka FIle" sesudah itu kita buat coding untuk memanggil mekanisme AmbilFile()
Dim fNameAndPath As Variant
fNameAndPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.XLSx), *.XLSx", Title:="Select File To Be Opened")
If fNameAndPath = False Then Exit Sub
Workbooks.Open filename:=fNameAndPath
TextBox1.Value = fNameAndPath
End Sub
Private Sub CommandButton1_Click()Langkah berikutnya kita menciptakan coding untuk menutup file yang sesuai dengan path yang nantinya alamat pathnya dimunculkan pada textbox1 dan berikut ialah codingnya
Call AmbilFile
End Sub
Sub TutupWorkbook()Coding diatas akan menutup workbook dan tentunya tidak begitu saja ditutup sebab terkadang orang salah klik tombol maka coding diatas ditambahkan sehingga sebelum menutup workbook ditampilkan terlebih dahulu konfirmasi pesan apabila diklik OK maka akan diclose dan disimpan namun apabila tidak maka akan keluar dan userform akan ditutup.
On Error Resume Next
Dim fNameAndPath As Variant
Dim Jawab As Integer
Set wb = Workbooks.Open(TextBox1.Value)
Jawab = MsgBox("Apakah Anda akan Menyimpan File?", vbYesNo + vbQuestion, "Konfirmasi")
If Jawab = vbYes Then
wb.Close SaveChanges:=True
TextBox1.Value = ""
Else
Exit Sub
Unload Me
End If
End Sub
Dan coding diatas secara lengkapp sanggup dilihat pada printscreen gambar dibawah ini
Oke, sesudah itu selesai deh dan silakan coba jalankan coding yang Anda ketikkan jikalau benar maka tidak akan terjadi error debuging dan selesai. Selamat mencoba agar berhasil apabila ada kesulitan silakan tuliskan komentar dibawah ya. Sumber http://www.excel-id.com/