Автор | Сообщение |
Dima
|
| |
Пост N: 2372
Зарегистрирован: 17.05.05
|
|
Отправлено: 21.05.12 16:52. Заголовок: Снова EXCEL
Ранее с Excel из Harbour ни когда не работал. Поставили тут задачу. У некоторых поставщиков есть определенные формы заказов. Набраны они в Excel. Сейчас народ руками заполняет эти формы и шлет по электронке поставщикам. Задача сводится к тому что бы в этих формах находить нужные коды товара и в нужной ячейке проставлять заказ. Может ткнет кто носом с чего начать что бы не напороться на грабли. Спасибо Сами формы тут http://zalil.ru/33279066
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|
Dima
|
| |
Пост N: 4502
Зарегистрирован: 17.05.05
|
|
Отправлено: 17.02.15 14:35. Заголовок: fil Процесс формиро..
fil Процесс формирования тормозит или уже готовая таблица ?
|
|
|
fil
|
| |
Пост N: 280
Зарегистрирован: 17.06.10
|
|
Отправлено: 17.02.15 15:33. Заголовок: Тормозит сам ввод ра..
Тормозит сам ввод разрыва станицы (даже попробовал вставить разрывы после созданияих документа, таже песня). Впечатление такое, что после каждой вставки запускается некая обработка
|
|
|
nick_mi
|
| |
Пост N: 156
Зарегистрирован: 19.05.05
|
|
Отправлено: 17.02.15 21:13. Заголовок: А долго это сколько?..
А долго это сколько? Я попробовал, ну чтоб для нормальной статистики, 200 разрывов- 5 секунд. Приведите кусок кода по разрывам
|
|
|
Dima
|
| |
Пост N: 4505
Зарегистрирован: 17.05.05
|
|
Отправлено: 17.02.15 21:26. Заголовок: nick_mi пишет: Я по..
nick_mi пишет: цитата: | Я попробовал, ну чтоб для нормальной статистики, 200 разрывов- 5 секунд. |
| Пример не большой можно ? Проверю на своем оффисе 2003
|
|
|
nick_mi
|
| |
Пост N: 157
Зарегистрирован: 19.05.05
|
|
Отправлено: 17.02.15 22:24. Заголовок: function main () l..
function main () local oExel local osheet local ocell local opagebreak local line_break local time1 local time2 cls time1 := time() If ( oExcel := win_oleCreateObject( "Excel.Application" ) ) != NIL oExcel:Visible := .t. oWorkBook := oExcel:WorkBooks:open("D:\PUBLIC\harbexamp\obdc.xls") osheet := oWorkBook:WorkSheets(1) opagebreak := osheet:HPageBreaks() line_break := 0 For I:= 1 to 200 line_break := line_break + 20 ocell := osheet:cells(line_break, 1) opagebreak: add (ocell) next oExcel:Visible := .t. time2 := time () @ 1,1 say "Time1="+ time1 + " Time2=" + time2 inkey (0) EndIf
|
|
|
Dima
|
| |
Пост N: 4506
Зарегистрирован: 17.05.05
|
|
Отправлено: 17.02.15 22:30. Заголовок: nick_mi пишет: 200 ..
nick_mi пишет: Так и есть , 5 секунд.
|
|
|
nick_mi
|
| |
Пост N: 158
Зарегистрирован: 19.05.05
|
|
Отправлено: 17.02.15 22:35. Заголовок: Мож просто комп очен..
Мож просто комп очень медленный, поэтому
|
|
|
fil
|
| |
Пост N: 281
Зарегистрирован: 17.06.10
|
|
Отправлено: 18.02.15 09:04. Заголовок: Вроде разобрался - т..
Вроде разобрался - тормоза это следствия леченного вируса (именно с офисои иногда проблемы)
|
|
|
Dima
|
| |
Пост N: 4516
Зарегистрирован: 17.05.05
|
|
Отправлено: 20.02.15 17:38. Заголовок: В EXCEL (2003) в мен..
В EXCEL (2003) в меню Сервис - Параметры - Международные ,есть галя "Использовать системные разделители". Считать системные разделители я могу. А как считать разделители в самом EXCEL если галя снята с пункта "Использовать системные разделители" ? + Как узнать в каком положении находится пункт "Использовать системные разделители" (вкл/выкл)? ЗЫ Проехали , поюзал макрос (не думал что сработает)
|
|
|
Softlog86
|
| |
Пост N: 215
Зарегистрирован: 03.12.08
|
|
Отправлено: 20.03.15 16:24. Заголовок: Подскажите , как узн..
Подскажите , как узнать номер последней строки в Эксел-таблице ? То есть нужно отследить , когда заканчиваются данные . С макросом как-то не получается :(
|
|
|
Dima
|
| |
Пост N: 4605
Зарегистрирован: 17.05.05
|
|
Отправлено: 20.03.15 16:30. Заголовок: Softlog86 oSheet:Us..
Softlog86 oSheet:UsedRange:Rows:Count
|
|
|
|
Dima
|
| |
Пост N: 4643
Зарегистрирован: 17.05.05
|
|
Отправлено: 02.04.15 21:21. Заголовок: Вот такая вот таблич..
Вот такая вот табличка Большой беленький прямоугольник в левом верхнем углу - результат работы oSheet:Range(osheet:cells(1,1),osheet:cells(2,3)):MergeCells:=.t. Вопрос: Места в нём гуляй не хочу. Каким образом можно в нём написать несколько строк текста ?
|
|
|
Haz
|
| |
Пост N: 506
Зарегистрирован: 20.02.11
|
|
Отправлено: 02.04.15 23:20. Заголовок: а так :sm12: oshe..
а так osheet:cells(1,1):Value := "Несколько строк текста"
|
|
|
Dima
|
| |
Пост N: 4644
Зарегистрирован: 17.05.05
|
|
Отправлено: 03.04.15 09:01. Заголовок: Ёлки , я пробовал ру..
Ёлки , я пробовал руками в EXCEL это сделать не получилось. А из проги в ряд строк вывести не проблема оказывается ;) oSheet:Cells(1,1):Value:="Проверка1"+chr(10)+"Проверка2"+chr(10)+"TEST"+chr(10)+"hgjhgjhg"+chr(10)+"1111111111"
|
|
|
Haz
|
| |
Пост N: 507
Зарегистрирован: 20.02.11
|
|
Отправлено: 03.04.15 10:32. Заголовок: Dima пишет: руками..
Dima пишет: цитата: | руками в EXCEL это сделать не получилось |
| вместо ENTER жми ALT+ENTER
|
|
|
Dima
|
| |
Пост N: 4645
Зарегистрирован: 17.05.05
|
|
Отправлено: 03.04.15 10:39. Заголовок: Haz Дякую :sm12: ..
Haz Дякую
|
|
|
Dima
|
| |
Пост N: 4646
Зарегистрирован: 17.05.05
|
|
Отправлено: 03.04.15 11:44. Заголовок: Макрос EXCEL ActiveW..
Макрос EXCEL ActiveWorkbook.Colors(15) = RGB(234, 234, 234) Как сделать на Harbour ? Пробнул так OExcel:ActiveWorkbook:Colors(15):RGB(234,234,234) не компилится ........
|
|
|
Haz
|
| |
Пост N: 508
Зарегистрирован: 20.02.11
|
|
Отправлено: 03.04.15 12:08. Заголовок: Dima пишет: Макрос ..
Dima пишет: Дим, а цвет чего он устанавливает ?
|
|
|
Dima
|
| |
Пост N: 4647
Зарегистрирован: 17.05.05
|
|
Отправлено: 03.04.15 12:12. Заголовок: В EXCEL есть стандар..
В EXCEL есть стандартные заливки фона. Например (Harbour) oSheet:Cells(jj,2):Interior:ColorIndex:=15 ColorIndex:=15 это 25 процентов серого а мне надо всего 15 процентов серого. Попробовал в EXCEL изменить цвет этой заливки и получил макрос который привел выше
|
|
|
Haz
|
| |
Пост N: 509
Зарегистрирован: 20.02.11
|
|
Отправлено: 03.04.15 12:23. Заголовок: понял ) тогда так O..
понял ) тогда так OExcel:ActiveWorkbook:Colors(15, RGB(234,234,234) )
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|