John5

Ik had graag volgende zipfile gedownload, geunzipt en opgeslaan via VBA http://static.belgianfootball.be/project/publiek/download/limresdownP.zip en deze vervolgens geopend Eerder had ik dit via volgende, maar om een of andere reden werkt dit plots niet meer? Dim vntTemp() As Byte Dim strFolder As String Dim strZippedPath As String Dim strUnzippedFile As String Dim strUnzippedPath As String On Error Resume Next strFolder = Application.DefaultFilePath & "\Unzip" strZippedPath = strFolder & "\Zipped.zip" MkDir strFolder With CreateObject("MSXML2.XMLHTTP") .Open "GET", "http://static.belgianfootball.be/project/publiek/download/limresdownP.zip", False 'am_2013 .send Open strZippedPath For Binary As 1 vntTemp = .ResponseBody Put #1, , vntTemp Close #1 End With With CreateObject("Shell.Application") strUnzippedFile = .Namespace((strZippedPath)).Items.Item(0) .Namespace((strFolder)).CopyHere .Namespace((strZippedPath)).Items End With strUnzippedPath = strFolder & "\" & strUnzippedFile Workbooks.Open strUnzippedPath, , , , , , , , , , , , , True Workbooks(strUnzippedFile).SaveAs Application.DefaultFilePath & "\" & strUnzippedFile Kill strUnzippedPath Kill strZippedPath RmDir strFolder