|
|
|
Как открыть нужную страницу в EXCEL
|
|||
|---|---|---|---|
|
#18+
Private AppExcel As Excel.Application Dim AppBook As Excel.Workbook Private Sub Command_Click() Set AppExcel = CreateObject("Excel.Application") Set AppBook = AppExcel.Workbooks.Open(App.Path & "\Report") AppExcel.Application.Visible = True End Sub Вот так открываю книгу EXCEL а как открыть существующую в ней страницу не первую. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.12.2003, 14:11 |
|
||
|
Как открыть нужную страницу в EXCEL
|
|||
|---|---|---|---|
|
#18+
Я сам разобрался. Делается так. Private AppExcel As Excel.Application Dim AppBook As Excel.Workbook Private Sub Command_Click() Set AppExcel = CreateObject("Excel.Application") Set AppBook = AppExcel.Workbooks.Open(App.Path & "\Report") AppExcel.Application.Sheets(2).Select AppExcel.Application.Visible = True ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.12.2003, 14:29 |
|
||
|
|
start [/forum/moderation_log.php?user_name=%D0%B3%D1%8B%D1%83%D0%BA-003]: |
0ms |
get settings: |
9ms |
get forum list: |
13ms |
get settings: |
9ms |
get forum list: |
20ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
197ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
48ms |
get tp. blocked users: |
1ms |
| others: | 2707ms |
| total: | 3027ms |
| 0 / 0 |
