webuse choice
tab dealer

asclogit choice dealer, case(id) alternatives(car) casevars(sex income)
putexcel set "test.xlsx", replace

 forvalues i=1/2 {
	local j = 3*`i' - 2
	estat mfx, varlist(sex income) at(sex=`i' dealer=1)
	putexcel B`j' = matrix(r(Europe))

	}