[sotisanis]

τελικα αυτος ο κωδικας μπορει να δουλεψει

Sub ImportXMLtoList()
Dim strTargetFile As String
Dim wb As Workbook

     Application.ScreenUpdating = False
     Application.DisplayAlerts = False
     strTargetFile = "http://www.taski.gr/dap.xml"
     Set wb = Workbooks.OpenXML(Filename:=strTargetFile, LoadOption:=xlXmlLoadImportToList)
     Application.DisplayAlerts = True

     wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("proionta").Range("A1")
     wb.Close False
     Application.ScreenUpdating = True


End Sub

περιμενω νεα σας για το αν ειναι σωστος η θελει διορθωσεις