Si necessiteu imprimir des de diversos llibres de treball d'Excel en un directori, podeu utilitzar la macro que es presenta aquí per imprimir-los tots alhora.
Com funciona la macro
En aquesta macro, utilitzeu la funció Dir per retornar una cadena que representa el nom del fitxer que coincideix amb el que li passeu.
Utilitzeu la funció Dir per enumerar tots els fitxers .xlsx d'un directori determinat, capturant el nom de cada fitxer. A continuació, obriu cada fitxer, l'imprimiu i després el tanqueu.
Sub macro1()
"Pas 1: declara les teves variables
Atenua MyFiles com a cadena
"Pas 2: especifiqueu un directori de destinació
Els meus fitxers = Dir("C:Temp*.xlsx")
Fes mentre Els meus fitxers <> "
"Pas 3: obriu els llibres de treball un per un
Llibres de treball. Obriu "C:Temp" i MyFiles