Форум по VBA и MS Office

VBA, Excel => VBA, макросы в Excel => Тема начата: Посетитель от 19 июня 2014, 10:27

Название: Excel VBA Макросы. Как просмотреть все листы в Excel-файле?
Отправлено: Посетитель от 19 июня 2014, 10:27
Как просмотреть все листы в Excel-файле (Excel-книге)?
Название: Re: Excel VBA Макросы. Как просмотреть все листы в Excel-файле?
Отправлено: Администратор от 19 июня 2014, 10:59
Sub Макрос1()
   
    Dim shMy As Excel.Worksheet
   
   
    'Просмотр всех обычных листов Excel-файла
        '(необычные листы это диаграммы).
    'Переменная "shMy" представляет собой VBA-имя листа,
        'с помощью этого имени можно манипулировать листом.
    'Сначала VBA-имя "shMy" назначается первому листу, затем второму и так до последнего.
    For Each shMy In ActiveWorkbook.Worksheets
        'Вывод имени листа в View - Immediate Window.
        Debug.Print shMy.Name
    Next shMy
   
End Sub