Marking = Document.Data.Markings[MarkingName]

data = []

for i in Marking.GetSelection(SharePointShapeFiles).AsIndexSet():

 data.append(dict([(col.Name, col.RowValues.GetValue(i).Value) for col in SharePointShapeFiles.Columns]))

from Spotfire.Dxp.Data import AddRowsSettings

from System.Net import WebClient, NetworkCredential

from System.IO import Path

# Clear result table

Result.RemoveRows( Result.Select( "rowid() > 0") )

client = WebClient()

client.Credentials = NetworkCredential('svc_spotfire', 'Santos2015');

for row in data:

 try:

  tfile = Path.GetTempFileName() + ".shp"

  client.DownloadFile( row[URLColumn], tfile )

  ds = Document.Data.CreateFileDataSource( tfile )

  Result.AddRows( ds, AddRowsSettings( Result, ds, ResultNameColumn, row[BorderNameColumn] ) )

 except:

  pass