Excel VBA: Cara Otomatis Cari dan Ambil File Path di Excel Hanya dengan Double Click Cell

Salin Kode (Script) di Sini

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  Dim openfile As FileDialog
  Dim openpath As String
  
  'gunakan line code dibawah jika tidak memakai named range
  'If Not Intersect(ActiveCell, Range("A1:A10")) Is Nothing Then
  
  If Not Intersect(ActiveCell, Range("Named_Range1, Named_Range2, Named_Range3")) Is Nothing Then
      
      Set openfile = Application.FileDialog(msoFileDialogFilePicker)
      openfile.AllowMultiSelect = False
      
      With openfile
          If .Show = True Then
              openpath = openfile.SelectedItems(1)
              Target = openpath
              Cancel = True
          Else
              MsgBox "Jangan lupa pilih file-nya!", vbExclamation
              Cancel = True
          End If
      End With
  End If

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  Dim openfile As FileDialog
  Dim openpath As String
  
  'gunakan line code dibawah jika tidak memakai named range
  'If Not Intersect(ActiveCell, Range("A1:A10")) Is Nothing Then
  
  If Not Intersect(ActiveCell, Range("Named_Range1, Named_Range2, Named_Range3")) Is Nothing Then
      
      Set openfile = Application.FileDialog(msoFileDialogFilePicker)
      openfile.AllowMultiSelect = False
      
      With openfile
          If .Show = True Then
              openpath = openfile.SelectedItems(1)
              Target = openpath
              Cancel = True
          Else
              MsgBox "Jangan lupa pilih file-nya!", vbExclamation
              Cancel = True
          End If
      End With
  End If

End Sub

Apakah Kode Ini Bisa Jalan di Excel & Google Sheets?

Mengapa Anda Butuh Kode Ini?

Saat membuat automasi import file agar dinamis, kita sering kali perlu mencatat lokasi atau alamat folder dari file yang akan kita import(file path). Mengambil file path dengan cara manual seperti menyalin alamat file dari Windows Explorer satu per satu tentu sangat melelahkan, membosankan, dan tidak efisien jika jumlah filenya ada puluhan.

Bagaimana jika kita bisa menyulap sel atau kolom tertentu hanya dengan melakukan klik ganda (double klik) pada sel tersebut, maka Excel VBA secara otomatis ambil file path dengan membuka jendela pencarian (pop-up windows explorer) file komputer secara otomatis. Tentu sangat mudah kan?

💡Pro Tips

Berikut beberapa pro tips terkait teknik ini:

• Menggunakan Excel VBA untuk mengambil file path dengan double click adalah cara yang paling praktis, cepat, dan sudah diterapkan kedalam berbagai macam automasi yang sudah penulis buat
• Teknik ini tidak sama dengan metode Get Data > from File, dan tidak terhubung dengan Power Query
• Teknik ini sangat cocok jika data kalian masing-masing mempunyai struktur yang berbeda, sehingga diperlukan mapping
• Untuk file yang sangat banyak, dan mempunyai struktur atau template yang sama, kita bisa menggunakan automasi Scan folder atau Power Query.

Manfaat Nyata untuk Efisiensi Bisnis

Penerapan trik double klik ini memberikan dampak instan pada produktivitas harian tim Anda:

• Proses Input Super Cepat: Mengurangi waktu pencarian lokasi file dari hitungan menit menjadi hitungan detik.
• Akurasi Data 100%: Menghindari salah ketik atau human error saat memasukkan file path, sehingga proses auto import data berikutnya dijamin lancar tanpa error.
• Tampilan File Lebih Clean: Tidak perlu membuat bentuk (shape) atau tombol makro tambahan, sehingga laporan atau dashboard Excel Anda tetap terlihat rapi dan profesional.

Persyaratan Teknis

Terdapat beberapa persyaratan teknis agar VBA ini berjalan yaitu:

• Workbook sudah di save sebagai macro enabled workbook (.xlsm atau .xlsb)
• Macro setting sudah “Enabled VBA macros”, jika belum silahkan baca artikel ini untuk enable macro
• Excel VBA pada artikel ini hanya bekerja dengan menggunakan Windows OS terbaru, tidak kompatibel dengan Mac OS

FAQ – Pertanyaan yang sering ditanyakan