Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Dwonload File from Url mit Password |
21.12.2020 19:27:51 |
Klaus |
|
|
|
21.12.2020 19:35:22 |
Gast6181 |
|
|
|
21.12.2020 20:06:12 |
Klaus |
|
|
|
21.12.2020 20:22:06 |
Mase |
|
|
|
21.12.2020 20:36:35 |
Klaus |
|
|
|
21.12.2020 21:04:10 |
Mase |
|
|
|
21.12.2020 21:06:10 |
Mase |
|
|
|
22.12.2020 16:04:50 |
Klaus |
|
|
|
22.12.2020 16:23:13 |
Mase |
|
|
|
22.12.2020 18:46:34 |
Klaus |
|
|
|
22.12.2020 16:45:17 |
Gast6181 |
|
|
|
22.12.2020 17:23:14 |
Mase |
|
|
Von:
Klaus |
Datum:
21.12.2020 19:27:51 |
Views:
802 |
Rating:
|
Antwort:
|
Thema:
Dwonload File from Url mit Password |
Guten Abend,
ich möchte gern eine Datei Downloaden und sie im Ziel Ordner abspeichern.
Die URL ist geschütz mit Username und password leider finde ich im Netz kein VBA beispiel
mit Passwort.
Vllt könnte mit jemand dabei helfen oder einen Denkanstoß geben.
Beste Grüße
Klaus
Option Explicit
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Originalcode - hier angepasst - von: Randy Birch,
' Copyright ©1996-2002 VBnet, All Rights Reserved.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare 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
Private Const ERROR_SUCCESS As Long = 0
Public Function DownloadFile(ByVal sURL As String, _
ByVal sLocalFile As String) As Boolean
Dim lngRetVal As Long
'if the API returns ERROR_SUCCESS (0),
'return True from the function
DownloadFile = URLDownloadToFile(0&, sURL, _
sLocalFile, 0&, 0&) = ERROR_SUCCESS
End Function
Private Sub DownloadFile()
Dim sourceUrl As String
Dim targetFile As String
sourceUrl = "http://diedatei.csv"
targetFile = "F:\Test"
Call DownloadFile(sourceUrl, targetFile)
End Sub
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Dwonload File from Url mit Password |
21.12.2020 19:27:51 |
Klaus |
|
|
|
21.12.2020 19:35:22 |
Gast6181 |
|
|
|
21.12.2020 20:06:12 |
Klaus |
|
|
|
21.12.2020 20:22:06 |
Mase |
|
|
|
21.12.2020 20:36:35 |
Klaus |
|
|
|
21.12.2020 21:04:10 |
Mase |
|
|
|
21.12.2020 21:06:10 |
Mase |
|
|
|
22.12.2020 16:04:50 |
Klaus |
|
|
|
22.12.2020 16:23:13 |
Mase |
|
|
|
22.12.2020 18:46:34 |
Klaus |
|
|
|
22.12.2020 16:45:17 |
Gast6181 |
|
|
|
22.12.2020 17:23:14 |
Mase |
|
|