Office: (Office 2019) Download per VBA nicht aktuell

Hallo,

ich nutze in VBA eine Download-Funktion, die mir die neueste Version meines Frontend downloaden soll. Der Download an sich funktioniert, doch leider wird eine alte Version gespeichert. Ich vermute, dass beim mehrmaligen download der gleichen Datei auf irgendeinen Cache oder internen Speicher zugegriffen wird.

Die Frage ist wie kann man dies verhindern, ohne dass man einen eindeutigen Dateinamen wählt?

Bin für jeden Tipp dankbar.

Viele Grüße
Stefan77

 

Moin Stefan,

zeig doch mal den Code, mit dem Du das FrontEnd herunterlädst.

Gruß
Doming

 

Moin Stefan,

der folgende Code stammt zwar aus XL, hat aber genau Dein Thema im Fokus. Vielleicht hilft's weiter:

Code:

Dim xmlhttp As New MSXML2.XMLHTTP60, sURL As String, sCode as String
'setzt die Verweise 'Microsoft HTML Library' & 'Microsoft XML, v6.0' voraus

sURL = "Dein URL"

xmlhttp.Open "POST", sURL, False
xmlhttp.send
'POST ist stabiler als GET, schneller und ignoriert den Cache, ist also tatsächlich aktuell

sCode = xmlhttp.responseText

Viel Spaß damit!

 

Moin nochmal!
Das Thema für XL etwas ausgebaut findet sich hier. Wenn das auch in AC funktioniert, wäre es nett, eine Weiterverarbeitung der response.txt in Access hier auch vorzustellen
Schöne Grüße!

 

Hier ein Auszug von meine aktuellen Code:

Code:

bolDownload = DownloadFile("http://BeispielURL/AccessDB.accde", strDBPath)

Code:

Private 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
Private Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000



Public Function DownloadFile(sSourceUrl As String, sLocalFile As String) As Boolean

    DownloadFile = URLDownloadToFile(0&, sSourceUrl, sLocalFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS

End Function

 

Moin Stefan,

Jessesmeisenknödel ist das in AC ein Aufwand! Diese Variante hängt an Deinen Query einen Zeitstempel an, was den Link unique macht. Du solltest also den aktuellen Inhalt bekommen.

Code:

Private 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

Private Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10

Public Function DownloadFile(sSourceUrl As String, sLocalFile As String) As Boolean
    Dim sNoCacheUrl As String
    sNoCacheUrl = sSourceUrl & IIf(InStr(sSourceUrl, "?") > 0, "&", "?") & "nocache=" & Format(Now, "yyyymmddhhmmss")

    DownloadFile = URLDownloadToFile(0&, sNoCacheUrl, sLocalFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function

Mein Code oben funktioniert wohl auch in AC, hat mir ein Kollege geflüstert.

Schöne Grüße und viel Erfolg!