​​SystemOpen@Export["c.xls",Table[FindRoot[6.42965*1.21663*Log[1+0.00255*(p*0.1/x)^(1/1.21663)]+1.44638*Log[1+0.26895*p*0.1/x]4.49835*1.18924*Log[1+0.00168*(p*0.9/(1-x))^(1/1.18924)]+0.85764*Log[1+0.03736*p*0.9/(1-x)],{x,0.1}],{p,4,100,4}]]