Masih membahas seputar Excel dan kali ini aku 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 dibentuk 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 mempunyai kegunaan bagi Anda yang sedang mencari bahan bagaimana menampilkan nama file secara otomatis atau istilah lainnya import nama file kedalam worksheet yang telah kita siapkan.
Untuk sanggup melaksanakan import nama file tentunya kita akan buat satu buah Module pada VBA dan sehabis menciptakan 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
Makara coding diatas kita akan import atau mengambil nama file pada drive J dengan folder TESTFOTO yang mempunyai tipe file .JPG jadi kalau diluar ekstensi file .jpg maka tidak sanggup 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 jadinya akan ada beberapa nama file pada kolom A
Dari gambar diatas terlihat ada 4 buah nama file dan kenapa jumlahnya hanya 4? itu sebab 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 mendapat video tutorial Excel
Tutorial VBA Macro tentunya akan mempunyai kegunaan bagi Anda yang sedang mencari bahan bagaimana menampilkan nama file secara otomatis atau istilah lainnya import nama file kedalam worksheet yang telah kita siapkan.
Untuk sanggup melaksanakan import nama file tentunya kita akan buat satu buah Module pada VBA dan sehabis menciptakan 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
Makara coding diatas kita akan import atau mengambil nama file pada drive J dengan folder TESTFOTO yang mempunyai tipe file .JPG jadi kalau diluar ekstensi file .jpg maka tidak sanggup 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 jadinya akan ada beberapa nama file pada kolom A
Dari gambar diatas terlihat ada 4 buah nama file dan kenapa jumlahnya hanya 4? itu sebab 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 mendapat video tutorial Excel