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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread