Экспорт в Microsoft Excel (много)

finsoftrz

Я использую dexcel. Это тоже прямой вывод в xls-файл, работающий очень быстро. Если надо, то потом подключаюсь к созданному файлу и довожу. Например, вставляю фотки или графики. Подключаюсь только не через ole, а через vbscript. PS. Dexcel имеет ограничение в 64к строк и 256 колонок. Обойти можно через доводку...

kreator

Игорь, файл я взял. Хорошо бы, конечно данные получить. У меня как раз с этим проблемы. Ну ладно, попробую своими воспользоваться (займёт время, в tps давно ничего нет). И ещё. Условия цвета ячейки какие?

Игорь Столяров

kreator писал(а): попробую своими воспользоваться

Не нужны вообще никакие TPS данные, что-то вроде и все:

Код: Выделить всё

  Loop I# = 1 to 7 by 1
     Наименование = Choose(I#,'Первый','Второй','Третий')
     Артикул = Choose(I#,'AAA','BBB','CCC')
     Цена = Choose(I#,'1.11','22.2','333')
     Маркер = Choose(I#,080FFFFH,0EBCE87H,0FFC0FFH)  ! Как пример
     ...
  end

Yufil

Это о List & Label...
>> Поэтому я думаю, что лучше разобраться непосредственно с Excel'ом, а не хвататься сразу за сторонний продукт.
>> Который может оказаться платным или перестать почему-то работать (правильно работать) в новой версии.(Это к вопросу о переходе с С63 на С10)

Сам L&L, естественно, платный. А вот сборку для Clarion (вполне работоспособную даже в отсутствие инсталляции) раздаю нахаляву.
Последняя сборка для CW10/L&L21 . Правда, у меня профиль работы изменился, с отчётами не работаю...

Игорь Столяров

Yufil писал(а): Сам L&L, естественно, платный.

Я так считаю: есть действительно сложный функционал, для которого нужно использовать сторонние наработки.
Но конкретно работа с Microsoft Excel - проста. Очень хороший и понятный интерфейс OLE сделан усилиями Microsoft.
Нужно ли для решения задачи создания отчетов в Microsoft Excel из программ привлекать еще что-то ? Наверно нет.
Ну или если только для решения задачи требуется что-то уж совсем круто-навороченное ....

gopstop2007

kreator писал(а): Игорь, файл я взял. Хорошо бы, конечно данные получить. У меня как раз с этим проблемы. Ну ладно, попробую своими воспользоваться (займёт время, в tps давно ничего нет). И ещё. Условия цвета ячейки какие?

если можно киньте результат здесь или в личку, заранее благодарен

RaFaeL

https://libxlsxwriter.github.io/index.html
Давайте вот это прикрутим к Клариону
Я знаю, на форуме есть специалисты ))
http://www.rapideuphoria.com/libxlsxwriter.zip вот уже собранная dll

kreator

RaFaeL писал(а):https://libxlsxwriter.github.io/index.html
Давайте вот это прикрутим к Клариону

На первый взгляд - полная хрень. Почитал FAQ про AutoFit, ребята гонят. Часто пользуюсь, нужная вещь. Если их Writer это не может, то окажется, что он ещё много чего не может и тогда - сохранишь что-то, что он может, а потом через OLE будешь доводить документ до кондиции. И после таких плясок с бубном подумаешь - нафига нужна эта хрень

.

RaFaeL

Ну может кому не надо, а я пожалуй попробую. Пустой файл у меня уже получилось создать. Пробую дальше...

У меня в составе EasyXML есть класс XlsxWriter, мне хватает.

finsoftrz

Да у нас коллега из Белоруссии уже сделал не так давно прямой вывод в xlsx, все на чистом кларионе. Писал про это. Только раздавать пока морально не был готов... Там зипованный xml, можно разобраться, если очень надо...

Игорь Столяров

finsoftrz писал(а): Там зипованный xml, можно разобраться, если очень надо...

Форматы Microsoft, в т.ч. и XLSX, патентованные, но открытые.
Иначе никто в них не будет хранить тайну с уровнем выше семейной.

Что-там постоянно правят ...

Вот ссылка на спецификацию: https://msdn.microsoft.com/en-us/librar ... e.12).aspx

kreator

Пример я почти закончил.
Вопрос к Игорю Столярову. Не получается группировка. Почему-то Excel делает вот так:

И так я попробовал,и так. Голову сломал. Есть какой-то принцип?

Игорь Столяров

kreator писал(а):Есть какой-то принцип?

Я же не знаю как это делается в XML ...

При работе через OLE просто выполняем команду и все:

Код: Выделить всё

ExcelObject{'Application.WorkBooks.Range("A' & Clip(RowStart) & ':A' & Clip(RowEnd) & '").Rows.Group'}

Можно попробовать записать макрос этой операции и посмотреть какие-там параметры выставляются ....

kreator

Не получается руками сделать. Т.е. выделяю ячейки, нажимаю кнопку "Группировать" и вот такой результат. Причём с Вашим файлом всё хорошо. Не пойму, настройка листа что-ли какая?