String aus Internet laden
Martin
Mit diesem Code wird eine Textdatei aus dem Internet geladen und wieder als Textdatei gespeichert. Diese lokale Datei muss anschliessend gelesen werden, damit der Inhalt mit VBA weiter verarbeitet werden kann.
Gibt es eine Möglichkeit direkt den Inhalt dieser Textdatei aus dem Internet zu laden und als String in VBA weiter zu verarbeiten. Somit müsste keine Datei lokal gespeichert werden.
Besten Dank für Eure Tipps
Gruss Martin
Option Explicit
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
sURL = <a href=""http://www.hafneronline.ch/wetter/awekas.txt"">"http://www.hafneronline.ch/wetter/awekas.txt"</a>
sLocalFile = Application.DefaultFilePath & "awekas.txt"
lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0)
End Sub
Anzeige