Для EasyExcel формирую строку и потом пишу все сразу через .WriteRow
Код: Выделить всё
FREE(PoolQueue)
LOOP T# =1 TO RECORDS(XlsDataQueue)
GET(XlsDataQueue,T#)
CLEAR(PoolQueue)
LOOP Y# = 1 TO 200
CurrentField = WHAT(XlsDataQueue,Y#)
PoolQueue.Line = CLIP(PoolQueue.Line)&CHOOSE(Y#=1,'','@')&CLIP(CurrentField)
END
ADD(PoolQueue)
END
...
LOOP W# = 1 TO RECORDS(PoolQueue)
GET(PoolQueue,W#)
EasyCalc.WriteRow(W#,1,PoolQueue.Line,'@')
END