Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Grafikdatei aus dem Internet downloaden und in Tabelle einfügen

Gruppe

Internet

Problem

In das aktive Blatt soll eine downzuladende Grafik aus dem Internet eingefügt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Private Declare 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 Downl()
   Dim pct As Picture
   Dim lResult As Long
   Dim sURL As String, sLocalFile As String
   Range("B7").Select
   sURL = Range("B1").Value
   sLocalFile = Application.DefaultFilePath & "start2.gif"
   lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0)
   Set pct = ActiveSheet.Pictures.Insert(sLocalFile)
End Sub