Gruppe
Extern
Problem
Eine Excel-Arbeitsmappe soll aus dem Internet downgeladen und danach (nicht im Browser) geöffnet werden.
StandardModule: Modul1
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$
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