Untuk membuka file melalui VBA terkadang file tersebut tidak ditemukan dalam folder atau drive tertentu. Ketika Anda menciptakan aplikasi dengan memakai VBA Excel tentunya kadang kita membutuhkan file yang akan dibuka dengan memakai VBA excel tersebut. Tentunya apabila file tersebut tidak ditemukan atau dapat dikatakan tidak exist artinya Anda harus dapat menciptakan pesan atau warta kepada user bahawa file tersebut tidak ditemukan.
Dalam bahan kali ini aku akan menciptakan sebuah UserForm untuk memanggil file atau membuka file Ms. Excel dan apabila tidak ditemukan dalam drive yang telah ditentukan di dalam coding maka munculah pesan bahwa "File Tidak Ditemukan".
Langkah pertama silakan Anda buat satu buah UserForm kalau belum memahami bagaimana cara membuatnya silakan baca-baca di artikel
Pengenalan Dasar UserForm pada VBA ExcelAtau simak : Cara Membuat UserForm untuk Pemula
Langkah berikutnya Anda silakan tambahkan satu buah textbox dan satu buah CommandButton dengan memakai Toolbox dan aku kira Anda sudah memahami cara menciptakan CommandButton dan Textbox. Kemudian Anda silakan double click pada CommandButton tersebut kemudian tuliskan coding VBa dibawah ini :
Private Sub CommandButton1_Click()Coding VBA diats pertama kita definisikan sebuah Namafile dengan typedata String kemudian semoga lebih gampang dalam pengkodingan Anda juga silakan buat sebuah definis untuk Workbook. Nama file yang akan diketikkan ialah di textbox1 kemudian untuk direktori nama file Anda juga definisikan sebagai fungsi string.
Dim NamaFile As String
Dim WB As Workbook
NamaFile = Trim(TextBox1.Value)
Dim DirFile As String
If Len(NamaFile) = 0 Then Exit Sub
DirFile = "D:\" & 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 & " Terjadi kesalahan", vbCritical
End If
End Sub
File yang dicari ialah file yang berada pada lokasi Drive D Anda dapat menggantinya atau menambahkan folder di drive D tersebut. Jika pencarian yang dituliskan di textbox1 tidak ditemukan alias 0 maka akan muncul sebuah pesan "File Tidak Ditemukan" silakan lihat coding MsgBox"File Tidak Ditemukan". Dalam coding diatas kita juga telah menciptakan handle error artinya apabila terjadi error pada coding maka muncul pesan "terjadi kesalahan".
Anda harus menuliskan atau mengetikkan nama file yang akan dicari dengan menambahkan extentions dari sebuah file excel tersebut contohnya untuk office versi 2010 harus mempunyai extention .xlsx Dibawah ini aku akan mencari sebuah nama file "Rumus Excel Lengkap.xlsx" maka silakan ketikkan di kolom textbox1 tersebut kemudian silakanklik comanbutton kemudian lihat apa yang terjadi sebuah file akan dibuka kalau ditemukan nama file pada lokai penyimpanan tersebut tetapi kalau tidak ada maka akan muncul pesan ibarat yang dituliskan pada script VBA diatas.
Perhatikan gambar diatas penulisan untuk nama file diakhiri dengan extension dengan .xlsx dan silakan klik CommandButton1 maka lihat alhasil file tersebut akan terbuka.
Oke, aku berhadap penyampaian dapat dimengerti dan terang semoga bermanfaat dan selamat mencoba jangan lupa untuk kasih komentar ya...
Sumber http://www.excel-id.com/