Cum se execută o macrocomandă în același timp pe mai multe fișiere din registrul de lucru?
În acest articol, voi vorbi despre cum să rulați o macro pe mai multe fișiere din registrul de lucru în același timp, fără a le deschide. Următoarea metodă vă poate ajuta să rezolvați această sarcină în Excel.
Rulați o macrocomandă la fel în mai multe registre de lucru cu cod VBA
Rulați o macrocomandă la fel în mai multe registre de lucru cu cod VBA
Pentru a rula o macro pe mai multe registre de lucru fără a le deschide, vă rugăm să aplicați următorul cod VBA:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următoarea macro în fișierul Module Fereastră.
Cod VBA: Rulați aceeași macro pe mai multe registre de lucru în același timp:
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
notițe: În codul de mai sus, vă rugăm să copiați și să lipiți propriul cod fără Sub îndreptare și End Sub subsol între Cu Workbooks.Open (xFdItem & xFileName) și Se termina cu scripturi. Vedeți captura de ecran:
3. Apoi apăsați F5 tasta pentru a executa acest cod și a Naviga fereastra este afișată, selectați un folder care conține registrele de lucru pe care doriți să le aplicați tuturor acestei macrocomenzi, consultați captura de ecran:
4. Apoi faceți clic pe OK butonul, macrocomanda dorită va fi executată simultan de la un registru de lucru la altele.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!