Excel выгрузка с несколькими листами

[Evgenia26]

Цитата:

Сообщение от 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.

Подскажите, пожалуйста, в я пыпаюсь отсортировать таблицу excel buffer по ключу "Worksheet Name","Row No.","Column No."

TempExcelBuffer.SETCURRENTKEY("Worksheet Name","Row No.","Column No.");

но по-прежнему ключ в таблице остался "Row No.","Column No.". Что делать, почему так происходит?