Thema Datum  Von Nutzer Rating
Antwort
26.05.2017 16:03:54 Michael Heinzen
NotSolved
Blau Download: Sub oder Function nicht definiert
 27.05.2017 01:36:35 Mackie
NotSolved
27.05.2017 09:16:09 Gast25150
NotSolved

Ansicht des Beitrags:
Von:
Mackie		 Datum:
27.05.2017 01:36:35		 Views:
610		 Rating:
     
Antwort:
  Ja
Thema:
Download: Sub oder Function nicht definiert

Wie komst du darauf, dass es eine Funktion "DownloadFile" in VBA gibt?

Es gibt eine API-Funktion:

Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _

(ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _ 

ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

die du benutzen kannst, indem du sie einbindest und eine Sub "DownloadFile" schreibst, die diese benutzt.
z.B. so:
Sub Example()
    DownloadFile$ = "someFile.ext" 'here the name with extension
    URL$ = "http://some.web.address/" & DownloadFile 'Here is the web address
    LocalFilename$ = "C:\Some\Path" & DownloadFile !OR! CurrentProject.Path & "\" & DownloadFile 'here the drive and download directory
    MsgBox "Download Status : " & URLDownloadToFile(0, URL, LocalFilename, 0, 0) = 0
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
26.05.2017 16:03:54 Michael Heinzen
NotSolved
Blau Download: Sub oder Function nicht definiert
 27.05.2017 01:36:35 Mackie
NotSolved
27.05.2017 09:16:09 Gast25150
NotSolved