SetDirectory["FileName"/.NotebookInformation[EvaluationNotebook[]]/.FrontEnd`FileName[d_List,nam_,___]:>ToFileName[d]];

vys={{"Bujacek Karol",A},{"Kladivko Vojtech",A},{"Yanushhkevich Alexander",A},{"Adamek Tomas",B},{"Zagatta Ondrej",A},{"Kosc Filip",A},{"Peclinovsky Michal",A},{"Teringl Adam",A},{"Prasnicka Ondrej",A},{"Jarka Vaclav",A},{"Hitchfel Jiri",C}};

dat=Union[vys]//TableForm

Export["ET1vysledky2009.png",dat]