Coding VBA Buka File Langsung Melalui UserForm Tanpa Jendela Open

Masih belajar VBA Excel, kali ini saya akan berbagi source code VBA untuk membuka file melalui UserForm tanpa muncul jendela Open File. Fungsi atau tujuan dari artikel ini dibuat adalah agar Anda bisa mengendalikan open file tanpa harus menggunakan cara biasa yaitu klik menu file kemudian open pada lembar kerja Ms. Excel.

Membuka file secara langsung tentunya kita harus menempatkan code VBA untuk mengetahui lokasi file (drive) serta nama file dalam hal ini bisa dikenal dengan Parth. Untuk membuka file dengan jendela Open File sudah peernah saya bahas dan ini juga sudah menggunakan UserForm control

Silakan simak :
Macro Membuat Tombol Buka File Excel

Untuk tempilan interface UserForm bisa dilihat pada gambar dibawah ini

Nama file Database.xlsx merupakan file yang akan dibuka secara otomatis melalui UserForm tanpa melalui jendela Open File. Hal ini menggunakan coding VBA untuk melakukannya. Untuk setting properties saya kira sudah bisa dilakukan dan yang harus diganti adalah Label1, UserForm1, dan CommandButton1. Jika Anda lihat septintas dan sudah mengerti akan menggati properties dari objek VBA diatas hal ini tidaklah sulit. Langkah berikutnya saatnya kita membuat source code VBA maka silakan Anda ketikkan coding berikut kedalam editor code VBA Anda

Private Sub CommandButton1_Click()
Dim NamaFile As String
Dim WB As Workbook
NamaFile = Trim(TextBox1.Value)
Dim DirFile As String
If Len(NamaFile) = 0 Then Exit Sub

DirFile = "C:\" & NamaFile
If Len(Dir(DirFile)) = 0 Then
  MsgBox "File Tidak Ditemukan"
Else
 On Error Resume Next
 Set WB = Workbooks.Open(DirFile)
 On Error GoTo 0
 If WB Is Nothing Then MsgBox DirFile & " Tidak Valid", vbCritical
End If
Unload Me
End Sub

Private Sub TextBox1_AfterUpdate()
TextBox1.Value = TextBox1.Value & ".xlsx"
End Sub

Syarat utama adalah file Database.xlsx berada di dalam drive C:/ apabila bukan berada di drive tersebut maka akan muncul sebuah pesan "File Tidak Ditemukan" namun apabila file database.xlsx terdapat di drve C:/ maka akan dibuka secara otomatis kemudian userform akan di close sesuai perintah atau coding yang telah dituliskan diatas.

Agar terjadi perubahan ketika Anda menuliskan nama file secara otomatis muncul extension maka saya tambahkan coding Private Sub TextBox1_AfterUpdate() seperti terlihat diatas. Anda bisa menggantinya lokasi folder drive C:/ menjadi drive D:/ silakan dicoba dan semoga bermanfaat.

Lihat Video
Cara Membuka File melalui UserForm Melalui VBA

Tweet