Download aus dem Internet Teil2

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 lResult As Long Dim sURL$, sLocalFile$ sURL = "https://www.herber.de/bbs/texte/ _ 11names.xls" sLocalFile = Application.DefaultFilePath & "\11names.xls" lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0) Workbooks.Open Application.DefaultFilePath & "\11names.xls" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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 lResult As Long Dim sURL$, sLocalFile$ Dim fso As Object, f1 As Object Set fso = CreateObject("Scripting.FileSystemObject") sURL = _ "https://www.herber.de/bbs/texte/11names. _ xls" sLocalFile = Application.DefaultFilePath & "\11names.xls" lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0) Set f1 = fso.GetFile(Application.DefaultFilePath & "\11names.xls") f1.Copy (Environ("TEMP") & "\11names.xls") MsgBox "Datei wurde unter: " & Chr(13) & _ Environ("TEMP") & "\11names.xls" & Chr(13) & _ "gespeichert" End Sub

Hi Tino!
Ich habe es jetzt so gemacht. Das Funktioniert auch soweit aber er lädt die Datei nicht richtig runter. Die Datei ist nur durch ein rechtsklick+speichern (C:\Temp) runterzuladen.
Weißt du wie lautet der Code lautet für den Rechtsklick auf die xls datei?
Vielen Dank
Option Explicit
Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
ByVal pCaller&, _
ByVal szURL$, _
ByVal szFileName$, _
ByVal dwReserved&, _
ByVal lpfnCB&) As Long


Private Sub Download_Datei_aus_Internet()
Dim strQuelldatei As String
Dim strZieldatei  As String
strQuelldatei = "http://www.ms-office-forum.net/forum/showthread.php?t=228695/Beispiel.xls"
strZieldatei = "E:\Testdatei.xls"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If DownloadFile(strQuelldatei, strZieldatei) = True Then
MsgBox "Download ist OK"
Else
MsgBox "Download nicht OK"
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


Public Function DownloadFile(ByVal strURL$, ByVal strLocalFilename$) As Boolean
Dim lngRet As Long
lngRet = URLDownloadToFile(0, strURL, strLocalFilename, 0, 0)
If lngRet = 0 Then DownloadFile = True
End Function

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Beispielen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread