Отправлено: 21.05.12 16:52. Заголовок: Снова EXCEL (продолжение)

Ранее с Excel из Harbour ни когда не работал.
Поставили тут задачу.
У некоторых поставщиков есть определенные формы заказов.
Набраны они в Excel. Сейчас народ руками заполняет эти формы
и шлет по электронке поставщикам.
Задача сводится к тому что бы в этих формах находить
нужные коды товара и в нужной ячейке проставлять заказ.
Может ткнет кто носом с чего начать что бы не напороться на грабли.
Спасибо
Сами формы тут http://zalil.ru/33279066

 Отправлено: 13.06.20 15:41. Заголовок: Добрый день, коллеги..

Добрый день, коллеги.
Dima, если есть права админа, то работает корректно. Пробовали 2 раза и оба раза все ОК.
Haz - Если просто конвертить dbf в xlsx, забудьте про OLE. Посмотрите на xlsxml. В разы быстрее и не зависит от капризов екселя. - где можно скачать итд?

 Отправлено: 13.06.20 16:22. Заголовок: Немного о проекте. П..

Немного о проекте. Продукт для банка (аналитика), 1996 год начало (Clipper5.1). Сейчас более 60 DBF (для примера. проводки 10 млн. 4ГБ, остатки по счетам 6 млн. 600 МБ, курсы валют, филиалы, клиенты итд). За операционный день импорт данных (в среднем) данные: 272 тыс.счетов, 8 тыс. остатков по балансу филиалов, 120 тыс.проводок, 236 тыс. клиентов итд....
Использую тандем с 2011 года:
1. обработка данных и выгрузка во временный DBF(ы)
2. Excel - конвертация в Xlsx, форматирование, цвета, шрифты итд, загрузка макета(ов) и запись временного Xlsx
3. Excel - загрузка макета(ов) отчета и копирование из временного Xlsx.

PS: Версия программы 2005 года (xharbour), 106 млн проводок, 95 млн. остатки по счетам, 15ГБ....

на LETODB переводил в 2006 году, но остановился (ушел с банковской тематики, сейчас вернулся...)

 Отправлено: 13.06.20 16:27. Заголовок: Haz - Всё настроишь,..

Haz - Всё настроишь, все работает и вдруг через год или два валится на pagesetup или printquality это из последних. Часто на формат данных вдруг ругаться начинает. На копи пасте из одного листа в другую книгу, где то на сотом цикле может рухнуть.. Да и в целом очень зависимый механизм от версии офиса. При этом если произошла ошибка эусель как правило зависает в пямяти процессом и срубается только диспетчером тк так его не видно

Один в один, аналогичная ситуация...

 Отправлено: 13.06.20 16:37. Заголовок: Oskar_AAA http://cl..

Oskar_AAA
http://clipper.borda.ru/?1-4-80-00001250-000-0-0-1541685579

 Отправлено: 13.06.20 16:43. Заголовок: PS hb -> \co..

PS
hb -> \core-master\extras\hbxlsxml/*.*

 Отправлено: 13.06.20 17:03. Заголовок: Oskar_AAA пишет: гд..

Oskar_AAA пишет:

цитата:

где можно скачать итд?

Сергей уже указал правильное направление
напишу примерчик конвертации DBF2XML ( XML этот такой же родной для EXCEL как и XLSX )
в примере конвертил CUSTOMER.DBF из поставки минигуи , но привязки к структуре нет , можно пихнуть любой другой ( на мемополя проверку тоже не делал )

 
  
 #require "hbxlsxml" 
  
 REQUEST DBFCDX, DBFFPT 
  
  
  
 PROCEDURE Main() 
  
    LOCAL oXml, oSheet, cFile := "customer.xml" 
    LOCAL n,oStyle 
    LOCAL aStr := {} 
    LOCAL cType := "" 
  
    RDDSETDEFAULT('DBFCDX') 
    Set CENTURY ON 
    Set Deleted ON 
    Set Date GERMAN 
  
  
    SET Date  FORMAT 'DD.MM.YYYY' 
    REQUEST HB_CODEPAGE_RU1251, HB_CODEPAGE_RU866,  HB_CODEPAGE_UTF8  
  
    EXTERN hb_StrToUTF8 
  
    Set( _SET_DATEFORMAT, "dd.mm.yyyy" ) 
  
    USE ("CUSTOMER.DBF") SHARED NEW ALIAS "CUSTOMER" 
    aStr :=  CUSTOMER->(DBSTRUCT())                  
  
    // Создаем объект XML 
    oXml := ExcelWriterXML():New( cFile ) 
    oXml:setOverwriteFile( .T. ) 
    oXml:setCodePage( "RU1251" ) 
  
    // Определяем Лист 
    oSheet := oXml:addSheet( "Sheet1" ) 
  
  
  
    // Определяем стиль названия отчета 
    oStyle := oXml:addStyle( "Title" ) 
    oStyle:alignHorizontal( "Left" ) 
    oStyle:alignVertical( "Center" ) 
    oStyle:SetfontName( 'Arial' ) 
    oStyle:SetfontSize( 12 ) 
    oStyle:setFontBold() 
     
    //Определяем стили шапки колонок 
  
    oStyle := oXml:addStyle( "HDR"  ) 
    oStyle:Border( "All", 2, "Automatic",  "Continuous" ) 
    oStyle:alignHorizontal( "Center" ) 
    oStyle:alignVertical( "Center" ) 
    oStyle:alignWraptext() 
    oStyle:setFontBold() 
    oStyle:alignWraptext() 
  
    // Определяем стили колонок 
  
    cAlign := "Left" 
    for n := 1 TO Len( aStr ) 
        cType := aStr[n][2] 
        switch cType 
           Case  "D" 
                 cAlign := "Center" 
              Exit 
           Case  "C" 
                 cAlign := "Left" 
              Exit 
           Case  "N" 
                 cAlign := "Right" 
              Exit 
        end Switch 
        oSheet:columnWidth(  n, aStr[n][3] * 8  ) 
  
  
       oStyle := oXml:addStyle( "F" + NToC(n) ) 
       oStyle:Border( "All", 1, "Automatic",  "Continuous" ) 
       oStyle:alignHorizontal( cAlign ) 
       oStyle:alignVertical( "Center" ) 
       oStyle:fontSize( 10 ) 
  
    next 
  
  
  
    // Пишем название отчета 
    nRow := 1 
    oSheet:writeString( nRow, 1, "Пример выгрузки DBF2XML "  , "Title" ) 
  
  
    // Пишем шапку  
    nRow++ 
    nRow++ 
    For n := 1 To Len( aStr ) 
      oSheet:writeString( nRow,  n, aStr[n][1] , "HDR" ) 
    End 
    oSheet:cellHeight( nRow, 1, 22 ) 
  
    nRow++ 
  
    //Данные 
  
    While  !CUSTOMER->(eof()) 
       oSheet:cellHeight( nRow, 1, 15 ) 
       For n := 1 To CUSTOMER->(FCOUNT()) 
          uData := CUSTOMER->(FieldGet(n)) 
 	 cType := ValType( uData ) 
  
          switch cType 
             Case "N" 
                 oSheet:writeNumber( nRow, n, uData, "F" + NToC(n)  ) 
                 Exit 
             Case "C" 
                 oSheet:writeString( nRow, n, uData, "F" + NToC(n) ) 
                 Exit 
             Case "U" 
                 oSheet:writeString( nRow, n, '', "F" + NToC( n) ) 
                 Exit 
             Case "T" 
                 oSheet:writeDateTime( nRow, n, hb_Ttoc(uData), "F" + NToC( n) ) 
                 Exit 
             Case "D" 
                 oSheet:writeDateTime( nRow, n, Dtoc(uData), "F" + NToC( n) ) 
                 Exit 
             Case "L" 
                 oSheet:writeString( nRow, n, IIF(uData, 'да' , 'нет'), "F" + NToC( n) ) 
                 Exit 
          End Switch 
  
       Next 
  
       CUSTOMER->(dbSkip(1)) 
       nRow++ 
    End 
  
    oXml:writeData( cFile ) 
  
  
    RETURN 
  
 

.

 Отправлено: 13.06.20 17:07. Заголовок: Oskar_AAA пишет: гд..

Oskar_AAA пишет:

цитата:

где можно скачать итд?

только компилировать с библиотекой из поставки минигуи, она к русскому языку приучена.

 Отправлено: 13.06.20 19:14. Заголовок: xlsxml конечно работ..

xlsxml конечно работает в разы быстрее, чем ole, но подходит для ограниченного круга задач.
Скажем сейчас мне надо выбрать данные из почти 300 таблиц xls, похожей, но различной структуры.
Делаю средствами ole. Долговато, но время здесь некритично, это разовая выборка данных для дальнейшей конвертации.
Или типовая задача: скачать бланк документа с сайта, пометить в нем ячейки и заполнить его данными.
xlsxml тут никак не подходит.

 Отправлено: 13.06.20 19:24. Заголовок: Pasha пишет: xlsxml..

Pasha пишет:

цитата:

xlsxml тут никак не подходит.

Не подходит для этой цели. Xlsxml это вывод. Для чтения или OLE или ado/odbc если читаем простую таблицу. Если нужно прочесть сложный отчёт в Excel, то пока только OLE.
Соглашусь, что не хватает альтернативы тормознутому OLE. Есть коммерческие библиотеки, но не все готовы за них платить ради разовой задачи

 Отправлено: 13.06.20 19:32. Заголовок: Pasha пишет Делаю ср..

Pasha пишет

цитата:

Делаю средствами ole. Долговато, но время здесь некритично, это разовая выборка данных для дальнейшей конвертации. Или типовая задача: скачать бланк документа с сайта, пометить в нем ячейки и заполнить его данными.

Можно не использовать ole, о получать xml и разбирать его. Для похожих таблиц - тоже однотипная операция. Данные бланков то же могут быть и в xml и json, этого становится больше (xls[x] уже почти не встречается), а xlsxml со своей задачей справляется

 Отправлено: 13.06.20 19:47. Заголовок: SergKis пишет: Можн..

SergKis пишет:

цитата:

Можно не использовать ole, о получать xml и разбирать его.

тоже думал над этим вопросом, но получить xml из excel можно не совсех версий Excel. До xlsx БЫЛ двоичный BIFF, потом XML. OLE наплевать на версию и работает везде, но работает медленно и капризно.
Json бесспорно удобнее xml, получить хеш массив и делать то ничего не надо, все уже разложено по ключам. Жаль не все его дают, а как пишет Паша - скачай бланк и заполни.

 Отправлено: 13.06.20 20:04. Заголовок: Haz пишет получить x..

Haz пишет

цитата:

получить xml из excel можно не совсех версий Excel. До xlsx БЫЛ двоичный BIFF, потом XML. OLE наплевать на версию и работает везде, но работает медленно и капризно.

Уже не помню таких версий. И если бы ole не имела глюков, особенно на компах клиентов, где чужие админы, то не возникали бы вопросы, которые выше. С xml все надежнее и в сети все больше данные только в xml или json (и можно выбрать вариант). С json проще, его и выбираешь и бланков xls[x] по обмену данными уже нет, если только сам разрабатываешь и применяешь в технологии обмена.

 Отправлено: 13.06.20 20:26. Заголовок: SergKis пишет: Уже ..

SergKis пишет:

цитата:

Уже не помню таких версий

А они есть В остальном согласен. json лидирует, за ним xml и в конце этого паравоза устаревший обмен ввиде "скачай и заполни".
Изначально тема была как быстро выгрузить в Excel, ответ- xlsxml. Как по мелочам допилить красоту, ответ - ole ( тк вывод в xlsxml, линеен, а красоту надо наводить рандомно) . И в каком формате организовать обмен, ответ json/xml.

 Отправлено: 13.06.20 20:45. Заголовок: Добрый вечер, коллег..

Добрый вечер, коллеги. Спасибо за ответы. Всем успехов и удачи... Будем изучать и тестировать.

 Отправлено: 15.06.20 09:30. Заголовок: Насчет админ прав - ..

Насчет админ прав - это мысль, проверю на проблемных компьютерах, где проказник-эксель отказывается работать
Как раз подвернулся случай проверить - не помогло

 Отправлено: 16.06.20 08:36. Заголовок: у меня все ка и было..

у меня все ка и было. Нотник -ОК. Рабочая станция - свалился на 145 файле в копирасте

 Отправлено: 16.06.20 09:19. Заголовок: В последнее время я ..

В последнее время я больше ориентируюсь на работу с LibreOffice. Механизм ole для него более тормозной, чем для Excel, структура объектов сложнее, но нет таких капризов и сюрпризов, как с Excel
Или делаю работу с бланком xsl[x] как для одного, так и для второго пакета, и использую либо Excel-вариант, либо oo.

 Отправлено: 16.06.20 17:55. Заголовок: Pasha пишет: В посл..

Pasha пишет:

цитата:

В последнее время я больше ориентируюсь на работу с LibreOffice.

Чем он отличается от OpenOffice ?
Сам не ставил его, а вот экспорт из МиниГуи, как в примере MiniGUI\SAMPLES\Advanced\Tsb_Export\demo.prg
что-то не пошёл у меня у заказчика.

 Отправлено: 16.06.20 18:44. Заголовок: Andrey пишет: Чем о..

Andrey пишет:

цитата:

Чем он отличается от OpenOffice ?

С точки зрения программирования - ничем. А нравится, не нравится - не тот вопрос. Да и использовать его заказчику необязательно.
Положим на проблемных компах не получается работа с Excel. Формирую xls-документ через LibreOffice, а пользователь открывает его уже экселем
Про OO ему и знать не надо

 Отправлено: 19.06.20 19:51. Заголовок: Добрый вечер, коллег..

Добрый вечер, коллеги. Поставили 2-ой ПК. Win10x64+Office2019 с правами администратора. Ошибок нет, весь отчет выгрузился без проблем.
Коллеги, есть ли пример кода запуска LibreOffice под xHarbour?
Всем Спасибо за участие и консультации! Успехов и удачи....