Cara Menampilkan Nama File Otomatis pada Folder Drive J dengan Macro VBA

Masih membahas seputar Excel dan kali ini saya akan bahas bagaimana caranya mengambil nama file tanpa mengetik ulang nama file di sebuah folder tertentu yang ada pada salah satu drive. Folder tersebut berisi beberapa nama file gambar dengan ekstension .JPG yang nantinya akan diambil nama filenya otomatis melalui tombol yang dibuat oleh kita sendiri dan semua nama file yang ada pada folder tersebut akan dituliskan sama persis pada worksheet di kolom A

Tutorial VBA Macro tentunya akan berguna bagi Anda yang sedang mencari materi bagaimana menampilkan nama file secara otomatis atau istilah lainnya import nama file kedalam worksheet yang telah kita siapkan.

Untuk bisa melakukan import nama file tentunya kita akan buat satu buah Module pada VBA dan setelah membuat module Anda tambahkan coding dibawah ini


Option Explicit

Sub ImportNamaFile()
Dim Folder As String
Dim x As Long: x = 1

Folder = Dir("J:\TESTFOTO\" & "*.jpg")

Do While Len(Folder) > 0
Sheet1.Range("A" & x) = Folder
x = x + 1
Folder = Dir()
Loop
End Sub

Jadi coding diatas kita akan import atau mengambil nama file pada drive J dengan folder TESTFOTO yang memiliki tipe file .JPG jadi jika diluar ekstensi file .jpg maka tidak bisa diimpor. Nah untuk mengetahui isi nama drive silakan

Lihat
Tutorial Bagaimana Mengetahui Lokasi Drive dengan VBA

Setelah itu Anda silakan buat sebuah tomol pada worksheet dan arahkan macro VBAnya pada ImportNamaFile


Sekarang test dengan cara klik pada tombol Button1 tersebut dan lihat hasilnya akan ada beberapa nama file pada kolom A


Dari gambar diatas terlihat ada 4 buah nama file dan kenapa jumlahnya hanya 4? itu karena di drive J dan folder TESTFOTO hanya terdapat 4 file dengan ekstension .jpg.

Baca Juga:
Cara Cek File Eksis dengan Mcro VBA
Jangan Lupa Subscribe Chanel Youtube untuk mendapatkan video tutorial Excel

Related

Macro Excel VBA 2964230552278341721

Posting Komentar

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item