Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.06.2009, 12:21   #1
hacili
 
Регистрация: 23.06.2009
Сообщений: 3
По умолчанию Имена Листев в таблицу

Здравствуйте,
Как можно получить имена листьев как таблицу?
в виде:


Лист 1
Лист 2
Лист 3
Лист 4
Лист 5
Лист 6
hacili вне форума Ответить с цитированием
Старый 23.06.2009, 12:27   #2
hacili
 
Регистрация: 23.06.2009
Сообщений: 3
По умолчанию пример

пример :
Изображения
Тип файла: jpg demo.jpg (27.6 Кб, 149 просмотров)
hacili вне форума Ответить с цитированием
Старый 23.06.2009, 13:26   #3
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

Код:
Sub listofsheets()
  Dim i As Integer
  For i = 1 To ActiveWorkbook.Sheets.Count
    ActiveCell.Offset(i) = ActiveWorkbook.Sheets(i).Name
  Next
End Sub
Список будет выведен снизу от активной ячейки
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Старый 23.06.2009, 14:06   #4
hacili
 
Регистрация: 23.06.2009
Сообщений: 3
Радость Спасибо

Цитата:
Сообщение от viter.alex Посмотреть сообщение
Код:
Sub listofsheets()
  Dim i As Integer
  For i = 1 To ActiveWorkbook.Sheets.Count
    ActiveCell.Offset(i) = ActiveWorkbook.Sheets(i).Name
  Next
End Sub
Список будет выведен снизу от активной ячейки
Спасибо большое, работает
hacili вне форума Ответить с цитированием
Старый 23.06.2009, 14:24   #5
Евгений ГВС
Пользователь
 
Регистрация: 28.05.2009
Сообщений: 43
По умолчанию

А может использовать не For, а For Each in...
Евгений ГВС вне форума Ответить с цитированием
Старый 23.06.2009, 15:20   #6
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

Цитата:
Сообщение от Евгений ГВС Посмотреть сообщение
А может использовать не For, а For Each in...
Можно, а смысл? Переменная типа Integer занимает ровно в два раза меньше места (2 байта), чем переменная типа Object (4 байта) или Variant, которые нужно использовать в цикле For Each. К тому же отдельного объекта Sheet в Excel нет, что было бы удобно.
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Имена каталогов и подкаталогов Xandr Общие вопросы Delphi 11 29.03.2010 21:36
имена файлов Tirendus БД в Delphi 1 01.04.2009 20:49
Получить доменные имена lamerx Работа с сетью в Delphi 1 10.10.2008 16:57
Имена хостов :( InseR Работа с сетью в Delphi 1 04.07.2007 12:15