DSolve[Derivative[1][y][x] == (-x^3 - x^3*Log[x] - E^x*y[x] + x*y[x] - x*y[x]^2 - x*Log[x]*y[x]^2)/(x*(-E^x + x)),y[x],x]