Excel URL Bilderlinks in einen Ordner downloaden

[DTM_]

Werte Community,

ein herzliches Hallo erstmal in die Runde. 

Evtl. hat hier jemand schonmal eine ähnliche Aufgabenstellung gehabt und kann mir helfen. 

Durch einige Forenartikel und google-ei werde ich um VBA vermutlich nicht herumkommen - richtig?
Falls ja, bitte seit so nett und sagt mir auch wie ich
a, das Makro in Excel "einpflege"
Etwas recherche wohl mit
ALT + F11 --> neues Marko. In das leere Feld und speichern.
b, wie ich es "aktiviere, abspiele, nutze, etc.".

Ich habe oftmals Herstellerlisten in welche dessen Artikelbilder (per URL) hinterlegt sind.
Wie kann ich (ohne zehntausende Artikel manuell zu downloaden) eine komplette Spalte bzw. deren URLs dazu "bewegen" die Bilder in einen bestimmeten Ordner zu laden?

Das Erklären des Problems war irgendwie viel einfacher, als mein fehlendes Know-How zu schildern... 

Falls wichtig, die Links sind klassisch aufgebaut, sprich:
https://herstellerseite/bilder/artikelbe...elname.png

Bin für jede Hilfe dankbar.

Danke

[schauan]

Hallöchen,

Deine Frage steht auf erledigt, ist das korrekt?

[DTM_]

Hallo schauan,

wie ist das denn passiert? Gleich wieder geändert, danke...

Nein, habe dazu noch keine Excellösung gefunden.
Bin online auf ein Programm, scheint wohl eine Art Plugin für Excel zu sein, die das wohl umsetzen kann.

Keine Schleichwerbung aber evtl. hilft das dem ein oder anderen. Programm ist von centerofefficiency und kostet wohl ~ 7€ p.a. als Lizenz.

https://www.centerofefficiency.com/de/ex...excel.html

Werde mir das (vermute ich) die Tage mal ansehen, wegen 7€ will ich nicht, dass jemand sich hier die Mühe macht.
Falls doch, nutze ich den Vorschlag selbstredend dennoch dankend & gerne.

VG und schönen Start allen ins anstehende, sonnige WE

---

Nachtrag: 6,95€ netto

[schauan]

Hallöchen,

im Netz hab ich irgendwann mal das gefunden. Die Zeilen mit Debug.Print sind nur zur Kontrolle und können später weg.

Code:

Option Explicit

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _
  Alias "URLDownloadToFileA" ( _
  ByVal pCaller As Long, _
  ByVal szURL$, _
  ByVal szFileName$, _
  ByVal dwReserved As Long, _
  ByVal lpfnCB As Long) As Long

Sub HyperLinkKopieren()
Dim Hl As Hyperlink
Dim rngBereich As Range          'Bereich, der nach Hyperlinks durchsucht wird
Dim strQuellDat As String        'Pfad + Datei, die kopiert werden soll
Dim strDatName As String        'Dateiname bei Dateien, die im Internet stehen

'Speicherort angeben
Const strPfad As String = "C:\temp\"      '<--- anpassen! - mit Backslash "\" abschließen!

'Existiert der Speicherort?
  If Dir(strPfad, vbDirectory) = "" Then
      MsgBox "Der angegebene Pfad ist ungültig!" & vbLf & vbLf & _
              "Bitte richtigen Pfad im Code angeben!" & vbLf & vbLf & _
              "Das Makro bricht ab!"
               
      Exit Sub
  End If

'Bereich, der nach Hyperlinks durchsucht wird angeben:
  With ThisWorkbook.Worksheets("Tabelle1")          '<--- anpassen!
      Set rngBereich = .Range("A1:A10")              '<--- anpassen!
  End With

'Schleife über alle Hyperlinks in diesem Bereich
  For Each Hl In rngBereich.Hyperlinks
      strQuellDat = Hl.Address                                                      'Quelldatei
      Debug.Print "Quelldatei : " & strQuellDat
      If LCase(Left(strQuellDat, 4)) = "http" Then                                  'Quelldatei online
        strDatName = Split(strQuellDat, "/")(UBound(Split(strQuellDat, "/")))      'Dateiname
        Debug.Print URLDownloadToFile(0, strQuellDat, strPfad & strDatName, 0, 0)  'herunterladen
      Else                                                                          'Quelldatei offline
        FileCopy strQuellDat, strPfad & Dir(strQuellDat, vbNormal)                'Speichern unter
      End If
  Next
   
'aufräumen:
  Set rngBereich = Nothing
  Set Hl = Nothing
End Sub

[Case]

Hallo,

eine Möglichkeit, wenn du die Adressen der Bilder wie oben von dir angegeben hast:

  Internet_Shapes_AddPicture_Bilder_aus_dem_Web_laden_in_Tabellenblatt.xlsb (Größe: 17,19 KB / Downloads: 5)

[DTM_]

Hallo zusammen,

war nun einige Tage unterwegs - sorry.

@case: schaue ich mir morgen nochmal an, die Funktion fügt sie gleich in die Liste ein. Kann ich ggf. für anders Sachen gut gebrauchen
Merci!

Mir ging es jedoch um diese gleich in einen Ordner lokal zu laden.

@schauan.
Jetzt kommt genau mein beschriebenes Problem.
Wie / wo muss ich den Code einsetzen, aktivieren, etc.?

Schönen Abend

[schauan]

Hallöchen,

DU hast es in Deiner Frage ja eigentlich schon beschrieben - nur dass der Code das Makro ist und Du dafür ein neues "Modul" - das leere Feld - anlegst

[DTM_]

Hallo zusammen,

sorry für die späte Rückmeldung. War einige Tage geschäftlich unterwegs.
Habe jmd. regional gefunden, der mir für ein schmales Geld ein kleines Programm geschrieben hat mit dem ich einige Funktionen einstellen kann und genau auf mich abgeschnitten ist :)

Danke für die netten Zuschriften.

VG