Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
23.05.2007, 17:32
|
|||
|---|---|---|---|
|
|||
как узнать сколько листов в excel книге |
|||
|
#18+
EA=Variant::CreateObject("Excel.Application"); EA.OlePropertySet("DisplayAlerts",false); EA.Exec(PropertySet("Visible")<<false); EA.Exec(PropertyGet("Workbooks")).Exec(Function("Open")<<FileName); Variant TForm1::GetValue(int x,int y) //читпем из ячейки значение! { Variant r=EA.Exec(PropertyGet("Range")<<Range(x,y)); Variant res=r.Exec(PropertyGet("Value")); return res; } как узнать сколько листов в excel книге? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
24.05.2007, 08:07
|
|||
|---|---|---|---|
как узнать сколько листов в excel книге |
|||
|
#18+
App=Variant::CreateObject("Excel.Application"); App.OlePropertySet("DisplayAlerts",false); App.OlePropertySet("IgnoreRemoteRequests",false); this->LangID=LanguageInterfaceID(); try { Books=App.OlePropertyGet("Workbooks"); Books.OleFunction("Add"); Book=App.OlePropertyGet("ActiveWorkbook"); Sheets=Book.OlePropertyGet("Worksheets"); nSheet=Sheets.OlePropertyGet("Count"); .............................................. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=57&mobile=1&tid=2028812]: |
0ms |
get settings: |
7ms |
get forum list: |
11ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
176ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
31ms |
get tp. blocked users: |
1ms |
| others: | 192ms |
| total: | 432ms |
| 0 / 0 |
