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
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
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
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
Related Posts
- Cara Menampilkan Path File Pada Textbox UserformFile intinya mempunyai daerah lokasi penyimpanan entah itu di MyDocument, Drive D, Drive E atau pada folder yang ada di drive tertentu atau berada di ...
- Cara Menciptakan Upercase (Huruf Besar Semua) Otomatis Dengan VbaHi Excel-ID, bagaimana mencar ilmu VBA nya semoga lancar dan tidak ada kendala, namun jikalau kalian ada persoalan silakan tuliskan komentar sesuai d ...
- Cara Mengambil Tanggal Otomatis Dari Tanggal Bulan Tahun Memakai Macro VbaAda banyak cara untuk menuntaskan dilema Excel, dan cara ini ada yang memakai rumus tetapi juga ada yang memakai VBA atau dengan coding Macro Excel. ...
- Autofill Rumus Otomatis Dengan Vba MacroPengola Ms. Excel dimanjakan dengan banyak sekali fitur dan kemudahan yang disediakan oleh Microsoft itu sendiri begitu banyak fitur yang belum diket ...
- Cara Menciptakan Huruf A-Z Dan Angka 0-9 OtomatisHai sobat Excel-ID, agar masih tetap semangat untuk mencar ilmu Excel, Ya aku yakin alasannya ialah jikalau memang Excel ini merupakan kebutuhan bagi ...
- Cara Membobol Paksa Password (Proteksi) Worksheet Melalui VbaJudulnya keren "Membobol Paksa" tapi ya inilah memang yang akan saya bahas pada artikel kali ini. Unprotek worksheet yang sudah dipassword dan biasan ...
