Una macro de Excel para imprimir todos los libros en un directorio

Si necesita imprimir desde varios libros de Excel en un directorio, puede utilizar la macro presentado aquí para imprimir todos a la vez.

Cómo funciona el macro

En esta macro, se utiliza la función Dir para devolver una cadena que representa el nombre del archivo que coincida con lo que pasa a ella.

Se utiliza la función Dir para enumerar todos los archivos .xlsx en un directorio dado, capturando el nombre de cada archivo. Luego de abrir cada archivo, imprimirlo, y luego cerrarlo.

Sub Macro1 () 'Paso 1: Declare sus MyFiles variablesDim Como String'Step 2: Especifique un directoryMyFiles objetivo = Dir ("C:. Temp * xlsx") Do While MyFiles lt;> "" "Paso 3: Abrir libros de trabajo, uno por oneWorkbooks.Open" C: Temp " MyFilesActiveWorkbook.Sheets ("Sheet1") Copias Texto:. = 1ActiveWorkbook.Close SaveChanges: = False'Step 4: Siguiente archivo en los directoryMyFiles = DirLoopEnd Sub

Paso 1 declara la variable MyFiles String que capturará cada nombre de archivo en la enumeración.

Paso 2 utiliza la función Dir para especificar el tipo de directorio y el archivo que busca. Tenga en cuenta que el código está buscando * .xlsx, por lo que sólo XLSX archivos se bucle a través. Si desea buscar archivos .xls, tendrá que especificar que (junto con el directorio que es necesario buscar). La macro pasa cualquier nombre de archivo que encuentra a la variable MyFiles String.

Paso 3 abre el archivo y luego imprime una copia de Sheet1. Ni que decir tiene, es probable que desee cambiar, que las hojas para imprimir. También puede cambiar el número de copias que desea imprimir.

Paso 4 vuelve al encontrar más archivos. Si no hay más archivos, la variable MyFiles está en blanco y el bucle y el extremo macro.

Cómo utilizar la macro

Para implementar esta macro, puede copiar y pegarlo en un módulo estándar:

  1. Activar el Editor de Visual Basic presionando Alt + F11.

  2. derecha, haga clic en el nombre del proyecto / libro en la ventana del proyecto.

  3. Seleccione Insertar-Module.

  4. Escriba o pegue el código en el módulo de nueva creación, la modificación de la declaración de impresión según sea necesario.




» » » » Una macro de Excel para imprimir todos los libros en un directorio