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

Yuri2 · 23.03.2007, 08:53

Добрый день.
При использовании table 370 (Excel buffer) не могу почему - то сделать выгрузку с несколькими листами.
Команда
ExcelBuf.CreateSheet('report 1','Description',COMPANYNAME,USERID);
создает лист, но если потом использовать
ExcelBuf.CreateSheet('report 2','Description',COMPANYNAME,USERID);
то первый лист исчезает.
Это наверно ограничения OLE в Excel.
Если причина в другом, подскажите.

satir · 23.03.2007, 10:10

Посмитрите здесь http://forum.mazzy.ru/index.php?act=findpost&pid=20089, если не ошибаюсь там есть ответ и на этот вопрос.

Fordewind · 23.03.2007, 10:34

А он не расчитан на выгрузку на несколько листов. Хотя бы потому что ключом является координата ячейки без привязки к листу. Всетаки стандартный ExcelBuffer слабоват. Мы тут с Randrews'ом дорабатывали его по мелочам, в частности и этот момент тоже

В принципе, если очистить от всяких ненужностей, то можно и сюда выложить

Yuri2 · 23.03.2007, 11:28

ОК

balashov · 23.03.2007, 15:44

Цитата:

Сообщение от Yuri2

Добрый день.
При использовании table 370 (Excel buffer) не могу почему - то сделать выгрузку с несколькими листами.
Команда
ExcelBuf.CreateSheet('report 1','Description',COMPANYNAME,USERID);
создает лист, но если потом использовать
ExcelBuf.CreateSheet('report 2','Description',COMPANYNAME,USERID);
то первый лист исчезает.
Это наверно ограничения OLE в Excel.
Если причина в другом, подскажите.

новый лист должен добовляться по принципу

Код:

xlsWorksheet := xlsWorkbook.Worksheets.Add;		  
xlsWorksheet.Name := 'Имя Нового листа';
xlsWorksheet.PageSetup.Orientation := 2;
xlsWorksheet.Activate;	  //обязательный атрибут перехода, без него не покатит

randrews · 23.03.2007, 17:45

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.

Yuri2 · 26.03.2007, 06:50

Спасибо
Создал в 370 функцию по принципу

Цитата:

Сообщение от balashov

новый лист должен добовляться по принципу

Код:

xlsWorksheet := xlsWorkbook.Worksheets.Add;		  
xlsWorksheet.Name := 'Имя Нового листа';
xlsWorksheet.PageSetup.Orientation := 2;
xlsWorksheet.Activate;	  //обязательный атрибут перехода, без него не покатит

и все работает

randrews · 26.03.2007, 13:27

Хоть это уже не актуально, но может в будущем кто будет читать тему

Главное забыл сказать в вышеописанном алгоритме

Worksheet Name - в конец первичного ключа еще добавить надо

Padre · 24.05.2007, 21:46

Можноперед созданием новой странницы старые данные из буфера выгружать, а потом его заполнять заново для новой страницы?

Forward · 25.05.2007, 12:15

Как мне кажется, проще сразу писать в excel, без Excel buffer,
так как возможности у Excel buffer довольно слабенькие, и для
создания отчетов со сложным форматированием не очень подходит.
Или потом приходится форматировать заново,
а если напрямую в Excel, то вас ничего не держит, хотите шейпы туда вставляйте,
хотите еще чего....

PS Доработкой Excel buffer занимались, как я знаю, не один и не два человека среда знакомых навизионеров,
потом надоело, стали выгружать в Excel напрямую.

Padre · 25.05.2007, 13:28

Цитата:

Сообщение от Forward

Как мне кажется, проще сразу писать в excel, без Excel buffer,
так как возможности у Excel buffer довольно слабенькие, и для
создания отчетов со сложным форматированием не очень подходит.
Или потом приходится форматировать заново,
а если напрямую в Excel, то вас ничего не держит, хотите шейпы туда вставляйте,
хотите еще чего....

PS Доработкой Excel buffer занимались, как я знаю, не один и не два человека среда знакомых навизионеров,
потом надоело, стали выгружать в Excel напрямую.

Да согласен, сам с этим согласен.
Ну вот насущный вопрос, как можно выгружать картинки в excel, bили второй вариант - хранить в базе поля с именем файла, а в эксель подставлять уже эти файлы?

Forward · 25.05.2007, 14:06

Ну если навскидку, то вот пример

Код:

  CREATE(xlApp);
  xlBook := xlApp.Workbooks.Add;
  xlSheet := xlBook.Worksheets.Item(1);
  xlSheet.Name := 'test';
recCompanyInf.FINDFIRST;
recCompanyInf.CALCFIELDS(Picture);
recCompanyInf.Picture.EXPORT('c:\temp.bmp');

xlSheet.Shapes.AddPicture('c:\temp.bmp', 1, 1, 100 ,100, 100, 100);

Хотя в принципе это больше к программированию Excel вопрос =).
Там добавить можно 3мя различными способами, не уверен, все ли работают в Nаv, но думаю что все.
Смотрите object browser в excel, там всего много.

PS Не смог вообразить для какой задачи это нужно?
Расскажите, если не секрет конечно?

Forward · 25.05.2007, 15:02

Так будет правильно:

Код:

Name	DataType	Subtype	Length
recCompanyInf	Record	Company Information	
xlApp	Automation	'Microsoft Excel 11.0 Object Library'.Application	
xlSheet	Automation	'Microsoft Excel 11.0 Object Library'.Worksheet	
xlBook	Automation	'Microsoft Excel 11.0 Object Library'.Workbook	

CREATE(xlApp);
xlBook := xlApp.Workbooks.Add;
xlSheet := xlBook.Worksheets.Item(1);
xlSheet.Name := 'test';
recCompanyInf.FINDFIRST;
recCompanyInf.CALCFIELDS(Picture);
recCompanyInf.Picture.EXPORT('c:\temp.bmp');

xlSheet.Shapes.AddPicture('c:\temp.bmp', 1, 1, 0 ,0, 0, 0);
xlSheet.Shapes.Item(1).ScaleHeight(1, 1);  //"Реанимируем" оригинальный размер картинки
xlSheet.Shapes.Item(1).ScaleWidth(1, 1);


Report - OnPostReport()
xlApp.Visible(TRUE);
xlApp.UserControl(TRUE);

Padre · 25.05.2007, 15:53

Спасибо большое, как будет время обязательно попробую

Evgenia26 · 24.06.2007, 17:49

Цитата:

Сообщение от 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.". Что делать, почему так происходит?