• Membuka File Excel Dari Jendela InputBox

    Membuka File Menggunakan InputBox 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.

    Artikel Terkait

  • Still haven't found what are you looking for

    We have provided a complete list of articles on this site to make it easier for you and giving the best solution for your excel issues

    VISIT LINK
    DMCA.com Protection Status

    excelive.com
    is a blogger resources site who provides best excel tutorial based on daily needs. The main mission of excelive is to share our little experience in excel to deliver best time killer for your excel issues.
    T.O.S
    Term of service

    Read More
    Download Area
    to complete all excel lessons, we have provided a download link for you Find Here
    Copyright © 2016 - excelive.com. Some rights reserved.
    Menyalin sebagian atau keseluruhan materi situs hanya diperbolehkan dengan tautan balik terbuka ke sumbernya.
    equipped with by blogger