HERBERS Excel-Forum - die Beispiele

Thema: Import einer Grafikdatei aus dem Internet

Home

Gruppe

API

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("https://www.herber.de/images/start1.gif", vbUnicode)
   DoFileDownload UniCodeURL
End Sub

Beiträge aus dem Excel-Forum zu den Themen API und Dateien

Excel to Word Kapitel VBA Anfangskapital berechnen
Mehrere Zellen in mehreren Dateien ersetzen Vergleichen zweier Dateien und aktualisieren
Dateien aus Unterordner öffnen Gestapelte Säulen-Diagramm: Ich kapier's nicht
Zusammenführung aus mehreren Dateien Googel Maps API in Excel VBA einfügen
Alle Dateien in einem Unterordner öffnen Mehrere txt Dateien einlesen in ein Programm
Spalte in andere Dateien kopieren + zurückkopieren csv Dateien importieren
Ordner mit Unterordnern/Dateien kopieren Auswertung über mehrere Dateien
Dateien vergleichen-doppelte löschen Kopieren über 2 Dateien?
Dateiinfo aller Dateien in allen Verz./Unterverz 2 Dateien Vergleichen und Spalten kopieren?
2 Dateien Vergleichen und Spalten kopieren? Dateien vergleichen (Zeileninhalte)
alle *.xls dateien in einem ordner löschen Dateien finden, die mit Passwort geschützt sind
Mehrere Dateien in eine Tabelle 2 Dateien abgleichen
Anfänger: daten von mehreren dateien verarbeiten Versand Exceldateien per E-Mail
Suche die MSO Dateien? Kopieren von vielen Dateien in viele Dateien
Verhalten von Excel beim Öffnen von Dateien Addin bestimmten Dateien zuordnen
Dateinamen von 200 Dateien per Makro umbenennen ? Dateien öffnen Werte auslesen
UDF soll nicht auf Daten anderer Dateien zugreifen Dateien öffnen, Update-Meldung ausschalten
Dateien öffnen Prüfen, wie viel Dateien geöffnet sind
Excel-Liste in Textdateien aufspalten Word-Dateien durchsuchen
VBA Editor für FRX-Dateien befehl in freigegebenen dateien (xlShiftToLeft)
zellen aus verschiedenen dateien auslesen zellen aus verschiedenen dateien auslesen
PDF Dateien aus Excel heraus öffnen Dateien öffnen makro ausführen u. schließen
Makro ausführen bei Excel-Dateien ohne zu öffnen ? Inhalte aus mehreren Dateien zusammenfassen Makro?
Dateien zählen Dateien öffnen im gleichen Verzeichnis
Berechnung vom Endkapital