| Вопрос: Новое сообщение без темы | Добавлено: 26.08.02 21:33 |
Автор вопроса:  MAGNUS
|
|
Samoe perwoe chto prishlo w golowu eto prowerjat kajduju jachejku na wshiwost, w smisle na pohojest. Sozdaesh oblect: dim MyExcel as Excel.Application dim MyBook as excel.workbook dim MySheet as Excel.WorkSheet dim irow as integer Set MyExcel=getObject("","Excel.Application") With MyExcel.Workbooks(1).Worksheets(1) 'zdes est takoj obekt Range, eto sobstwenno i est Cell, t.e. ego koordinati if .Range("A" & iRow & ":" & "A" & iRow).Value= "To chto nujno najti" then ' to chego nujno sdelat ;) end if Eto poisk w konkretnoj jachejke, no tebe razumeetsa nujno organizowat tsikl chtobi perebirat wse ot A do Z i ot 1 do n-skolko ih tam u tebja est. poprobuj tak, esche chto nibud pridumaju, skaju. ;) |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа: MAGNUS Вопросов: 12 Ответов: 430 |
Профиль | | #1 | Добавлено: 26.08.02 21:33 |
|
Samoe perwoe chto prishlo w golowu eto prowerjat kajduju jachejku na wshiwost, w smisle na pohojest. Sozdaesh oblect: dim MyExcel as Excel.Application dim MyBook as excel.workbook dim MySheet as Excel.WorkSheet dim irow as integer Set MyExcel=getObject("","Excel.Application") With MyExcel.Workbooks(1).Worksheets(1) 'zdes est takoj obekt Range, eto sobstwenno i est Cell, t.e. ego koordinati if .Range("A" & iRow & ":" & "A" & iRow).Value= "To chto nujno najti" then ' to chego nujno sdelat end if Eto poisk w konkretnoj jachejke, no tebe razumeetsa nujno organizowat tsikl chtobi perebirat wse ot A do Z i ot 1 do n-skolko ih tam u tebja est. poprobuj tak, esche chto nibud pridumaju, skaju. |
||
|
Номер ответа: 2 Автор ответа:  MAGNUSВопросов: 12 Ответов: 430 |
Профиль | | #2 | Добавлено: 26.08.02 21:45 |
|
Da zabil, dla aktiwirowanija najdennoj jachejki: EditDirectlyInCell eto metod objekta MyExcel.Application , on Boolean , staw ego w true i doljno rabotat, no sam ja etot metod ne probowal tak chto ne znaju... |
||
|
Номер ответа: 3 Автор ответа:  MAGNUSВопросов: 12 Ответов: 430 |
Профиль | | #3 | Добавлено: 26.08.02 21:49 |
|
OPjat zabil! Est prosche! application.Range().Active! A esli hochesh to mojesh i zam poiskat w Object Explorer Nezabud toka dobawit Reference na Excel. Tam i mojno prosmatriwat wse objekti ierarhii! |
||
Страница: 1 |