export numbers in EngineeringForm not working

I have a table containing some small numbers and I must export it to a file with the EngineeringForm format, i.e. the xxEyy format. All well and good with EngineeringForm, I get what I want in Mathematica:

EngineeringForm[data[[300 ;; 305, 2]], NumberFormat -> (Row[{#1, "E", #3}] &)] 

and the output is:

{61.7082E-21,70.9711E-21,81.1444E-21,93.1915E-21,106.482E-21,121.853E-21} 

But if I export this with:

Export["file.dat",  Table[   EngineeringForm[data[[i, 2]],      NumberFormat -> (Row[{#1, "E", #3}] &)],   {i, 1, Length[data]}   ],  "Table", "FieldSeparators" -> "    "] 

I get the following in the exported file:

EngineeringForm[6.170824822598857*^-20, NumberFormat -> (Row[{#1, "E", #3}] & )] EngineeringForm[7.097113136522312*^-20, NumberFormat -> (Row[{#1, "E", #3}] & )] EngineeringForm[8.114441559781487*^-20, NumberFormat -> (Row[{#1, "E", #3}] & )] EngineeringForm[9.319148947863342*^-20, NumberFormat -> (Row[{#1, "E", #3}] & )] EngineeringForm[1.0648228685547918*^-19, NumberFormat -> (Row[{#1, "E", #3}] & )] EngineeringForm[1.2185263423417555*^-19, NumberFormat -> (Row[{#1, "E", #3}] & )] 

This puzzles me to no end. I don’t get what I am doing wrong. This exporting of data business in mathematica I find very very confusing! Don’t get me started on exporting publication ready figures, but that’s a different discussion.

Cheers