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

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

 Отправлено: 21.05.12 18:37. Заголовок: Пока что интересует:..

Пока что интересует:
поиск в определенной колонке c определенной строки

 Отправлено: 21.05.12 19:51. Заголовок: Да никаких особенных..

Да никаких особенных граблей быть не может. Примерно так:

Local oExcel := Win_OleAuto():New( "Excel.Application" ) 
 Local oBook, oSheet, oCell, xValue 
 Local nRow := 3 
 Local nCol := 3, nCol2 := 5 
  
 oExcel:Visible := .f. 
  
 oExcel:Workbooks:Open( cFile, 0 ) 
 oBook := oDoc:ActiveWorkBook 
 oSheet := oExcel:ActiveSheet 
 while .t. 
    oCell := oSheet( nRow, nCol ) 
    xValue := oRange:Value 
    if Empty(xValue) 
       exit 
    endif 
    if xValue == <Kod> 
       oSheet( nRow, nCol2 ):Value := <Zakaz> 
    endif 
 enddo 
 ... 
  
 oBook:Close(.f.) 
 oExcel:Quit() 
 

 Отправлено: 21.05.12 19:56. Заголовок: Dima пишет: Пока чт..

Dima пишет:

цитата:

Пока что интересует: поиск в определенной колонке c определенной строки

Форма жестко задана ?
Т.е. нужно найти (например: 001/001) и в ячейку "К-во (кг)" написать тебе нужную цифру ?

 Отправлено: 21.05.12 20:36. Заголовок: 1. Определяем для Ex..

1. Определяем для Excel-файла ширину/высоту рабочего ранга(было на форуме)
2. Бросаем ранг в массив. Ну и ищем чего надо

 Отправлено: 22.05.12 06:27. Заголовок: http://files.mail.ru..

http://files.mail.ru/X3JBC6
Пример загрузки из Excel- в базу

 Отправлено: 22.05.12 13:48. Заголовок: fil пишет: 1. Опред..

fil пишет:

цитата:

1. Определяем для Excel-файла ширину/высоту рабочего ранга(было на форуме)

что то не нашел......

Вроде все получилось , но после заполнения бланка и попытки закрытия EXCEL , он задает
вопрос , не желаю ли я сохранить изменения. Как обойти этот запрос и сохраниться ?

 Отправлено: 22.05.12 13:59. Заголовок: oExc:Sheets(nn):Used..

oExc:Sheets(nn):UsedRange:Rows:Count
oExc:Sheets(nn):UsedRange:Columns:Count

oExc:WorkBooks(имя):Close(FALSE,,FALSE)

 Отправлено: 22.05.12 14:08. Заголовок: Всем спасибо !!!..

Всем спасибо !!!

 Отправлено: 23.05.12 14:41. Заголовок: Наткнулся на грабли...

Наткнулся на грабли.
MT режим. Запущенная в отдельном потоке функция по по заполнению заявок
упорно не хочет запускать EXCEL.
Функция постоянно выдает FALSE

Private переменная oExcel объявлена из фунции которая вызывает Start_Excel()

Куда копать ?

PS
Простой пример без потоков в MT режиме срабатывает нормально.

 
 func Start_Excel() 
 Local Res:=.f. 
 #ifndef __XHARBOUR__   
  #xcommand TRY  => BEGIN SEQUENCE WITH {|e| Break( e )}  
  #xcommand CATCH [<!oErr!>] => RECOVER [USING <oErr>] <-oErr->  
 #endif  
   
    TRY 
       oExcel := GetActiveObject( "Excel.Application" ) 
       oExcel:DisplayAlerts:=.f. 
       Res:=.t. 
  
    CATCH 
       Res:=.f. 
       TRY 
          oExcel := CreateObject( "Excel.Application" ) 
          Res:=.t. 
       CATCH 
 // Ole2TxtError() выдает ошибку 0x800401f0          
 Res:=.f. 
       END 
    END 
  
  
 Return Res 
  
 

 Отправлено: 23.05.12 18:30. Заголовок: Похоже в MT режиме и..

Похоже в MT режиме и многопоточной обработкой EXCEL запустить не получиться.
Или не прав я и можно как то исправить ситуацию ?

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

 Отправлено: 23.05.12 22:41. Заголовок: А так можно: Открыв..

А так можно:

Открываем один oExc:=CreateObject(Excel.Application). Открываем файл в нем листы с формами

На каждый трейд ActiveX():New( диалог, "OWC11.Spreadsheet" ) и на каждый кладем свою форму. Обрабатываем.

 Отправлено: 24.05.12 05:43. Заголовок: Private переменная o..

цитата:

Private переменная oExcel объявлена из фунции

Я oExcel объявляю в головном файле и стартую из любого места программы

 Отправлено: 24.05.12 08:59. Заголовок: fil пишет: Открывае..

fil пишет:

цитата:

Открываем один oExc:=CreateObject(Excel.Application)

Dima пишет:

цитата:

Похоже в MT режиме и многопоточной обработкой EXCEL запустить не получиться

Dima пишет:

цитата:

Ole2TxtError() выдает ошибку 0x800401f0

 Отправлено: 24.05.12 15:24. Заголовок: Dima пишет: Уж очен..

Dima пишет:

цитата:

Уж очень не хочется функцию по заполнению бланков реализовывать в виде отдельной программы и вызывать ее из основной задачи.

Так и поступил. Работает ;)

 Отправлено: 25.05.12 12:44. Заголовок: Есть задача сгенерир..

Есть задача сгенерировать два XLS файла из одной DBF . Только разные условия для отбора .
Пока делаю последовательно ... Можно-ли клепать их одновременно (как-бы разные листы) ? А затем сохранять каждый лист отдельно ... Но я не знаю как это делать - у меня сохраняется вся книга сразу ....
Научите переключать книги и сохранять их отдельно :)

 Отправлено: 25.05.12 13:53. Заголовок: Примерно так. proc..

Примерно так.

 
 proc main 
 local oWorkBook1 
 local oWorkBook2 
 local cfile1:=CurDrive()+":\"+CurDir()+"\"+"z1.xls" 
 local cfile2:=CurDrive()+":\"+CurDir()+"\"+"z2.xls" 
 private oExcel 
  
   if !Start_Excel() 
 quit 
   endif 
  
 oWorkBook1 := oExcel:Workbooks:Open(cfile1)  
 oWorkBook2 := oExcel:Workbooks:Open(cfile2)  
 oExcel:Visible := .T. 
 oExcel:Windows(oWorkBook1:name()):Activate() // переключение между файлами 
 // oExcel:Windows(oWorkBook2:name()):Activate() переключение между файлами 
  
 wait 
 oWorkBook1:save() 
 oWorkBook1:close(.f.,,.f.) 
 oWorkBook2:save() 
 oWorkBook2:close(.f.,,.f.) 
  
  
 oExcel:Quit() 
 return nil 
  
  
 

 Отправлено: 26.05.12 17:03. Заголовок: Уже спасибки ! А как..

Уже спасибки ! А как быть если XLS файлов нет ? Они создаются во время обработки данных из других DBF файлов ......
Интересует ещё команды изменения свойств ячейки ( столбца) : Тип данных , выравнивание , шаблон вывода.....

 Отправлено: 26.05.12 17:20. Заголовок: Softlog86 А посмотр..

Softlog86
А посмотри примерчик
\svn\harbour\contrib\hbwin\tests\testole.prg

Что касаемо шаблона и выравнивания есть тема на форуме , поищи по слову Excel

 Отправлено: 03.08.12 17:13. Заголовок: Всем, привет ! Exce..

Всем, привет !

Excel через ole

1. Как получить текст формулы условного форматирования (ежели таковые определены для ячейки) ?
2. Можно ли программно выполнить формулу условного форматирования ?

 Отправлено: 03.08.12 18:05. Заголовок: fil Сделай макрос и..

fil
Сделай макрос и все увидишь.
Можно погуглить на предмет Selection.FormatConditions

 Отправлено: 03.08.12 18:23. Заголовок: Ну эт понятно. Тока ..

Ну эт понятно. Тока в свойствах FormatConditions я не нашел текста формулы.
Собсно, мне нужно отловить событие изменения заливки ячеек формулой условного форматирования дабы прицепить к этим ячейкам примечания.

 Отправлено: 03.08.12 18:30. Заголовок: Formula1 Formula2 не..

Formula1 Formula2 не оно разве ?

 Отправлено: 03.08.12 18:42. Заголовок: Да, это. Можно тепер..

Да, это. Можно теперь выполнить эту формулу в харбор синтаксисе и понять изменялась ли заливка. Лучше, конечно, через Interior:ColorIndex, но не получается

 Отправлено: 04.08.12 10:09. Заголовок: fil пишет: Лучше, к..

fil пишет:

цитата:

Лучше, конечно, через Interior:ColorIndex

http://office.microsoft.com/ru-ru/excel-help/HA001136627.aspx

 Отправлено: 04.08.12 19:21. Заголовок: Эт я знаю. Не получи..

Эт я знаю. Не получится - формула условного форматирования не меняет ColorIndex/Color. То ли есть еще какой признак цвета, то ли заливка ячейки происходит тока на экране.

 Отправлено: 04.08.12 21:20. Заголовок: fil Давай XLS файли..

fil
Давай XLS файлик (пример) в студию и скажи точно что хош узнать. Поиграюсь.

 Отправлено: 05.08.12 12:11. Заголовок: Победил гада ! Т.к...

Победил гада !

Т.к. фомулы условного форматирования отрабатывают тока при визуализации Excel, то в момент заполнения Excel-отчета насильственно рассчитывал их из через Evaluate() и в зависимости от результата клеил комент к ячейке.

 Отправлено: 09.08.12 06:57. Заголовок: fil пишет: Победил ..

fil пишет:

цитата:

Победил гада !

Победу в студию плиз :) (хотя бы в простейшем примере) А то вдруг пригодится?

 Отправлено: 09.08.12 09:22. Заголовок: Так рассказал же, вр..

Так рассказал же, вроде, все ?!

1. Требовалось брать инфу из исходных Excel файлов и заливать ее в некий Excel файл-шаблон
2. В шаблоне присутствуют как обычные формулы, так и формулы условного форматирования (ФУМ), красящие ячейки в разные цвета
3. ФУМ отрабатывают тока при визуализации Excel, а мне требовалось отловить событие выполнения этих ФУМ при заполнении шаблона
4. Узнать это моно так
a) получить ФУМ - ..cells(x, y):FormatConditions(nn):Formula1
б) выполнить ФУМ методом - ..oExc:Evaluate(ФУМ), чтобы оценить возвращаемое значение


Пример писать неохота

 Отправлено: 10.08.12 07:33. Заголовок: Более-менее понятно...

Более-менее понятно. Спасибо, fil , за разгадку "еще одной тайны Harbour-вселенной" :)

 Отправлено: 21.12.12 15:57. Заголовок: Как правильно ? oShe..

Как правильно ?
oSheet := oExcel:ActiveSheet()
или так
oSheet := oExcel:ActiveSheet

У меня задача работает нормально а у клиента с таким же EXCEL виснет

Код примерно такой. Виснет судя по всему в цикле (временно включил oExcel:Visible)

 
 oWorkBook := oExcel:WorkBooks:Add() 
 oSheet := oExcel:ActiveSheet() 
 oSheet:Cells:Font:Name := "Arial Cyr" 
 oSheet:Cells:Font:Size := 10 
 oSheet:Cells( 1, 1 ):Value :=Hb_oemtoansi("Код")  
 oSheet:Cells( 1, 2 ):Value :=Hb_oemtoansi("Наименование")  
 oSheet:Cells( 1, 3 ):Value :=Hb_oemtoansi("Цена")  
 oSheet:Cells( 1, 4 ):Value :=Hb_oemtoansi("Ед.изм")  
 oSheet:Cells( 1, 5 ):Value :=Hb_oemtoansi("Группа")  
 oSheet:Cells( 1, 6 ):Value :=Hb_oemtoansi("Фирма")  
 oSheet:Cells( 1, 7 ):Value :=Hb_oemtoansi("Примечание")  
  
 oSheet:Range(osheet:cells(1,1),osheet:cells(1,7)):HorizontalAlignment := xlCenter //центр 
 oSheet:Range(osheet:cells(1,1),osheet:cells(1,7)):Font:Bold := .T. 
 oSheet:Range(osheet:cells(1,1),osheet:cells(1,7)):BorderAround( xlContinuous, xlThin) 
  
     for i=1 to len(mmas) 
 oSheet:Cells( j, 1 ):Value :=mmas[1]  
 oSheet:Cells( j, 1 ):HorizontalAlignment := xlLeft 
 oSheet:Cells( j, 2 ):Value :=mmas[2]  
 oSheet:Cells( j, 2 ):HorizontalAlignment := xlLeft 
  
 oSheet:Cells( j, 3 ):NumberFormat:="0.00" 
 oSheet:Cells( j, 3 ):Value :=mmas[4]  
 oSheet:Cells( j, 3 ):HorizontalAlignment := xlRight 
  
 oSheet:Cells( j, 4 ):Value :=mmas[3]  
 oSheet:Cells( j, 4 ):HorizontalAlignment := xlCenter 
  
 oSheet:Cells( j, 5 ):Value :=mmas[5]  
 oSheet:Cells( j, 5 ):HorizontalAlignment := xlLeft 
 oSheet:Cells( j, 6 ):Value :=mmas[6]  
 oSheet:Cells( j, 6 ):HorizontalAlignment := xlLeft 
 oSheet:Cells( j, 7 ):Value :=mmas[7]  
 oSheet:Cells( j, 7 ):HorizontalAlignment := xlLeft 
  
  
 oSheet:Range(osheet:cells(j,1),osheet:cells(j,7)):BorderAround( xlContinuous, xlThin) 
 j++ 
     next 
 oSheet:Columns( 1 ):AutoFit() 
 oSheet:Columns( 2 ):AutoFit() 
 oSheet:Columns( 3 ):AutoFit() 
 oSheet:Columns( 4 ):AutoFit() 
 oSheet:Columns( 5 ):AutoFit() 
 oSheet:Columns( 6 ):AutoFit() 
 oSheet:Columns( 7 ):AutoFit() 
  
 

 Отправлено: 21.12.12 16:14. Заголовок: Я использую oExcel:A..

Я использую oExcel:ActiveSheet, но кажется разницы нет никакой.
Подвисание лучше все-таки локализовать, выдавать на экран окно состояния: заполнение заголовка, номер строки массива, выравнивание столбцов.
Возможно, что-то делает сам эксель: выполняет какие-то макросы, проверяет орфографию, и при этом подвисает.
В коде программы ведь самые простые команды.

 Отправлено: 21.12.12 16:28. Заголовок: Dima пишет: oSheet:..

Dima пишет:

цитата:

oSheet:Cells( j, 3 ):NumberFormat:="0.00"

Выяснил , падает тут , ненравится ему NumberFormat:="0.00"
хммм

Error WINOLE 1006 Argument Error _NumberFormat

 Отправлено: 21.12.12 16:39. Заголовок: Фсе разобрался В ре..

Фсе разобрался

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

 Отправлено: 09.05.13 13:22. Заголовок: Порча какая то в Har..

Порча какая то в Harbour 3.2 , в 2.0 было нормально.
В итоговом документе Excel русский текст выглядит как китайский.

Исходник

 
 proc main 
 local oSheet 
 local oWorkBook 
  
 private oExcel 
  
  
   if Start_Excel() 
 oExcel:Visible := .f. 
 oExcel:DisplayAlerts:=.f. 
 oWorkBook := oExcel:WorkBooks:Add() 
 oSheet := oExcel:ActiveSheet() 
  
 oSheet:Cells:Font:Name := "Arial Cyr" 
 oSheet:Cells:Font:Size := 10 
 oSheet:Cells( 1, 1 ):Value :=Hb_oemtoansi("Код")  
 oSheet:Cells( 1, 2 ):Value :=Hb_oemtoansi("Наименование")  
 oSheet:Cells( 1, 3 ):Value :=Hb_oemtoansi("Цена")  
 oSheet:Cells( 1, 4 ):Value :=Hb_oemtoansi("Ед.изм")  
 oSheet:Cells( 1, 5 ):Value :=Hb_oemtoansi("Группа")  
 oSheet:Cells( 1, 6 ):Value :=Hb_oemtoansi("Фирма")  
 oSheet:Cells( 1, 7 ):Value :=Hb_oemtoansi("Примечание")  
 oWorkBook:saveas(hb_CurDrive()+":\"+CurDir()+"\price.xls")         
 oWorkBook:close(.f.,,.f.) 
 oExcel:Quit() 
 oWorkBook:=nil 
 oSheet:=nil 
 oExcel:=nil 
   endif 
 return 
 ********************** 
 func Start_Excel() 
 Local Res:=.f. 
 #ifndef __XHARBOUR__   
  #xcommand TRY  => BEGIN SEQUENCE WITH {|e| Break( e )}  
  #xcommand CATCH [<!oErr!>] => RECOVER [USING <oErr>] <-oErr->  
 #endif  
   
    TRY 
       oExcel := GetActiveObject( "Excel.Application" ) 
       oExcel:DisplayAlerts:=.f. 
       Res:=.t. 
  
    CATCH 
       Res:=.f. 
       TRY 
          oExcel := CreateObject( "Excel.Application" ) 
          Res:=.t. 
       CATCH 
          Res:=.f. 
       END 
    END 
 Return Res 
  
 

 Отправлено: 09.05.13 13:37. Заголовок: Разобрался. Пришлось..

Разобрался.
Пришлось добавить
REQUEST HB_CODEPAGE_RU1251
hb_cdpSelect( "RU1251" )

ранее и без этого нормально было.

 Отправлено: 13.05.13 15:49. Заголовок: Подскажите : Есть ..

Подскажите :
Есть строковое значение Артикул - может быть как строкой так и числом (по факту в DBF базе как символьное значение) . При записи этих артикулов - EXCELL отрезает лидирующий ноль , то есть значение '0125' запишет как '125'
Каким способом принудительно заставить EXCELL этого не делать ? Тоесть ячейка по факту должна быть ТЕКСТОВОЙ .... соотв. значения не модифицируются !
Какие ещё есть команды чтоб обойти эту дрянь ?

 Отправлено: 13.05.13 15:57. Заголовок: Указать формат ячейк..

Указать формат ячейки - текстовый, или программно:

oSheet:Cells(nRow, nCol):NumberFormat := "@"

 Отправлено: 13.05.13 16:37. Заголовок: Символ собаки "@..

Символ собаки "@" - это текстовый ?
Если можно - сообщите какие ещё команды управления форматами . Мне нужнее всего текстовый и дата

 Отправлено: 13.05.13 21:03. Заголовок: Softlog86 пишет: Мн..

Softlog86 пишет:

цитата:

Мне нужнее всего текстовый

Пробел добавь впереди и будет тебе текстовый формат.

 Отправлено: 14.05.13 07:47. Заголовок: Softlog86 пишет: Си..

Softlog86 пишет:

цитата:

Символ собаки "@" - это текстовый ? Если можно - сообщите какие ещё команды управления форматами . Мне нужнее всего текстовый и дата

Да, текстовый. А насчет остальных форматов - сделайте запись макросов, и гляньте сами. У меня на работе и экселя то нет, чтобы посмотреть :)

 Отправлено: 14.05.13 12:09. Заголовок: Andrey Пробовал ! Пр..

Andrey Пробовал ! Пробел не решает сути вопроса - Эксель автоматом рубит лидирующий ноль если в строке только цифры .
Так что " 0123" всё-равно получается как "123" . Паша верно подсказал - теперь всё работает как надо !

 Отправлено: 03.08.13 09:29. Заголовок: Вопросец назрел. Exc..

Вопросец назрел.
Excel уже открыт и в нем загружена куча документов.
Необходимо средствами Harbour создать документ Excel , заполнить его , сохранить и выйти.
Как при этом оставить открытыми ранее документы , ведь по команде oExcel:Quit() закроются все.
Как корректно это реализовать ?

 Отправлено: 03.08.13 10:54. Заголовок: Dima пишет: ведь по..

Dima пишет:

цитата:

ведь по команде oExcel:Quit() закроются все

Дима, открывай 2 объекта
в примере OExcelTwo останется открыт :

oExcel := CreateObject( "Excel.Application" )
oExcelTwo := CreateObject( "Excel.Application" )

oExcel:WorkBooks:Add()
oExcelTwo:WorkBooks:Add()

oExcelTwo:Visible := .T.
oExcel:Visible := .T.

oExcel:Quit()

 Отправлено: 03.08.13 11:19. Заголовок: Haz Да точно это я ..

Haz
Да точно это я тормознул что то.
Сенкс.

 Отправлено: 03.08.13 11:25. Заголовок: Хотя........ Я делал..

Хотя........
Я делал вот так

 
 proc main 
 private oExcel 
  if Start_Excel() 
 oExcel:WorkBooks:Add() 
  
 oExcel:Visible := .t. 
  
 oExcel:Quit() 
  endif 
  
 return 
 ************** 
  
 func Start_Excel() 
 Local Res:=.f. 
 #ifndef __XHARBOUR__   
  #xcommand TRY  => BEGIN SEQUENCE WITH {|e| Break( e )}  
  #xcommand CATCH [<!oErr!>] => RECOVER [USING <oErr>] <-oErr->  
 #endif  
   
    TRY 
       oExcel := GetActiveObject( "Excel.Application" ) 
       oExcel:DisplayAlerts:=.f. 
       Res:=.t. 
  
    CATCH 
       Res:=.f. 
       TRY 
          oExcel := CreateObject( "Excel.Application" ) 
          Res:=.t. 
       CATCH 
          Res:=.f. 
       END 
    END 
 Return Res 
  
 

В этом случае закрывается все в Excel
Понял в чем дело.....надо переделать слегка Start_Excel() что бы понять делать ли при выходе
из проги oExcel:Quit()

 Отправлено: 03.08.13 16:00. Заголовок: я делаю примерно так..

я делаю примерно так же но через ссылку

типа того:

Func Main()
local oExcel


StartExcel( @oExcel )

IF Valtype(oExcel) == "O"
....
ELSE
...
END

RETURN NIL

В общем смысл в том что в стартексель передаем ссылку на любую переменную, и она становится объектом ексель и какой объект закрывать вопросов не вызывает )

 Отправлено: 03.08.13 16:07. Заголовок: Haz Это понятно. А ..

Haz
Это понятно. А мой косяк был в том что использовал уже существующий объект EXCEL , поэтому по oExcel:Quit() все и закрывалось

 Отправлено: 20.09.13 22:57. Заголовок: Дабы не плодить новы..

Дабы не плодить новых тем, спрошу здесь. Название темы подходящее.

Программа на Harbour формирует отчет в формате XLS методом OLE. Отчет сформирован, сохранен в локальной папке, осталось его открыть. Раньше не парился, делал RUN("excel /e "+cXlsName) и все дела. Все неплохо, но если путь к Excel на машине не прописан - разумеется облом. Нужно либо прописывать путь, либо кидать батник excel.bat, содержащий строку запуска в папку с программой. Захотелось сделать все красиво и элегантно, (как сам Harbour:) ). Пробовал:

1) Создание Excel-объекта с открытием нужного файла - проблема оказалась в том, что после отработки последней строки типа oExcel.WindowState := Maximized управление передается назад программе. А она должна удалить xls файл и локальной папки. Соотв. пока Excel не "отпустит" файл - ничего не выходит.

2) Делал RUN("start /w "+xlsName) - облом на длинных именах, даже помещенных в двойные кавычки. Удивлен.

3) Пока остановился на RUN('cmd /c "'+cXlsName+'"') - и длинные имена понимает и путь к самому Excel прописывать не требуется.

Но вот какой вопрос возник: если юзер УЖЕ РАБОТАЕТ с Excel (например, с другим документом) и из Harbour-программы вызывает этот отчет - он формируется, открывается и... сразу управление возвращается программе. Та пытается удалить временный файл с отчетом - разумеется облом, тк он еще открыт.

Какие могут быть варианты? Пытаться зациклить программу "по кругу", пока файл можно будет удалить - мне кажется не совсем "правильным" способом. К тому-же так вышло, что создание и удаление временных файлов сосредоточено в одном месте, а вызов и обработка формата Excel - в другом. Если Excel-модуль будет пытаться удалить файл, то придется в вызывающем коде тоже городить огород. Кроме этого, есть часть отчетов, которые не должны быть удалены. Модуль формирования Excel отчетов об этом не в курсе.

Подскажите плиз элегантное решение.

 Отправлено: 21.09.13 07:51. Заголовок: Список на удаление - очередь

Можно создать "очередь" - список файлов, заявленных на удаление.
Добавление в список - в одном месте кода,
удаление файлов по списку можно позже и в любом другом месте кода.
В рамках одного экземпляра программы - для очереди можно взять массив, для разных - таблицу.

При попытке удаления одного файла - нужно проверить возможность этого:
файл есть и можно открыть (и закрыть) файл XLS монопольно - fopen(f_name,FO_EXCLUSIVE)

Для открытия XLS файлов
__RUN("start "+f_name)

 Отправлено: 21.09.13 11:56. Заголовок: Да, про FOPEN() как-..

Да, про FOPEN() как-то не подумал - СПАСИБО! Нужно будет сделать. А то уж шальные мысли в голову лезли - пытаться переименовать...

По поводу "start" - только у меня эта команда тупо игнорирует длинные имена файлов? Вместо запуска Экселя на 'start "d:\dir\some long name file.xls"' открывает консольное окно (Microsoft Corporation...) и ждет команд...

А по запуску Excel - запустить, когда вернется управление - лучшего решения, чем зациклить пока не получится открыть монопольно, нет ?

 Отправлено: 21.09.13 12:26. Заголовок: Ну если это Harbour,..

Ну если это Harbour, открыть и показать пользователю через
OLE ( CreateObject("Excel.Application") ) и проверять например, получая какую-нибудь
ячейку. Если это не объект, идти дальше работать

 Отправлено: 21.09.13 12:36. Заголовок: Все не так

Фишка в том, что запуск __RUN("start "+xls)
открывает окно EXcel, но Harbour-программа не ждет закрытия окна Excel,
оно живет независимо и отдельно (похоже, так устроен вызов Win Gui приложений)
а программа пилит дальше.
Можно, если надо, определить через какой-то момент - запустился Excel или нет.
Поэтому - не нужно сразу удалять файл и не нужно ничего ждать в цикле.

пример - открывается 5 окон XLS
Скрытый текст

Proc main() Local i,f_name REQUEST HB_LANG_RU866 HB_LangSelect( "RU866" ) REQUEST HB_CODEPAGE_RU866 HB_CDPSELECT( "RU866" ) for i=1 to 5 f_name := "_t_это_пример_номер_"+alltrim(str(i))+".xls" copy file ("test.xls") to (f_name) __run("start "+f_name) next i ? "Press any key" inkey(10) return

 Отправлено: 21.09.13 14:52. Заголовок: Но ведь Sergy писал ..

Но ведь Sergy писал

цитата:

Но вот какой вопрос возник: если юзер УЖЕ РАБОТАЕТ с Excel (например, с другим документом) и из Harbour-программы вызывает этот отчет - он формируется, открывается и... сразу управление возвращается программе. Та пытается удалить временный файл с отчетом - разумеется облом, тк он еще открыт.

т.е. по идее ему нужно стоять и ждать, пока не закончится EXCEL.
А вообще-то пусть уже он решает, наше дело предложить решение

 Отправлено: 21.09.13 14:58. Заголовок: Можно очищать папку ..

Можно очищать папку с временными файлами при старте программы. В этот момент все они обычно уже не нужны. Но, если какой-то будет отрыт другим приложением, - ничего страшного, пусть остается. Удалится в следующий раз. Вот, к примеру, во временной папке пользователя в винде таких "нужных" файлов иногда десятки тысяч. И ничего, работает... )))

 Отправлено: 21.09.13 15:08. Заголовок: PSP пишет: Можно оч..

PSP пишет:

цитата:

Можно очищать папку с временными файлами при старте программы

То же так делаю

 Отправлено: 21.09.13 17:37. Заголовок: nick_mi пишет: т.е...

nick_mi пишет:

цитата:

т.е. по идее ему нужно стоять и ждать, пока не закончится EXCEL.

Вопрос возникает, только если Excel был запущен раньше, чем сформирован отчет: управление сразу возвращается в программу.

 Отправлено: 21.09.13 18:00. Заголовок: PSP пишет: Можно оч..

PSP пишет:

цитата:

Можно очищать папку с временными файлами при старте программы. В этот момент все они обычно уже не нужны. Но, если какой-то будет отрыт другим приложением, - ничего страшного, пусть остается. Удалится в следующий раз. Вот, к примеру, во временной папке пользователя в винде таких "нужных" файлов иногда десятки тысяч. И ничего, работает... )))

Согласен. Сам так делаю. Но захотелось красивого решения.

Пока остановился на вызове через OLE с немедленной передачей управления назад. Это чтобы не гадать вернется/не вернется. А после возврата программа в цикле с интервалом в полсекунды пытается открыть файл в режиме FO_EXCLUSIVE. Как только открылся - значит работа с файлом завершена, а закрыл юзер Excel или продолжает в нем работать с другим документом - дело десятое...

 Отправлено: 21.09.13 18:05. Заголовок: Но ведь нужен вариан..

Но ведь нужен вариант который будет работать правильно во всех случаях.
Можно, конечно проверить, как показано у Dima
oExcel := GetActiveObject( "Excel.Application" ) и в зависимости от этого выпускать
или Run ()
или oExcel := CreateObject( "Excel.Application" ) и выполнять
проверку, так как я писал выше правда, в этом случае тоже цикл, но только
не FOPEN (cFile,FO_EXCLUSIVE) а на наличие объекта.Пока объект существует,
программа будет ждать, независимо от того, запущен ранее EXCEL или запущен из вашей програмы

 Отправлено: 21.09.13 18:09. Заголовок: nick_mi пишет: Пока..

nick_mi пишет:

цитата:

Пока объект существует, программа будет ждать, независимо от того, запущен ранее EXCEL или запущен из вашей програмы

Хм. звучит логично. Ну вот допустим, Excel не был запущен. Юзер сформировал отчет, мы создали CreateObject("Excel.Application") и ждем, пока он не исчезнет.

Но юзер решил в Экселе с сформированным отчетом открыть еще один документ: например, ему туда нужно вставить данные из только что сформированного отчета. Получается, пока он не закроет все документы и не выйдет из Excel, работать с программой он не сможет? А если ему нужно сформировать другой отчет ?

цитата:

Но ведь нужен вариант который будет работать правильно во всех случаях.

Да и потом, не очень понятно, какая разница, чего ожидать в цикле - исчезновения объекта или возможности открыть файл в FO_EXCLUSIVE режиме ?

 Отправлено: 21.09.13 18:27. Заголовок: 1) Пока пользователь..

1) Пока пользователь не закроет документ в EXCEL, программа будет ждать, если документ закрыт
независимо от того работает EXCEL дальше с другим документом, или полностью из него вышли
программа продолжит свою работу .

2) Разница собственно только в обращению к диску, или проверка объекта в памяти.
Решать вам

 Отправлено: 04.10.13 00:55. Заголовок: проблема с сохранением файла

есть такой код - сохраняет сформированную новую книгу в файл
предварительно сформировав имя файла и удалив старый файл

	// сохранить 
 	cFile:=wReport01.txt_Folder.Value 
 	if RIGHT(cFile, 1)#"\" 
 		cFile:=cFile+"\" 
 	endif 
 	cFile:=cFile+str(wReport01.Spinner_Year.Value,4)+ STRZERO(wReport01.COMBOBOX_MONTH.Value,2)+ ' '+aPDocs[1,5]+'.xls' 
 	if file(cFile) 
 		FILEDELETE(cFile) //--> lDeleted  
 	endif 
 	oBook:SaveAs(cFile) 
 	//oBook:SaveAs(cFile, xlExcel9795) <==== в Excell Office 2007 - падает 
 

проблема в команде сохранения (я отлаживаюсь на Excel 2003).
1. Если не задаю в cFile расширение '.xls' -- Excel действует хитрым образом.
Если в cFile нет точек - то сам приписывает к имени файла '.xls'
Если точки есть - то не приписывает.
Например сохраненые файлы "C:\public\201308 Рахимов А.П" и "C:\public\201308 Склад.xls"
Но первый файл совпадает с cFile и поэтому находится и удаляется.
А второй - не совпадает и поэтому Excel начинает задавать вопросы - что не есть хорошо.
Да и файл без расширения - очень не хорошо.
обязательно приписываю +'.xls'

2.
В Excel 2003 - сохраняет и открывает без вопросов.
В Excel 2007 - сохраняет без вопросов. А при открытии пишет что формат файла не соответствует расширеню.
И действительно - сохраняет в формате .xlsx = (упакованый набор xml-лек) но с расширением xls естесственно.

Попробовал задать формат сохранения так oBook:SaveAs(cFile, xlExcel9795)
в Excell Office 2007 - падает

Посоветуйте
либо как правильно задать формат сохранения (что предпочтительно для совместимости со старыми версиями Excel)
либо как получить от Экселя расширение файла по умолчанию чтобы подставить в имя файла.
либо какой нибудь третий способ решения проблемы

 Отправлено: 04.10.13 08:05. Заголовок: Может отлючить вывод..

Может отлючить вывод предупреждений в EXCEL? На форуме где-то было, как это сделать.
Касалось, по моему, записи, но может и на открытии прокатит.

 Отправлено: 04.10.13 09:30. Заголовок: oExcelTpl:SET( &#..

попробуйте действительно отключить предупреждения

oExcelTpl:SET( "DisplayAlerts", .F. )
...
...
...
oExcelTpl:SET( "DisplayAlerts", .T. )

 Отправлено: 07.10.13 06:43. Заголовок: Haz пишет: попробу..

Haz пишет:

цитата:

попробуйте действительно отключить предупреждения

В своей программе я могу отключить. А как отключить у пользователя когда он будет открывать файл в своей Экселке?


Мое решение такое

 
 #define xlExcel9795 43  
 #define xlExcel8 56 
 	..... 
 	if val(oExcel:get("Version"))<12 
 		oBook:SaveAs(cFile, xlExcel9795) 
 	else 
 		oBook:SaveAs(cFile, xlExcel8) 
 	endif 
 	.... 
 

Файлы созданные в Excel2007 и в Excell2013 без вопросов открываются в Excel2003.
потому что
56 = xlExcel8 (Excel 97 through Excel 2003 formatted files used in Excel 2007, .xls)

А xlExcel9795 нужен потому что Excel 2003 не знает о будущем коде формата 56 = xlExcel8

 Отправлено: 10.10.13 14:35. Заголовок: Покажите на примере ..

Покажите на примере плиз как сделать автосумму в определенной ячейке.
Скажем в первой колонке заполнены числами 1 и 2 ячейки а в 3-й нужно сделать автосумму.
Макрос смотрел и синтаксиса не понял.
Спасибо.

 Отправлено: 10.10.13 16:17. Заголовок: вопрос по разделител..

вопрос по разделителям разрядов
в макросе EXCEL тупо пишет NumberFormat:="#,##0" попробовал в Harbour получилось как то криво
и даже перед 0.00 он рисует ,0.00
Переделал так NumberFormat:="# ##0"+GET_SDECIMAL()+"00" , работает нормально но у меня EXCEL 2003
и не факт что такой код сработает на более свежем EXCEL
Вопрос: откуда EXCEL берет этот знак , и корректно ли если я его заменяю на пробел ?

PS
Как считать разделитель групп разрядов ?
Для считывания разделителя дробной и целой части использую

 
 #pragma BEGINDUMP 
  
 #include "hbapi.h" 
 #include "windows.h" 
  
 HB_FUNC( GET_SDECIMAL ) 
 { 
 char sDec[2]; 
  
 GetLocaleInfo(LOCALE_USER_DEFAULT, 
 LOCALE_SDECIMAL, 
 (LPTSTR) sDec, 2 ); 
 hb_retclen( sDec, 1 ); 
 } 
  
 #pragma ENDDUMP  
  
 

Dima пишет:

цитата:

Как считать разделитель групп разрядов ?

Проехали , заюзал LOCALE_STHOUSAND

 Отправлено: 11.10.13 17:17. Заголовок: Dima пишет: Покажи..

Dima пишет:

цитата:

Покажите на примере плиз как сделать автосумму в определенной ячейке. Скажем в первой колонке заполнены числами 1 и 2 ячейки а в 3-й нужно сделать автосумму. Макрос смотрел и синтаксиса не понял.

Не очень понятна суть вопроса...
Что мешает записать в ячейку содержимое "=RC[-2] + RC[-1]" ? Получится автосумма двух ячеек слева.

 Отправлено: 12.10.13 09:09. Заголовок: автосумма

или так

oExcel:ActiveCell:FormulaR1C1 := "=СУММ(R[-" + NTOC(nStart) + "]C:R[-1]C)

сумма колонки со строки nStart по активную строку -1

 Отправлено: 17.10.13 15:03. Заголовок: EXCEL 2003 у меня и ..

EXCEL 2003 у меня и у клиента.
В ячейку цифры я пишу так .........:NumberFormat:="# ##0"+GET_SDECIMAL()+"00"
Он строит у себя отчет и в сформированной таблице видит (для примера одна ячейка)
0,91 наводит на нее курсор и вверху видит 90.65
Когда я у себя строю тот же отчет то в этой же ячейке сразу вижу 90.65
У него разделитель дробной и целой части запятая у меня точка. Почему так по разному
EXCEL выводит данные ? По идее у него в ячейке должно отобразится 90,65

 Отправлено: 17.10.13 16:04. Заголовок: Dima пишет: EXCEL 2..

Dima пишет:

цитата:

EXCEL 2003 у меня и у клиента. В ячейку цифры я пишу так .........:NumberFormat:="# ##0"+GET_SDECIMAL()+"00" Он строит у себя отчет и в сформированной таблице видит (для примера одна ячейка) 0,91 наводит на нее курсор и вверху видит 90.65 Когда я у себя строю тот же отчет то в этой же ячейке сразу вижу 90.65 У него разделитель дробной и целой части запятая у меня точка. Почему так по разному EXCEL выводит данные ? По идее у него в ячейке должно отобразится 90,65

Не очень понятно, о чем речь.
NumberFormat - это маска форматирования значения, хранящегося в ячейке. Формат сам по себе - но какое значение туда пишете, что вместо 90,65 получается 0,91 ?
"Хорошо-бы увидеть самодостаточный пример" (с)... :)

 Отправлено: 17.10.13 16:16. Заголовок: Sergy пишет: "Х..

Sergy пишет:

цитата:

"Хорошо-бы увидеть самодостаточный пример" (с)... :)

Кусочек кода ;)

 
               oSheet:Cells( jj, i+1 ):NumberFormat:="# ##0"+GET_SDECIMAL()+"00" 
               oSheet:Cells( jj, i+1 ):Value :=vtv // число 
               oSheet:Range(osheet:cells(jj,i+1),osheet:cells(jj,i+1)):BorderAround( xlContinuous, xlThin) 
               oSheet:Columns(i+1 ):AutoFit() 
 

 Отправлено: 17.10.13 22:47. Заголовок: Проехали , решил воп..

Проехали , решил вопрос.

 Отправлено: 17.10.13 23:55. Заголовок: Dima пишет: Проехал..

Dima пишет:

цитата:

Проехали , решил вопрос.

Чтобы не наступить на такие-же грабли - в чем оказалась проблема ?

 Отправлено: 18.10.13 09:08. Заголовок: Sergy Он сделал в E..

Sergy
Он сделал в EXCEL и винде такие же региональные настройки как у меня в плане разделителей ;)

 Отправлено: 18.02.14 12:11. Заголовок: Помогите решить : Н..

Помогите решить :
Нужно создать несколько файлов EXCELL(таблиц) для дальнейшей рассылки (прайс-листы) . Хочу одновременно создавать несколько листов ( для разных клиентов) в одной книге , а затем эти листы поочередно сохранять в соответствующие файлы . До сего дня подготавливал последовательно ( вызов EXCELL , создание книги , заполнение данными , сохранение книги , закрываем EXCELL ). Но для подготовки большого числа документов я решил делать одновременно :

1) Вызов EXCELL
2) Создание книги
3) Создание Лист 1 , Лист 2 ..... Лиcт N
4) В цикле заполняем листы информацией
5) СОхраняем каждый лист в отдельный файл
Закрываем EXCELL

Знаний команд не хватает КАК :
ДОБАВИТЬ ЛИСТ ?
ПЕРЕКЛЮЧИТЬСЯ НА ЛИСТ ?
СОХРАНИТЬ ТОЛЬКО НУЖНЫЙ ЛИСТ ?

Поможете ?

 Отправлено: 18.02.14 12:28. Заголовок: Хоть у объекта works..

Хоть у объекта worksheet и есть метод SaveAs, я не знаю, как он работает. Обычно сохраняется вся книга, а не отдельный лист. Во всяком случае, надо попробовать, как сработает SaveAs для отдельного листа.

А насчет добавления-переключения листов:

oSheets := oBook:Sheets

Выбор листа по номеру:
oSheet1 := oSheets:Item(1)
oSheet2 := oSheets:Item(2)
Переключение:
oSheet2:Select()
Хотя можно явно не переключаться на лист, а применять методы непосредственно к интересующему листу (oSheet2)

Добавление листа (из справки):

oSheets:Add(<Before>, <After>, <Count>, <Type>)

Before Optional Variant. An object that specifies the sheet before which the new sheet is added.

After Optional Variant. An object that specifies the sheet after which the new sheet is added.

Count Optional Variant. The number of sheets to be added. The default value is one.

Type Optional Variant. Specifies the sheet type. Can be one of the following XlSheetType constants: xlWorksheet, xlChart, xlExcel4MacroSheet, or xlExcel4IntlMacroSheet. If you are inserting a sheet based on an existing template, specify the path to the template. The default value is xlWorksheet.

 Отправлено: 18.02.14 14:45. Заголовок: Softlog86 пишет: Но..

Softlog86 пишет:

цитата:

Но для подготовки большого числа документов я решил делать одновременно :

Одновременно все равно не получится да и будет ли такой способ быстрее , не факт.
Вот ежели на каждого клиента да в отдельном потоке создавать прайс , тогда другое дело.
Но к сожалению мне не удалось запустить EXCEL в отдельном потоке , вероятно он
работает только в ST режиме.

 Отправлено: 24.02.14 15:46. Заголовок: Помогите с рамкой р..

Помогите с рамкой разобраться.
Обычную сетку(плюс слитие ячеек) делаю так

 
 oSheet:Range(osheet:cells(i,1),osheet:cells(i+3,1)):MergeCells:=.t. 
 oSheet:Range(osheet:cells(i,1),osheet:cells(i+3,1)):BorderAround( xlContinuous, xlThin) 
  
 

Нужно что бы плюс к этому нижняя часть рамки была утолщенной.
Макросы смотрел и не очень въехал

 Отправлено: 24.02.14 16:45. Заголовок: Dima пишет: Нужно ч..

Dima пишет:

цитата:

Нужно что бы плюс к этому нижняя часть рамки была утолщенной.

так не пробовал?
oSheet:Range(osheet:cells(i,1),osheet:cells(i+3,1)):Borders(xlEdgeBottom):LineStyle( xlContinuous)
oSheet:Range(osheet:cells(i,1),osheet:cells(i+3,1)):Borders(xlEdgeBottom):Weight( xlMedium)

константы
These define the style of the border
xlNone = -4142; Note this is the same as xlLineStyleNone
xlContinuous = 1;
xlDash = -4115;
xlDashDot = 4;
xlDashDotDot = 5;
xlDot = -4118;
xlDouble = -4119;
xlSlantDashDot = 13;

These define the weight of the border
xlHairLine = 1;
xlMedium = -4138;
xlThick = 4;
xlThin = 2;

Thise is handy to make borders have the default color index
xlAutomatic = -4105;

These define the placement of border pieces
xlDiagonalDown = 5;
xlDiagonalUp = 6;
xlEdgeLeft = 7;
xlEdgeTop = 8;
xlEdgeBottom = 9;
xlEdgeRight = 10;
xlInsideVertical = 11;
xlInsideHorizontal = 12;

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

 Отправлено: 24.02.14 16:49. Заголовок: Я устанавливаю грани..

Я устанавливаю границы по другому:

oBorder := oCell:Borders(<nNSEW>)

где параметр - одно из значений :
xlEdgeBottom
xlEdgeLeft
xlEdgeRight
xlEdgeTop

и затем:

oBorder:LineStyle := xlContinuous
oBorder:Weight := xlThin

стиль границы конечно можно указать другой

 Отправлено: 24.02.14 16:52. Заголовок: kia пишет: так не п..

kia пишет:

цитата:

так не пробовал? oSheet:Range(osheet:cells(i,1),osheet:cells(i+3,1)):Borders(xlEdgeBottom):LineStyle( xlContinuous) oSheet:Range(osheet:cells(i,1),osheet:cells(i+3,1)):Borders(xlEdgeBottom):Weight( xlMedium)

Cпасибо , заработало вот так
oSheet:Range(osheet:cells(i,1),osheet:cells(i+3,1)):Borders(xlEdgeBottom):LineStyle:=xlContinuous
oSheet:Range(osheet:cells(i,1),osheet:cells(i+3,1)):Borders(xlEdgeBottom):Weight:=xlMedium

 Отправлено: 24.02.14 16:59. Заголовок: Pasha Идею понял. Т..

Pasha
Идею понял. Тоже подойдет. Спасибо !

 Отправлено: 01.08.14 14:04. Заголовок: что еще может работа..

что еще может работать в Harbour c EXCEL кроме OLE ?
Оля медленно работает.

 Отправлено: 01.08.14 18:41. Заголовок: ADO видимо А в чем..

ADO видимо

А в чем тормоз ?

 Отправлено: 01.08.14 21:14. Заголовок: fil пишет: А в чем ..

fil пишет:

цитата:

А в чем тормоз ?

Ну это моё наблюдение на чисто выпуклый морской глаз.
Заполняю EXCEL форму 100 строк 10 колонок в цикле построчно.
Если заполнять DBF базу такую же ,то это происходит раз в 5 быстрее если не больше.
Реально в своей задаче я делаю выборку во временную DBF базу и затем на основании
её заполняю EXCEL форму и хорошо видно что ОЛЯ работает медленнее.
В общем то на форуме где то уже писали ОЛЯ медленный механизм.
С ADO не работал. Он умеет с EXCEL работать ?

 Отправлено: 01.08.14 21:56. Заголовок: А ты, небось, каждую..

А ты, небось, каждую ячейку строки отдельно заполняешь ?

_{ADO умеет с EXCEL работать ?}

Вроде как, у Линареса посмотри

 Отправлено: 01.08.14 23:04. Заголовок: fil пишет: А ты, не..

fil пишет:

цитата:

А ты, небось, каждую ячейку строки отдельно заполняешь ?

Ну типа да ;) А что не так ?

 Отправлено: 01.08.14 23:37. Заголовок: Вот поэтому и медлен..

Вот поэтому и медленно. Надо типа так

for st=1 to 100
oExc:ActiveSheet:Range("A"+ltrim(str(st))+":J"+ltrim(str(st))):value:=массив[st]
next

и будет шустро

 Отправлено: 02.08.14 11:12. Заголовок: fil пишет: ADO умее..

цитата:

ADO умеет с EXCEL работать ?

Дима, привет.
Лови пример ADO

Function Read_XLS
Local cFile := 'TEST.XLS'

oConection = todbc():new("Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq="+ cFile + ";DefaultDir="+GetCurrentFolder()+";")
oConection:Setsql("SELECT * FROM [ЛИСТ1$]")

if !oConection:Open()
? " Error connection "
return
endif

for n := 1 to len(oConexion:aRecordSet)
for j := 1 to len(oConection:aRecordSet[n])
do case
case valtype(oConection:aRecordSet[n][j]) == "C"
? alltrim(oConection:aRecordSet[n][j])
case valtype(oConection:aRecordSet[n][j]) == "N"
? alltrim(str(oConection:aRecordSet[n][j]))
case valtype(oConection:aRecordSet[n][j]) == "D"
? alltrim(DtoC(oConection:aRecordSet[n][j]))
case valtype(oConection:aRecordSet[n][j]) == "L"
? alltrim(oConection:aRecordSet[n][j])
end case
next
next

oConection:Close()
oConection:Destroy()
Return

 Отправлено: 02.08.14 13:13. Заголовок: Haz Спасибо. Думаеш..

Haz
Спасибо. Думаешь он быстрее будет ?
А в нем доступны вещи типа : назначить шрифт , изменить его размер , залить фон ячейки цветом , рамочки построить и т д
и тп то что доступно через Олю ?


fil пишет:

цитата:

for st=1 to 100 oExc:ActiveSheet:Range("A"+ltrim(str(st))+":J"+ltrim(str(st))):value:=массив[st] next

То есть ты заполняешь ячейки построчно с колонки А по J. А что ж тогда лежит
в элементе массива ? Ведь каждую ячейку нужно заполнить своим значением.

 Отправлено: 02.08.14 16:32. Заголовок: Каждый элемент масси..

Каждый элемент массива это инфа для ячейки
{ {1,2,3,..10}
{11,12,13...20}}

чего тут неясного ?

Если в форме много формул, желательно сначала отключить автоматический расчет (application.clculation), а потом включить и пересчитать

 Отправлено: 02.08.14 17:14. Заголовок: fil Прикольно , не ..

fil
Прикольно , не знал что так можно делать.
Проверил , работает.
Сенкс !

 Отправлено: 02.08.14 19:15. Заголовок: Dima пишет: и тп то..

Dima пишет:

цитата:

и тп то что доступно через Олю

нет , только данные , лучший вариант предложил fil, а я просто внес альтернативу как пример

 Отправлено: 03.08.14 10:44. Заголовок: Haz пишет: лучший в..

Haz пишет:

цитата:

лучший вариант предложил fil

Да сделал тестовый пример , по его методе скорость выше примерно в 5-6 раз.

 Отправлено: 03.08.14 13:56. Заголовок: Dima пишет: Да сдел..

Dima пишет:

цитата:

Да сделал тестовый пример , по его методе скорость выше примерно в 5-6 раз.

А посмотреть на сам тест и пример можно ?

 Отправлено: 03.08.14 14:01. Заголовок: Andrey Да конечно. ..

Andrey
Да конечно.

 
 Proc main 
 local oExcel 
 local oWorkBook 
 local oSheet  
 local secs:=0 
 local i 
  
 oExcel := CreateObject( "Excel.Application" ) 
    IF Valtype(oExcel) == "O" 
 oExcel:Visible := .f. 
 oExcel:DisplayAlerts:=.f. 
 oWorkBook := oExcel:WorkBooks:Add() 
 oSheet := oExcel:ActiveSheet() 
 oSheet:Cells:Font:Name := "Arial Cyr" 
 oSheet:Cells:Font:Size := 12 
 oExcel:ActiveWindow:DisplayZeros:=.F. 
  
  
 secs:=seconds() 
       for i=1 to 1000 
 oSheet:Cells( i, 1 ):Value:=1 
 oSheet:Cells( i, 2 ):Value:=date() 
 oSheet:Cells( i, 3 ):Value:=time() 
 oSheet:Cells( i, 4 ):Value:="TEST" 
 oSheet:Cells( i, 5 ):Value:=1000 
 oSheet:Cells( i, 6 ):Value:=112345.123 
 oSheet:Cells( i, 7 ):Value:=dtos(date()) 
 oSheet:Cells( i, 8 ):Value:=2 
 oSheet:Cells( i, 9 ):Value:=3 
 oSheet:Cells( i, 10 ):Value:=4 
       next 
 ? seconds()-secs 
  
 secs:=seconds() 
       for i=1001 to 2000 
 oSheet:Range(osheet:cells(i,1),osheet:cells(i,10)):Value:={1,date(),; 
              time(),"TEST1",1000,112345.123,dtos(date()),2,3,4} 
       next 
 ? seconds()-secs 
  
  
 wait 
 oExcel:Visible := .t. 
    ENDIF   
 return 
  
 

PS
У меня при 1000 строках и 10 столбцах быстрее в 5 раз.
100 строк и 10 столбцов в 7 раз

 Отправлено: 03.08.14 21:27. Заголовок: Dima пишет: Да коне..

Dima пишет:

цитата:

Да конечно.

Спасибо БОЛЬШОЕ !

 Отправлено: 08.08.14 15:35. Заголовок: WVT программа. Задач..

WVT программа.
Задача установить что открыт нужный лист EXCEL.
Такую проверку я сделал но почему то после проверки оказываюсь в EXCEL (оно как бы понятно почему).
а надо бы вернуться в программу. Как это правильно сделать ?
Делаю примерно так

 
                do while .t.         
                       
                        if Start_EXCEL() 
                  IF Valtype(oExcel) == "O" 
 oExcel:Visible := .f. 
 oExcel:DisplayAlerts:=.f. 
 oSheet := oExcel:ActiveSheet() 
     if oSheet:UsedRange:Columns:Count#15 
 oExcel:Visible := .t. 
 soob("Открыта не та книга........","r/r","gr+/r") 
 exit 
     endif 
  
  
  
 oExcel:Visible := .t. 
                  ELSE   
 soob("Объект не найден.........","r/r","gr+/r") 
 exit 
                  ENDIF  
                        endif 
  
 exit 
              enddo 
 

Решил пробнуть hwnd:=hb_gtInfo(HB_GTI_GETWIN) а затем Hb_gtInfo( HB_GTI_SETWIN, hwnd) ,
но hb_gtInfo(HB_GTI_GETWIN) совсем ни чего не возвращает.

 Отправлено: 08.08.14 22:30. Заголовок: Правильно ли я понял..

Правильно ли я понял, что нужно типа листнера состояния Excel ? Тогда можно сидеть на окне и по таймеру опрашиваать

 Отправлено: 08.08.14 23:16. Заголовок: fil Нужно: опросил ..

fil
Нужно: опросил состояние EXCEL и остался в окне своей проги.

 Отправлено: 08.08.14 23:24. Заголовок: ну так в чем проблем..

ну так в чем проблема сделать это по таймеру ?

 Отправлено: 09.08.14 08:11. Заголовок: Dima пишет: опросил..

Dima пишет:

цитата:

опросил состояние EXCEL и остался в окне

Дима, а :Visible := .T. зачем если не та книга ?
Как еще вариант - из цикла вызывать проверку отдельным потоком , который всегда можно прибить в случае ненадобности

PS. Протестировал выгрузку в Excel через ADODB - результат устроил полностью 10 000 строк выгружается 5 сек

 Отправлено: 09.08.14 14:15. Заголовок: Разобрался. Просто н..

Разобрался. Просто не нужно юзать oExcel:Visible.

Странная штука.
Если ячейки я могу заполнить вот так

oSheet:Range(osheet:cells(1,1),osheet:cells(1,5)):Value:={1,2,3,4,5}

А если сделать обратную операцию и считать значения в массив

amas:=(oSheet:Range(osheet:cells(j,1),osheet:cells(j,15)):Value)

То массив имеет вид не {1,2,3,4,5} а {{1},{2},{3},{4},{5}}
Это нормально ?

 Отправлено: 09.08.14 15:07. Заголовок: массив имеет вид не ..

цитата:

массив имеет вид не {1,2,3,4,5} а {{1},{2},{3},{4},{5}}

Нормально.

 Отправлено: 09.08.14 16:37. Заголовок: Haz пишет: PS. Прот..

Haz пишет:

цитата:

PS. Протестировал выгрузку в Excel через ADODB - результат устроил полностью 10 000 строк выгружается 5 сек

А где можно пример посмотреть по работе с EXCEL ? Что то не нашел.
Смотрел тут harbour\contrib\hbwin\tests\

 Отправлено: 09.08.14 17:05. Заголовок: Dima пишет: А где м..

Dima пишет:

цитата:

А где можно

можно в исходниках ADORDD на core-master

но я тестил проще

#include 'adordd.ch'
Func Test()
local cFile := "TEST.XLS"
local cConnectStr := 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source= ' + cFile + ';Extended Properties= "Excel 8.0;HDR=YES"'
local oConnection := TOleAuto():New( "ADODB.Connection" )
local oCommand
local i := 0

oConnection:ConnectionString := cConnectStr
oConnection:Open()
oCommand := TOleAuto():New("ADODB.Command")
oCommand:ActiveConnection := oConnection

oCommand:CommandText = "CREATE TABLE [МояТаблица] (Символьный char(255), Дата date, Целый int, Дробный float)"
oCommand:Execute()

For i := 1 TO 10000
oCommand:CommandText = "INSERT INTO [МояТаблица] (Символьный, Дата, Целый, Дробный) values ('АБВГДЕЁ', '12/4/1955', '1234567', '12345,6789')"
oCommand:Execute()
END

return nil


PS если TEST.XLS есть - не сможет создать и выдаст ошибку

 Отправлено: 09.08.14 18:12. Заголовок: Haz Спасибо !..

Haz
Спасибо !

 Отправлено: 09.08.14 19:20. Заголовок: Dima пишет: Спасибо..

Dima пишет:

цитата:

Спасибо

незачто
Есть смысл в Excel гнать через ADO, а потом красоту наводить через OLE

 Отправлено: 30.10.14 17:06. Заголовок: а как загнать нужные..

а как загнать нужные строки в группу ? Что то макрос мало что сказал....

 Отправлено: 30.10.14 18:37. Заголовок: Dima пишет: а как з..

Dima пишет:

цитата:

а как загнать нужные строки в группу ? Что то макрос мало что сказал....

Речь об объединении ячеек ?

Мой макрос вот что показал:

Sub Макрос1() 
     Range("D8:D10").Select 
     With Selection 
         .HorizontalAlignment = xlGeneral 
         .VerticalAlignment = xlBottom 
         .WrapText = False 
         .Orientation = 0 
         .AddIndent = False 
         .ShrinkToFit = False 
         .MergeCells = True 
     End With 
 End Sub 
 

Работает там последняя строка. Все остальные - задают параметры вновь создаваемого объединения.

 Отправлено: 30.10.14 18:48. Заголовок: Sergy Да оно , спас..

Sergy
Да оно , спасибо !

 Отправлено: 02.11.14 19:01. Заголовок: EXCEL 2003 В нем воо..

EXCEL 2003
В нем вообще работает заливка фона вида Interior.Color = RGB(220,220,220) ,
пробовал через макрос и похоже что не работает и цвета берутся из
ColorIndex

PS
Хотел серым цветом залить от 10 до 15 % черного и ни как.

 Отправлено: 03.11.14 16:43. Заголовок: Dima пишет: Хотел с..

Dima пишет:

цитата:

Хотел серым цветом залить от 10 до 15 % черного и ни как.

Работает в любом Экселе, от 97 до 2010 точно:
...
Selection.Interior.ColorIndex = 15

вот тут: http://infostart.ru/public/58191/ есть другие цвета.

 Отправлено: 03.11.14 16:57. Заголовок: Sergy 15 не подходи..

Sergy
15 не подходит в том и дело. нужно светлее.
а цвета я тут смотрю http://www.databison.com/excel-color-palette-and-color-index-change-using-vba/

 Отправлено: 16.02.15 18:17. Заголовок: Приветствую ! В лис..

Приветствую !

В лист Excel нужно вставить разрыв страницы - HPageBreaks. Никак не разберусь как это выглядит в Харборе ?

 Отправлено: 16.02.15 18:27. Заголовок: не оно ? http://five..

не оно ?
http://fivetechsupport.com/forums/viewtopic.php?f=3&t=12959&p=65907&hilit=HPageBreaks#p65907