Set sc=$$Error^%apiOBJ( 5002 ,$ze)
   ^
<STORE>XMLExportTrap+ 4 ^Office.Ex.xl.worksheets.sheet. 1 

/// для формирования выходного файла
ClassMethod Create(absPath As %String, nSheet As %Integer, GLB As %String = "^||cr") As %Status
{
             ... формирование данных

	;# формирование имени файла
	s fullPath=$$$FILE.NormalizeFilename(fullPath_"\"_obj.fileName_obj.fileInd_"."_obj.fileExt)
	s sc=obj.SaveToFile(fullPath)
	q:($$$ISERR(sc)) $$$UTIL.Err(,,sc)
	q sc
}

/// для формирования выходного файла
Method SaveToFile(filename As %String) As %Status
{
	#define UTIL ##class(Office.Util)
	s writer=##class(%XML.Writer).%New()
	q:('$IsObject(writer)) $$$UTIL.Err("Не удалось создать объект ##class(%XML.Writer).%New() в "_..%ClassName())
	s writer.NoXMLDeclaration= 1 
	d writer.OutputToFile(filename)
	d writer.Write("<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>")
	q writer.RootObject(%this,"worksheet")
}