Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности

Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
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.Visible = True End Sub Вот так открываю книгу EXCEL а как открыть существующую в ней страницу не первую. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
16.12.2003, 14:29
|
|||
|---|---|---|---|
Как открыть нужную страницу в 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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=60&tablet=1&tid=2170346]: |
0ms |
get settings: |
8ms |
get forum list: |
17ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
55ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
47ms |
get tp. blocked users: |
2ms |
| others: | 234ms |
| total: | 383ms |

| 0 / 0 |
