Here my code is running fine.In this code I put x=1 but I want to run x from 1 to 100 and for each value of x I want to export the excel file by the name according to x value.like for x=1 it export by Result1, for x=2 export file name should be Result2 and for x=3 by export by name Result3 and so on.
x = 1;
q[z_] := x z + x*15*z^3;
Result1 = List[];
For[i = 0, i <= 21, i++, z = N[1*10^-6 + i*5*10^-8];
func1 = q[z];
AppendTo[Result1, {z, func1}]];
Export[" Result1file.xls", Result1, "XLS"];