Type xlsxRichText = Class
	file_; //TSExcelFile对象
	sheet_;//XmlSheet对象
	Function Create(); overload;
	Begin
	End;
	
	class Function NewObject(sheetname, self);
	Begin
		file_ := file;
		o = file_.WorkBook().GetSheetObj(sheetname);
		if not ifObj(o) then return 0;
		richTxt := new xlsxRichText();
		richTxt.sheet_ = o;
		richTxt.file_ := file;
		return richTxt;
	End;
End;