Si desea insertar cierta información en el encabezado / pie de página de la hoja de trabajo, como el nombre del archivo / ruta del archivo o la fecha actual o el número de página, puede hacerlo usando el siguiente código. Si es solo una hoja de trabajo, puede hacerlo manualmente, pero si son varias hojas o todas las hojas del libro de trabajo las que necesitan que se complete esta información, puede hacerlo usando una macro / código vba simple .

Esta macro de muestra insertará un encabezado / pie de página en cada hoja de trabajo del libro activo. También insertará la ruta completa al libro de trabajo.

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

Para copiar este código en su libro de trabajo, presione Alt + F11 en su teclado.

Luego, en el lado izquierdo, verá Objetos de Microsoft Excel. Haga clic derecho y seleccione Insertar. Luego haga clic en Módulo y copie este código en la ventana de código a la derecha.

Dividamos cada parte del código: comenzamos con la declaración Dim habitual en la que declaramos las variables.

En este caso, solo tenemos 1 variable: ws para la hoja de trabajo. Luego deshabilitamos la actualización de la pantalla.

Ahora, en el ciclo FOR, recorremos cada hoja de trabajo del libro de trabajo que contiene la macro. Y configuramos cada parámetro en Configuración de página. & P, & N, & D, & T, & F y & A son ciertos códigos de formato que se pueden aplicar a encabezados y pies de página. & P imprime el número de página. & N imprime el número total de páginas del documento. & D imprime la fecha actual. & T imprime la hora actual. & F imprime el nombre del documento y & A imprime el nombre de la pestaña del libro.

Al final, configuramos la hoja de trabajo en cero, liberamos el objeto y habilitamos la actualización de la pantalla.

Aquí hay 2 imágenes. El 1 ^ st ^ le muestra el encabezado y el 2 ^ nd ^ el pie de página después de que se haya ejecutado la macro.

img1

El encabezado tiene la etiqueta Nombre de la empresa. El nombre aún no se ingresó ya que no lo hemos vinculado a ninguna celda ni incluido ningún texto para el nombre de la empresa. Si ingresa algo en el código o en la hoja de Excel y lo hace referencia, entonces el nombre se recogerá y completará aquí.

Página # de 0 muestra que actualmente tenemos 0 páginas en el archivo, ya que hemos ejecutado este código en un archivo en blanco. Si ejecuta este código en un archivo que contiene datos, le mostrará el número de página.

Printed <Fecha> <Hora> le da la fecha y hora en que se ejecutó la macro junto con el texto «Impreso».

img2

En el pie de página, la etiqueta Ruta le mostrará la ruta del archivo actual.

Nuestro nombre de archivo es Book1.xlsx, que actualmente es un archivo sin guardar. Por lo tanto, no se muestra ninguna ruta para la etiqueta Ruta.

El número de hoja se completa a la derecha del pie de página.

Si te gustaron nuestros blogs, compártelo con tus amigos en Facebook. Y también puedes seguirnos en Twitter y Facebook.

Nos encantaría saber de usted, háganos saber cómo podemos mejorar, complementar o innovar nuestro trabajo y hacerlo mejor para usted. Escríbanos a [email protected]