Если вы хотите вставить определенную информацию в верхний / нижний колонтитул рабочего листа, например, имя файла / путь к файлу, текущую дату или номер страницы, вы можете сделать это, используя приведенный ниже код. Если это всего лишь один рабочий лист, вы можете сделать это вручную, но если это несколько листов или все листы в книге, которые нуждаются в заполнении этой информации, вы можете сделать это с помощью простого макроса / кода vba .

Этот пример макроса вставляет верхний / нижний колонтитул на каждый лист в активной книге. Он также вставит полный путь к книге.

Option Explicit

Sub InsertHeaderFooter()

Dim wsAs Worksheet

Application.ScreenUpdating = False

Each wsInThisWorkbook.Worksheets

With ws.PageSetup

.LeftHeader = “Company Name:”

.CenterHeader = “Page &P of &N”

.RightHeader = “Printed &D &T”

.LeftFooter = “Path : “ &ActiveWorkbook.Path

.CenterFooter = “Workbook Name: & F”

.RightFooter = “Sheet: &A”

End With

Next ws

Set ws = Nothing

Application.ScreenUpdating = True

End Sub

Чтобы скопировать этот код в свою книгу, нажмите Alt + F11 на клавиатуре.

Затем с левой стороны вы увидите объекты Microsoft Excel. Щелкните правой кнопкой мыши и выберите Вставить. Затем нажмите «Модуль» и скопируйте этот код в окно кода справа.

Давайте разберем каждую часть кода. Начнем с обычного оператора Dim, в котором мы объявляем переменные.

В этом случае у нас есть только 1 переменная — ws для рабочего листа. Затем отключаем обновление экрана.

Теперь в цикле FOR мы перебираем каждый лист в книге, который содержит макрос. И мы настраиваем каждый параметр в Настройках страницы. & P, & N, & D, & T, & F и & A — это определенные коды формата, которые могут применяться к верхним и нижним колонтитулам. & P печатает номер страницы. & N печатает общее количество страниц в документе. & D печатает текущую дату. & T печатает текущее время. & F печатает имя документа, а & A печатает имя вкладки книги.

В конце мы обнуляем рабочий лист, освобождаем объект и включаем обновление экрана.

Вот 2 картинки. Первый ^ один показывает заголовок, а второй ^ нижний колонтитул после запуска макроса.

img1

Заголовок имеет метку Название компании. Название еще не введено, поскольку мы не связали его ни с одной ячейкой и не добавили текст для названия компании. Если вы введете что-либо в код или в таблицу Excel и укажете на это, имя будет выбрано и заполнено здесь.

Страница № из 0 показывает, что в настоящее время у нас 0 страниц в файле, поскольку мы запустили этот код для пустого файла. Если вы запустите этот код для файла, содержащего данные, он покажет вам номер страницы.

Напечатано <Дата> <Время> указывает дату и время выполнения макроса вместе с текстом «Напечатано».

img2

В нижнем колонтитуле метка Path покажет вам путь к текущему файлу.

Наше имя файла — Book1.xlsx, который в настоящее время является несохраненным файлом. Следовательно, для метки Path не отображается путь.

Номер листа указан справа от нижнего колонтитула.

Если вам понравились наши блоги, поделитесь ими с друзьями на Facebook. А также вы можете подписаться на нас в Twitter и Facebook .

Мы будем рады услышать от вас, сообщите нам, как мы можем улучшить, дополнить или усовершенствовать нашу работу и сделать ее лучше для вас. Напишите нам на [email protected]