Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Import einer Grafikdatei aus dem Internet

Gruppe

Dateien

Problem

Eine Grafik-Datei wird aus dem Internet importiert. Das Zielverzeichnis wird abgefragt.

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

StandardModule: Modul1

Private Declare Function DoFileDownload Lib "shdocvw.dll" _
  (ByVal lpszFile As String) As Long

Sub GifImport()
   Dim sPath As String
   Dim UniCodeURL As String
   sPath = Application.DefaultFilePath
   ChDrive Left(sPath, 1)
   ChDir sPath
   UniCodeURL = StrConv("http://www.herber.de/images/start1.gif", vbUnicode)
   DoFileDownload UniCodeURL
End Sub