Pasha пишет:

цитата:

после этого можно перейти на использование класса win_oleAuto из библиотеки hbwin, заменив строку

oExcel := CreateObject( "Excel.Application" )

на

win_oleCreateObject( "Excel.Application" )

Используя класс win_oleAuto, можно вместо передачи через буфер обмена передавать в Excel всю таблице одним вызовом __oleVariantNew()
В принципе передача через буфер обмена фрагментами по 20к тоже работает быстро, но можно и делать это прямой записью.

Сделал такую конструкцию:

#xcommand TRY                           => BEGIN SEQUENCE WITH {|__o| break(__o) } 
 #xcommand CATCH [<!oErr!>]              => RECOVER [USING <oErr>] <-oErr-> 
 ..... 
    Try 
       oExcel := win_oleCreateObject( "Excel.Application" ) 
    Catch 
       MsgStop( "Excel not available. [" + win_oleErrorText() + "]", "Error" ) 
       Return Nil 
    End

В системе, где не установлен Эксель, не работает !!!
Прога вылетает далее на обращении к oExcel:WorkBooks:Add()...:
Error BASE/1004 No exported method: WORKBOOKS
Called from WORKBOOKS(0)
Called from BRW4XLSOLE(74) in module: Tsb4xlsOle.prg
Как нужно правильно сделать ?