√ Coding Vba Buka File Pribadi Melalui Userform Tanpa Jendela Open

Masih berguru VBA Excel, kali ini saya akan membuatkan source code VBA untuk membuka file melalui UserForm tanpa muncul jendela Open File. Fungsi atau tujuan dari artikel ini dibentuk yakni biar Anda sanggup mengendalikan open file tanpa harus memakai cara biasa yaitu klik hidangan file kemudian open pada lembar kerja Ms. Excel.

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

Silakan simak :
Macro Membuat Tombol Buka File Excel

Untuk tempilan interface UserForm sanggup 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 memakai coding VBA untuk melakukannya. Untuk setting properties saya kira sudah sanggup dilakukan dan yang harus diganti yakni 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 menciptakan 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 yakni 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() menyerupai terlihat diatas. Anda sanggup menggantinya lokasi folder drive C:/ menjadi drive D:/ silakan dicoba dan semoga bermanfaat.

Lihat Video
Cara Membuka File melalui UserForm Melalui VBA
Sumber http://www.excel-id.com/