p = Plot[Evaluate@ Table[PDF[GammaDistribution[alpha, beta], x], {alpha, {0.001}}, {beta, {14660}}], {x, 0, 100000}, Filling -> Axis]. After this command, when i want to export the data points to excel in the form compatible with the word, i am not getting. I mean when i use the command, data = Cases[Normal[p], x_Line :> First[x], Infinity]; data = Flatten[data, 1]; TableForm[data[[1 ;; 100]]], i get the data points but i when i copy paste the values, all the values come as 10^(-6) which is not getting plotted in excel or origin. How do i achieve ths?