(let [wb (create-xls-workbook "Export společností"
 		[["Název společnosti" "Stav společnosti"]])
		companies (get-all filters user)
        select-sheet (for [company (:items companies)]
			  	  [(:name company)
				   (:status_name companies)
				  ]
				)]
	sheet (select-sheet "Export společností" wb)
	(add-rows! sheet wb)
 	(save-workbook! "spreadsheet.xlsx" wb)
)