VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Download und Öffnen einer Arbeitsmappe

Gruppe

Extern

Bereich

Internet

Thema

Download und Öffnen einer Arbeitsmappe

Problem

Eine Excel-Arbeitsmappe soll aus dem Internet downgeladen und danach (nicht im Browser) geöffnet werden.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




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

    


Beiträge aus dem Excel-Forum zu den Themen Extern und Internet