• Menghapus File Menggunakan InputBox

    Menghapus File Menggunakan InputBox Macro VBA yang memiliki kemampuan yang cukup baik dalam mengotomatisasi sebuah pekerjaan yang berulang-ulang di dalam sebuah lembar kerja Microsoft Excel, seperti mengurutkan data, memasukkan sebuah nilai ke dalam ListBox, serta yang lainnya yang masih dalam lingkup lembar kerja, ternyata juga bisa digunakan untuk mengotomatisasi sebuah pekerjaan diluar lembar kerja Microsoft Excel.

    Contoh sederhana melakukan pekerjaan yang berada diluar lingkup lembar kerja Microsoft Excel seperti yang akan dibahas dalam tutorial kali ini adalah Menghapus sebuah file yang tersimpan dalam sebuah drive. Meskipun tutorial sejenis pernah di bahas di website ini (cek link berikut), akan tetapi pada tutorial kali ini menggunakan pendekatan lainnya yakni melalui jendela InputBox untuk menentukan lokasi atau sebuah drive kemudian menentukan nama file yang akan dihapus.

    Untuk melakukan hal tersebut di atas dapat dilakukan tanpa harus membuka jendela Windows Explorer untuk mencari dan menghapus file yang dimaksud, melainkan dapat dilakukan melalui InputBox Macro VBA Excel. Caranya ?

    Dalam tutorial ini, tombol yang saya gunakan untuk mengeksekusi kode Macro saya letakkan di dalam lembar kerja yang tugasnya untuk mempermudah saja. Untuk cara membuatnya, silahkan Anda lihat pada bagian membuat control di lembar kerja di tutorial Mengisi ListBox Dengan Data Spesifik Dari Sebuah Lembar Kerja.

    Selanjutnya adalah buka jendela Microsoft Visual Basic Editor (VBE) dengan cara menekan tombol pintas Ctrl + F11 di keyboard Anda. Kemudian silahkan buat sebuah module baru, mulai ketikkan baris kode berikut di dalamnya :

    Sub HapusFileLagi()
    On Error Resume Next
    lihat = InputBox("Tentukan lokasi drive tempat file yang akan dihapus", _
                     "Drive")
    dr = Dir(lihat & ":", 5)
    
    If dr <> "" Or IsError(dr) Then
       [a1] = lihat & ":\"
       On Error GoTo x
       fl = InputBox("Masukkan nama file yang akan Anda hapus lengkap dengan ekstensinya", _
                     "File Name")
       If Len(fl) > 0 Then
          Select Case MsgBox("Hapus file" & fl, vbCritical + vbYesNo)
          Case vbYes
              Kill [a1] & fl
          End Select
       End If
       Exit Sub
       x:
       MsgBox "Maaf, Data tdk ada" & vbCr & _
              "atau penulisan file tidak disertai dengan extensi"
    Else
    MsgBox "Drive yang Anda masukkan tdk tersedia"
    End If
    End Sub

    Dari panjangnya baris kode diatas, dapat Anda lihat bahwa disana terdapat 2 buah nilai InputBox yang mana InputBox pertama (Lihat) berfungsi untuk menentukan lokasi drive tempat dimana file yang dimaksud berada, sementara InputBox kedua (fl) adalah nama file lengkap beserta ekstensi file yang akan di hapus.

    Cara kerja dari kode di atas secara singkat dapat dijelaskan bahwa jendela InputBox yang pertama mengharuskan user untuk menentukan lokasi drive yang dimaksud, dengan catatan :
    Jika nama Drive (drive letter) tersedia dikomputer user, maka langsung akan mengeksekusi baris ke-7 (If dr <> "" Or IsError(dr) Then ....) dan akan menyimpan nilai dari nama drive yang Anda tulis di sel A1, selanjutnya akan menampilkan jendela InputBox lagi untuk menentukan nama file yang akan dihapus.

    Jika nama file tidak ada atau penulisan tidak lengkap, seperti ejaan salah atau tidak mencantumkan ekstensi file, maka kode akan dihentikan dan langsung menuju baris kode ke-20 (MsgBox "Maaf, Data tdk ada"....).

    Langkah terakhir adalah memasang module yang sudah dibuat diatas ke dalam control CommandButton yang sudah dibuat dilembar kerja. Kode VBA nya????
    Call HapusFileLagi
    Demo kode yang sudah lengkap
    Menghapus file menggunakan InputBox
    download


    Sekarang Anda sudah berhasil mempelajari bagaimana caranya menggunakan InputBox untuk menghapus sebuah file. Selamat mencoba!!. 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
    loading...
    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