Nëse keni nevojë të printoni nga shumë libra të Excel-it në një direktori, mund të përdorni makron e paraqitur këtu për t'i printuar të gjithë menjëherë.
Si funksionon makroja
Në këtë makro, ju përdorni funksionin Dir për të kthyer një varg që përfaqëson emrin e skedarit që përputhet me atë që i kaloni.
Ju përdorni funksionin Dir për të numëruar të gjithë skedarët .xlsx në një direktori të caktuar, duke kapur emrin e secilit skedar. Pastaj hapni çdo skedar, printoni dhe mbyllni.
Nën makro1()
'Hapi 1: Deklaroni variablat tuaja
Dim My Files si varg
'Hapi 2: Specifikoni një direktori të synuar
MyFiles = Dir("C:Temp*.xlsx")
Bëj ndërsa MyFiles <> "
'Hapi 3: Hapni librat e punës një nga një
Librat e punës.Hapni "C:Temp" & MyFiles