Вывод информации о текущем документе
Чтобы быстро вывести на экран информацию об имени текущего файла, названии текущего рабочего листа и количестве листов в текущей рабочей книге, можно использовать макрос, код которого приведен в листинге 3.69.
Листинг 3.69. Информация о текущем документе
Sub ShowInfo()
Dim i As Integer
' Выводим имя файла рабочей книги
Range(«A1») = ActiveWorkbook.Name
' Выводим имя текущего листа
Range(«B1») = ActiveSheet.Name
' Выводим номера листов
For i = 1 To ActiveWorkbook.Sheets.Count
ActiveSheet.Cells(i, 3) = i
Next i
End Sub
Результат выполнения макроса представлен на рис. 3.22.
Рис. 3.22. Информация о текущем файле
В данном случае в ячейке А1 отображается имя текущего файла, в ячейке В1 – имя активного рабочего листа, а в столбце С – информация о количестве рабочих листов в текущей книге.