В тази статия ще създадем макрос за отпечатване на всички файлове на Excel в папка.
Имаме някои Excel файлове в папка, които искаме да отпечатаме. Всички те имат едно и също разширение на файла „.xlsx“
Обяснение на кода
Dir (TargetFolder & FileFilter)
Горният код се използва за получаване на името на файла на първия файл в пътя на папката.
Работни книги. Отворете TargetFolder & FileName
Горният код се използва за отваряне на определената работна книга.
ActiveWorkbook.PrintOut
Горният код се използва за отпечатване на активната работна книга.
Моля, следвайте кода по -долу
Опция Explicit Sub PrintAllWorkbooksInFolder (TargetFolder As String, FileFilter As String) 'Деклариране на променлива Dim FileName като String' Деактивиране на актуализации на екрана Application.ScreenUpdating = False 'Добавяне на разделител на пътя в края на името на целевата папка If Right (TargetFolder, 1) "\" Тогава TargetFolder = TargetFolder & "\" Край Ако 'Присвояване на път по подразбиране към филтър на файл Ако FileFilter = "" Тогава FileFilter = "*.xls"' Вземете името на файла на първия файл в папката FileName = Dir (TargetFolder & FileFilter) Докато Len (FileName)> 0 If FileName ThisWorkbook.Name Тогава „Отваряне на работните книги на работната книга. следващ файл в папката FileName = Dir Wend End Sub Sub CallingProcedure () 'Деклариране на променливи Dim FolderPath, FileName As String' Получаване на стойности от текстово поле на лист1 FolderPath = Sheet1.TextBox1.Value FileName = Sheet1.TextB ox2.Value 'Извикване PrintAllWorkbooksInFolder процедура PrintAllWorkbooksInFolder FolderPath, FileName End Sub
Ако този блог ви е харесал, споделете го с приятелите си във Facebook. Също така можете да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим работата си и да я направим по -добра за вас. Пишете ни на имейл сайта