[randrews]

To Fordewind - мы долго могем все это в порядок приводить

Если есть шаблон, то примерно так:

Добавьте в 370 таблицу
Поле "Worksheet Name"
Ключ "Worksheet Name","Row No.","Column No."
В SaveCellsToExcelInWshs() в самом начале отсортируйте таблицу по этому ключу
В цикле

	IF CurrWsh <> "Worksheet Name" THEN BEGIN
	  CurrWsh := "Worksheet Name";
	  SelectSheet(CurrWsh);
	END;

Не забудьте CurrWsh инициировать на первом шаге цикла.

Ф-я SelectSheet:

XlWorkSheet := XlWorkBook.Worksheets.Item(Caption);
XlWorkSheet.Activate;

Если листы заново создаются, то можно поправить код, согласно совету balashov.