Pernahkah kamu mencoba download image kemudian merenamenya? Biasanya kita melakukan secara manual, yaitu download image kemudian baru kita rename. Ada cara termudah untuk bulk download image kemudian otomatis merenamenya sesuai yang kita mau. Caranya menggunakan macro pada program excel, yang sudah tentu saat ini hampir semua komputer sudah terinstal excel.
Caranya cukup mudah, hanya tinggal melist daftar url image yang akan kita download pada kolom B, dan di kolom A kita menuliskan nama image yang baru setelah didownload. Perhatikan gambar berikut ini:
Kemudian pada menu developer, kita pilih macro seperti di screenshot bawah. Buat nama macro (nama bebas) kemudian create.
Selanjutnya akan terbuka jendela baru seperti gambar dibawah.
Isi copy script macro dibawah ini ke jendela modul, seperti gambar.
Kemudian RUN (lihat segitiga hijau).
Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
ByVal szURL As String, ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Dim Ret As Long
Const FolderName As String = "C:\Download\"
Sub Sample()
Dim ws As Worksheet
Dim LastRow As Long, i As Long
Dim strPath As String
Set ws = Sheets("Sheet1")
LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LastRow '<~~ 2 because row 1 has headers
strPath = FolderName & ws.Range("A" & i).Value & ".jpg"
Ret = URLDownloadToFile(0, ws.Range("B" & i).Value, strPath, 0, 0)
If Ret = 0 Then
ws.Range("C" & i).Value = "File successfully downloaded"
Else
ws.Range("C" & i).Value = "Unable to download the file"
End If
Next i
End Sub
Lihat baris script yang berwarna biru,
"C:\Download\" adalah folder tempat hasil download, jika belum ada nama folder, silahkan buat dulu. Saya mengambil contoh di Drive C dengan membuat nama folder "Download".
"Sheet1" adalah sheet excel tempat kita membuat list url dan nama image yang baru.
".jpg" adalah extension image yang kita download. Padah contoh saya menggunakan url image ber extensi ".png", karena di script menggunakan jpg, maka hasil akhir image yang di download berupa ".jpg"
Setelah RUN, kita lihat hasilnya berupa notif di kolom C. Jika image berhasil di download "File successfully downloaded", jika gagal "Unable to download the file".
Dan terakhir cek folder "C:\Download\". Sukses download batch image dan otomatis rename.
Karena saya menggunakan contoh source image yang sama, jadi gambar yang didownload sama semua, hanya namanya yang berbeda-beda seperti yang sudah kita list sebelumnya.
Semoga tips excel ini berguna. Sangat mudah, tanpa perlu instal software downloader.
