Marking = Document.Data.Markings[MarkingName]

data = []

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

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