Filedownload von Server geht nicht mehr

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 Sub DownloadLogfilesFromServer() vSourceFileGt = "http://xxx.xxx/static/igator_files/kwanm.csv" vLogFileGtName = "kwanm.csv" vWorkDir = ThisWorkbook.Path ' GT Basisdaten vDestinationFile = vWorkDir + "/" + vLogFileGtName ' alte Datei loeschen, wenn vorhanden If Dir(vDestinationFile) "" Then Kill vDestinationFile End If ' Download starten und autom. URL-Cache leeren a = FileDownload(vSourceFileGt, vDestinationFile) End Sub Private Function FileDownload(ByVal sURL As String, ByVal sLocalFile As String, Optional ByVal _ bClearCache As Boolean = True) As Boolean ' Download ausführen vResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0) FileDownload = (vResult = 0) End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

#If Win64 Then Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _ _ (ByVal pCaller As LongPtr, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As LongPtr, _ ByVal lpfnCB As LongPtr) As Long #Else 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 #End If

Private Sub DownloadLogfilesFromServer() Dim vSourceFileGt As String Dim vLogFileGtName As String Dim vWorkDir As String Dim vDestinationFile As String Dim a As Long vSourceFileGt = "http://xxx.xxx/static/igator_files/kwanm.csv" vLogFileGtName = "kwanm.csv" vWorkDir = ThisWorkbook.Path & "/" 'GT Basisdaten vDestinationFile = vWorkDir & vLogFileGtName 'Download a = URLDownloadToFile(0, vSourceFileGt, vDestinationFile, 0, 0) 'Prüfen ob Download erfolgreich If a = 0 Then MsgBox "Datei wurde runtergeladen" Else MsgBox "Download fehlgeschlagen" End If End Sub

Vielen Dank für die Gegenprobe. Da weiß ich erstmal, dass kein übler Programmierfehler vorliegt. Über den Programmierstil lasse ich mich gern belehren. Ich habe es mir autodidaktisch eben so angewöhnt. Da ich den Code i.d.R. nur selbst bearbeite/lesen muss, passt es für mich und ich finde mich zurecht (meist) ;-)
Wir nutzen hier in der Verwaltung noch das 2010er Office. Das 2016er wird in Bälde ausgerollt. Ich lasse in der IT mal gegenprüfen, ob das Makro im 2016er Office und unseren Gegebenheiten läuft. Ich vermute, dass es an der Windowsumgebung liegt und bilde mir ein, vor Kurzem erst etwas gelesen zu haben über Probleme mit dem temporären Download-Verzeichnis, welches die Funktion anspricht, was aber im Windows 10 ggf. woanders liegt/irgendwie verdreht ist. Da muss ich Tante Google nochmal bemühen.
Wie auch immer: Danke für die Hilfe!
Mark

Hallo Mark,
ich habe Deinen Code mal zusammengefasst und die globalen Variablen rausgeschmissen. Die Variablen für den Dateinamen und das Zusamensetzen des Pfades habe ich so gelassen, weil ich nicht weiß, ob Du die vielleicht noch anders verwenden willst.
Also bei mir läuft das Ganze unter Windows 10 sowohl mit Excel 2016, wie auch mit Excel 2010:

Option Explicit


' Benötigte API - Funktionen
#If Win64 Then
'Excel 64 Bit
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As LongPtr, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As LongPtr, _
ByVal lpfnCB As LongPtr) As Long
Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "wininet.dll" _
Alias "DeleteUrlCacheEntryA" ( _
ByVal lpszUrlName As String) As Long
#Else
'Excel 32 Bit
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 Declare Function DeleteUrlCacheEntry Lib "wininet.dll" _
Alias "DeleteUrlCacheEntryA" ( _
ByVal lpszUrlName As String) As Long
#End If


Public Sub Main()
Dim vWorkDir As String
Dim vLogFileGtName As String
Dim vSourceFileGt As String
Dim vDestinationFile As String
Dim vResult As Long
vSourceFileGt = "https://extranet.stadt-chemnitz.de/static/downloadtest/kwanm2.csv"
vLogFileGtName = "kwanm2.csv"
vWorkDir = ThisWorkbook.Path
vDestinationFile = vWorkDir & "\" & vLogFileGtName
'Datei ändert sich ständig; Sicher stellen, dass aktuelle Version geladen wird
'URL-Cache leeren
vResult = DeleteUrlCacheEntry(vSourceFileGt)
'Laedt Logfile vom Server herunter und speichert dieses ins Arbeitsverzeichnis des Makros
vResult = URLDownloadToFile(0, vSourceFileGt, vDestinationFile, 0, 0)
'Datenbereich loeschen
Sheets("Basisdaten").Activate
Range("A1:P5000").Clear
'Importiert Basisdatenfile
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" + vWorkDir + "\" + vLogFileGtName,  _
Destination:=Range("$A$1"))
.Name = "intergator_memory_usage"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 65001
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = ";"
.TextFileColumnDataTypes = Array(2, 2, 2, 2, 2)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

Viele Grüße,
Zwenn

Beliebteste Forumthreads (12 Monate)

Filedownload von Server geht nicht mehr

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Filedownload von Server geht nicht mehr

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread