Как да стартирате макрос едновременно в множество файлове на работна книга?
В тази статия ще говоря за това как да стартирате макрос в множество файлове на работна книга едновременно, без да ги отваряте. Следният метод може да ви помогне да решите тази задача в Excel.
Стартирайте макрос едновременно в множество работни книги с VBA код
Стартирайте макрос едновременно в множество работни книги с VBA код
За да стартирате макрос в множество работни книги, без да ги отваряте, моля, приложете следния VBA код:
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния макрос в Модули Window.
VBA код: Изпълнете един и същ макрос на множество работни книги едновременно:
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem As Variant
Dim xFileName As String
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
If xFd.Show = -1 Then
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Do While xFileName <> ""
With Workbooks.Open(xFdItem & xFileName)
'your code here
End With
xFileName = Dir
Loop
End If
End Sub
Забележка: В горния код, моля, копирайте и поставете своя собствен код без Под заглавие и End Sub долен колонтитул между С Workbooks.Open(xFdItem & xFileName) намлява Край с скриптове. Вижте екранна снимка:
3. След това натиснете F5 ключ за изпълнение на този код и a паса се показва прозорец, моля, изберете папка, която съдържа работните книги, към които искате да приложите този макрос, вижте екранната снимка:
4. И после щракнете върху OK бутон, желаният макрос ще бъде изпълнен наведнъж от една работна книга в други.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!