Страница: 1 |
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. ;)
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. 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... 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 |
Вопрос: Новое сообщение без темы
Добавлено: 26.08.02 21:33
Автор вопроса: MAGNUS
Ответы
Всего ответов: 3
Номер ответа: 1
Автор ответа:
MAGNUS
Вопросов: 12
Ответов: 430
Профиль | | #1
Добавлено: 26.08.02 21:33
Номер ответа: 2
Автор ответа:
MAGNUS
Вопросов: 12
Ответов: 430
Профиль | | #2
Добавлено: 26.08.02 21:45
Номер ответа: 3
Автор ответа:
MAGNUS
Вопросов: 12
Ответов: 430
Профиль | | #3
Добавлено: 26.08.02 21:49