This works, but it is a hack:
In[476]:= li = {3/2, 6/7, 1.02}
Export["C:\Users\3000\Desktop\li.nb", li]
li1 = Import["C:\Users\3000\Desktop\li.nb"]
li1
N[li]
Out[476]= {3/2, 6/7, 1.02}
Out[477]= "C:\Users\3000\Desktop\li.nb"
Out[478]= Notebook[{Cell[
BoxData[RowBox[{"{",
RowBox[{FractionBox["3", "2"], ",", FractionBox["6", "7"], ",",
"1.02`"}], "}"}]], "Input"]},
FrontEndVersion ->
"10.0 for Microsoft Windows (64-bit) (July 1, 2014)",
StyleDefinitions -> "Default.nb"]
Out[479]= Notebook[{Cell[
BoxData[RowBox[{"{",
RowBox[{FractionBox["3", "2"], ",", FractionBox["6", "7"], ",",
"1.02`"}], "}"}]], "Input"]},
FrontEndVersion ->
"10.0 for Microsoft Windows (64-bit) (July 1, 2014)",
StyleDefinitions -> "Default.nb"]
Out[480]= {1.5, 0.857143, 1.02}
