Tutorial ini bisa dikatakan memiliki struktur yang hampir sama dengan tutorial Menghapus File Melalui Jendela InputBox. Hanya saja terdapat beberapa tambahan baris kode yang digunakan untuk mengeksekusi dokumen atau file Microsoft Excel yang akan dieksekusi.

Mungkin ada baiknya Anda buka dulu tutorial ini agar lebih paham konsep menggunakan InputBox.

Kembali ke pokok pembahasan.
Tutorial ini akan memfokuskan pada fungsi dari jendela InputBox itu sendiri, yakni sebagai tempat untuk memasukkan sebuah nilai yang kemudian akan dieksekusi oleh pengguna ketika menekan tombol OK maupun Cancel.

Secara umum konsep dari tutorial ini menggunakan 2 (dua) buah InputBox, dimana InputBox yang pertama berfungsi untuk menentukan lokasi atau drive tempat dimana dokumen Microsoft Excel simpan. Untuk jendela InputBox kedua, digunakan untuk menentukan nama file yang terdapat di drive yang sudah ditentukan melalui jendela InputBox yang pertama.

Langsung saja masukkan kode berikut disebuah Module dan coba jalankan dengan cara menekan tombol F5 di keyboard Anda untuk mengetahui sukses atau tidaknya dalam membuka sebuah dokumen Microsoft Excel melalui jendela InputBox.

Sub Bukaaaaa()
On Error Resume Next
lokasi = InputBox("Tentukan lokasi drive tempat Anda menyimpan file excel", _
                 "Drive")
drv = Dir(lokasi & ":", 5)

If drv <> "" Or IsError(drv) Then
   On Error GoTo x
   fl = InputBox("Masukkan nama file yang ingin Anda buka", _
                 "File Name")
   If Len(fl) > 0 Then
      'ganti ekstensi .xlsx dengan .xls untuk file excel dibawah versi 2007
      Workbooks.Open (lokasi & ":\" & fl & ".xlsx")
      SThisbookName = ThisWorkbook.Name
      Windows(SThisbookName).Activate
      MsgBox "Dokumen " & fl & " berhasil dibuka"
   End If
   Exit Sub
x:
   MsgBox "Maaf, Data tidak ditemukan"
Else
MsgBox "Drive yang Anda masukkan tdk tersedia"
End If
End Sub

Anda bisa mendapatkan hasil akhir dari tutorial ini melalui tautan berikut.
download




Kita sudah belajar Macro VBA Excel tentang bagaimana cara membuka sebuah dokumen Microsoft Excel melalui jendela InputBox. Semoga Anda menyukai tutorial dari excelive untuk edisi ini.
Kunjungi kami lain waktu untuk mengetahui kehebatan Microsoft Excel lainnya, Adiós.