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

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

 Отправлено: 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

 Отправлено: 16.02.15 19:04. Заголовок: Все работает :sm36:..

Все работает

 Отправлено: 16.02.15 19:11. Заголовок: Только замедление в ..

Только замедление в разы

 Отправлено: 17.02.15 11:12. Заголовок: Интересно, почему вс..

Интересно, почему вставка более чем 1 разрыва страницы жутко тормозит ?