Форум » [x]Harbour » Снова EXCEL » Ответить
Снова EXCEL
Dima: Ранее с Excel из Harbour ни когда не работал. Поставили тут задачу. У некоторых поставщиков есть определенные формы заказов. Набраны они в Excel. Сейчас народ руками заполняет эти формы и шлет по электронке поставщикам. Задача сводится к тому что бы в этих формах находить нужные коды товара и в нужной ячейке проставлять заказ. Может ткнет кто носом с чего начать что бы не напороться на грабли. Спасибо Сами формы тут http://zalil.ru/33279066
Dima: fil Нужно: опросил состояние EXCEL и остался в окне своей проги.
fil: ну так в чем проблема сделать это по таймеру ?
Haz: Dima пишет: опросил состояние EXCEL и остался в окне Дима, а :Visible := .T. зачем если не та книга ? Как еще вариант - из цикла вызывать проверку отдельным потоком , который всегда можно прибить в случае ненадобности PS. Протестировал выгрузку в Excel через ADODB - результат устроил полностью 10 000 строк выгружается 5 сек
Dima: Разобрался. Просто не нужно юзать 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}} Это нормально ?
fil: массив имеет вид не {1,2,3,4,5} а {{1},{2},{3},{4},{5}} Нормально.
Dima: Haz пишет: PS. Протестировал выгрузку в Excel через ADODB - результат устроил полностью 10 000 строк выгружается 5 сек А где можно пример посмотреть по работе с EXCEL ? Что то не нашел. Смотрел тут harbour\contrib\hbwin\tests\
Haz: 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 есть - не сможет создать и выдаст ошибку
Dima: Haz Спасибо !
Haz: Dima пишет: Спасибо незачто Есть смысл в Excel гнать через ADO, а потом красоту наводить через OLE
Dima: а как загнать нужные строки в группу ? Что то макрос мало что сказал....
Sergy: Dima пишет: а как загнать нужные строки в группу ? Что то макрос мало что сказал.... Речь об объединении ячеек ? Мой макрос вот что показал: [pre2]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 [/pre2] Работает там последняя строка. Все остальные - задают параметры вновь создаваемого объединения.
Dima: Sergy Да оно , спасибо !
Dima: EXCEL 2003 В нем вообще работает заливка фона вида Interior.Color = RGB(220,220,220) , пробовал через макрос и похоже что не работает и цвета берутся из ColorIndex PS Хотел серым цветом залить от 10 до 15 % черного и ни как.
Sergy: Dima пишет: Хотел серым цветом залить от 10 до 15 % черного и ни как. Работает в любом Экселе, от 97 до 2010 точно: ... Selection.Interior.ColorIndex = 15 вот тут: http://infostart.ru/public/58191/ есть другие цвета.
Dima: Sergy 15 не подходит в том и дело. нужно светлее. а цвета я тут смотрю http://www.databison.com/excel-color-palette-and-color-index-change-using-vba/
fil: Приветствую ! В лист Excel нужно вставить разрыв страницы - HPageBreaks. Никак не разберусь как это выглядит в Харборе ?
Dima: не оно ? http://fivetechsupport.com/forums/viewtopic.php?f=3&t=12959&p=65907&hilit=HPageBreaks#p65907
fil: Все работает
fil: Только замедление в разы
fil: Интересно, почему вставка более чем 1 разрыва страницы жутко тормозит ?
полная версия страницы