download gambar

  1. 4 bulan yang lalu

    bagaimana cara download gambar menggunakan vba secara otomatis

    kolom A nama file
    kolom b foldersave
    kolom c link file

    Mohon pencerahan Trims

  2. manweljs_

    Jul 14 Terverifikasi + 5.786 Poin
    Di sunting 4 bulan yang lalu oleh manweljs_

    @NOBO

    mungkin bisa dipelajari dari diskusi cara menampilkan gambar
    atau Membuat template insert gambar
    atau bisa dicari diskusi sebelum-sebelumnya dengan kata kunci GAMBAR di forum ini

  3. Const FolderName As String = "C:\"

    Sub download_gambar()

    Set ws = ActiveWorkbook.Sheets("Sheet1")
    lLastRow = ws.Range("A" & Rows.Count).End(xlUp).Row

    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
    Set oBinaryStream = CreateObject("ADODB.Stream")
    adTypeBinary = 1
    oBinaryStream.Type = adTypeBinary

    For i = 2 To lLastRow
    sPath = FolderName & ws.Range("A" & i).Value & ".jpg"
    sURI = ws.Range("B" & i).Value

    On Error GoTo HTTPError
    oXMLHTTP.Open "GET", sURI, False
    oXMLHTTP.Send
    aBytes = oXMLHTTP.responsebody
    On Error GoTo 0

    oBinaryStream.Open
    oBinaryStream.Write aBytes
    adSaveCreateOverWrite = 2
    oBinaryStream.SaveToFile sPath, adSaveCreateOverWrite
    oBinaryStream.Close

    ws.Range("C" & i).Value = "Oke"

    NextRow:
    Next

    Exit Sub

    HTTPError:
    ws.Range("C" & i).Value = "Error"
    Resume NextRow

    End Sub

    *dari forum tetangga.

 

atau Mendaftar untuk ikut berdiskusi!