ClearAll[Evaluate[Context[]<>"*"]]

SetDirectory[NotebookDirectory[]]

ClearAll

FileNames["*.xls"]

pom1=Import["koeficientyReal.xls"];
Length[pom1];
pom2=pom1[[1]];
info=pom2[[1]];
pom3=DeleteCases[pom2,info];
MatrixForm[pom3];
praveStrany1=pom3\[Transpose][[-1]];
praveStrany2=Last/@pom3;
matice1=DeleteCases[pom3\[Transpose],praveStrany1]\[Transpose];
matice2=Take[#,10]&/@pom3;
matice3=Drop[#,-1]&/@pom3;
reseni1=LinearSolve[matice1,praveStrany1];
reseni2=Inverse[matice1].praveStrany1;
%-%%//Chop;
promenne=(Subscript[x, #])&/@Range[Length[praveStrany1]];
Table[(Subscript[x, i]),{i,1,Length[praveStrany1]}];
rovnice=Thread[matice1.promenne==praveStrany1];
sol=Solve[rovnice][[1]];
reseni2-promenne/.sol//Chop;

ClearAll[Evaluate[Context[]<>"*"]]
pom1=Import["koeficientyKomplex.xls"];
pom2=pom1[[1]];
info=Take[pom2,2];
pom3=Drop[pom2,{1,2}];
pom4=(Partition[#,2]&/@pom3)/.{re_Real,im_}:>re+I*im;