MyDate = "Year=" & Year(Now) & "&Month=" & Month(Now) & "&Day=" & Day(Now) & "&R_id=1"
ActiveWorkbook.XmlImport URL:="http://Report_server/xml.aspx?" & MyDate, ImportMap:=Nothing _
        , Overwrite:=True, Destination:=Range("DATA!$A$1")

<?xml version="1.0" standalone="yes" ?> 
<NewDataSet>
 <xml>
  <id> 1 , 1002 , 1 </id> 
  <p_v> 3647 </p_v> 
 </xml>
 <xml>
  <id> 1 , 1006 , 1 </id> 
  <p_v> 2325 </p_v> 
 </xml>
.................
</NewDataSet>

For Each currentMap In ActiveWorkbook.XmlMaps
ActiveWorkbook.XmlMaps(currentMap.Name).Delete
Next
For Each currentConn In ActiveWorkbook.Connections
ActiveWorkbook.Connections(currentConn.Name).Delete
Next

For Each currentMap In ActiveWorkbook.XmlMaps
ActiveWorkbook.XmlMaps(currentMap.Name).Delete
Next
For Each currentConn In ActiveWorkbook.Connections
ActiveWorkbook.Connections(currentConn.Name).Delete
Next
ActiveWorkbook.XmlImport URL:="http://Report_server/xml.aspx?" & MyDate, ImportMap:=Nothing _
        , Overwrite:=True, Destination:=Range("DATA!$A$1")
For Each currentMap In ActiveWorkbook.XmlMaps
ActiveWorkbook.XmlMaps(currentMap.Name).Delete
Next
For Each currentConn In ActiveWorkbook.Connections
ActiveWorkbook.Connections(currentConn.Name).Delete
Next
ActiveWorkbook.XmlImport URL:="http://Report_server/temp.aspx?mode=xml", ImportMap:=Nothing _
        , Overwrite:=True, Destination:=Range("DATA!$O$1")