SET PROCEDURE TO xfrx.fxp
m.loXLSX=CREATEOBJECT("_TOXLSX")
m.loXLSX.nMaxRow=65535 && 1048576, 65535
liErr=m.loXLSX.CopyToXLSX(m.lcAlias, m.lcFile, m.lcFCCallBack, m.lcSheetName, ;
m.llAddHeader, m.llShowGrid, m.loProgress, m.lcSheetExpressionGroup)