Conas macra a reáchtáil ag an am céanna ar fud iliomad comhad leabhar oibre?

An t-alt seo, labhróidh mé faoi conas macra a reáchtáil ar fud iliomad comhad leabhar oibre ag an am céanna gan iad a oscailt. Is féidir leis an modh seo a leanas cabhrú leat an tasc seo a réiteach in Excel.

Rith macra ag an am céanna ar fud iliomad leabhar oibre le cód VBA

Rith macra ag an am céanna ar fud iliomad leabhar oibre le cód VBA

Chun macra a reáchtáil ar fud iliomad leabhar oibre gan iad a oscailt, cuir an cód VBA seo a leanas i bhfeidhm:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an macra seo a leanas sa Modúil Fuinneog.

Cód VBA: Rith an macra céanna ar iliomad leabhar oibre ag an am céanna:

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

nótaí: Sa chód thuas, cóipeáil agus greamaigh do chód féin gan an Fo ceannteideal agus Fo Deireadh buntásc idir an Le Leabhair Oibre.Open (xFdItem & xFileName) agus Deireadh Le scripteanna. Féach an pictiúr:

3. Ansin brúigh F5 eochair chun an cód seo a fhorghníomhú, agus a Brabhsáil taispeántar an fhuinneog, roghnaigh fillteán le do thoil ina bhfuil na leabhair oibre a theastaíonn uait go léir an macra seo a chur i bhfeidhm, féach an scáileán:

4. Agus ansin cliceáil OK cnaipe, déanfar an macra atá ag teastáil a fhorghníomhú ag an am céanna ó leabhar oibre amháin go leabhar eile.