|
|
|
как узнать сколько листов в 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 книге? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.05.2007, 17:32 |
|
||
|
как узнать сколько листов в 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"); .............................................. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.05.2007, 08:07 |
|
||
|
|
start [/forum/topic.php?fid=57&fpage=293&tid=2028812]: |
0ms |
get settings: |
9ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
48ms |
get topic data: |
11ms |
get forum data: |
2ms |
get page messages: |
46ms |
get tp. blocked users: |
1ms |
| others: | 252ms |
| total: | 382ms |
| 0 / 0 |
