Sut i redeg macro ar yr un pryd ar draws sawl ffeil llyfr gwaith?
Yr erthygl hon, byddaf yn siarad am sut i redeg macro ar draws ffeiliau llyfr gwaith lluosog ar yr un pryd heb eu hagor. Gall y dull canlynol eich helpu i ddatrys y dasg hon yn Excel.
Rhedeg macro ar yr un pryd ar draws nifer o lyfrau gwaith gyda chod VBA
Rhedeg macro ar yr un pryd ar draws nifer o lyfrau gwaith gyda chod VBA
I redeg macro ar draws nifer o lyfrau gwaith heb eu hagor, cymhwyswch y cod VBA canlynol:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Modiwlau Ffenestr.
Cod VBA: Rhedeg yr un macro ar lyfrau gwaith lluosog ar yr un pryd:
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
Nodyn: Yn y cod uchod, copïwch a gludwch eich cod eich hun heb y is pennawd a Is-End troedyn rhwng y Gyda Workbooks.Open (xFdItem & xFileName) ac Diwedd Gyda sgriptiau. Gweler y screenshot:
3. Yna pwyswch F5 allwedd i weithredu'r cod hwn, ac a Pori ffenestr yn cael ei harddangos, dewiswch ffolder sy'n cynnwys y llyfrau gwaith rydych chi am i bob un ohonynt gymhwyso'r macro hwn, gweler y screenshot:
4. Ac yna cliciwch OK botwm, bydd y macro a ddymunir yn cael ei weithredu ar unwaith o un llyfr gwaith i eraill.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!