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

Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
06.08.2004, 11:15
|
|||
|---|---|---|---|
Как перебрать листы Excel? |
|||
|
#18+
Всем привет! Написал это же сообщение в VB.NET но там сонно как-то. Мож здесь кто знает? Мне нужно узнать все листы в открытой книге Excel, как это можно сделать? Я иду таким путем: Public appExcel As Excel.Application Public wbkNew As Excel.Workbook -------------------------------------- Dim ShCount As Integer Dim ShName() As String appExcel = New Excel.Application wbkNew = appExcel.Workbooks.Open(FileName) ShCount = appExcel.Sheets.Count Do While i <= ShCount ReDim ShName(i) ShName(i) = appExcel.Sheets(i).Name ' Ошибка тутmsgbox ShName(i) i += 1 Loop Ошибка - неверный тип переменной Как быть? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.08.2004, 11:34
|
|||
|---|---|---|---|
Как перебрать листы Excel? |
|||
|
#18+
Блин, здорово! Как мне в голову не пришло, ведь делал так Спасибо! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=60&tablet=1&tid=2169106]: |
0ms |
get settings: |
10ms |
get forum list: |
20ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
92ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
54ms |
get tp. blocked users: |
3ms |
| others: | 254ms |
| total: | 456ms |

| 0 / 0 |
