Wolfram Cloud Document

Export["C3H8.xls",Table[{n,p1,p2}/.FindRoot[{n((0.213832*p1^1.58622)/(1+0.21405*p1^1.58622)+(0.0869386*p1^0.453591)/(1+0.00377*p1^0.453591))((2.05986*p2^1.20192)/(1+1.76097*p2^1.20192)+(0.0031527*p2^1.09255)/(1+0.0041*p2^1.09255))h},{{n,h},{p1,0},{p2,0}}],{h,0,1.2,1.2/60}]]

C3H8.xls

SystemOpen[DirectoryName[AbsoluteFileName["C3H8.xls"]]]

SystemOpen[DirectoryName[AbsoluteFileName["C3H4.xls"]]]