void Uxxx::SetRangeText(long nItem,long nCol,CString strText)
{
CString strCell = Cell(nItem,nCol);
Range mRange = m_WorkSheet.GetRange( COleVariant( strCell ),COleVariant( strCell ) );
CellFormat mCellFormat;
mCellFormat.AttachDispatch(mRange.GetCells());
COleVariant varFormat("@");
mCellFormat.SetNumberFormatLocal(varFormat);
mRange.SetFormulaR1C1( COleVariant(strText) );
}