Kako hitro odpreti vse datoteke Excel iz mape?

V tem članku predstavljam makro za odpiranje vseh delovnih zvezkov iz določene mape.

Odprite vse delovne zvezke v mapi z VBA

V programu Kutools za Excel navedite vsa imena datotek v določeni mapi

Odprite vse delovne zvezke v mapi z VBA

1. Pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduliin prilepite spodnjo kodo v skript.

VBA: Odprite vse datoteke Excel v mapi

Sub OpenFiles()
'UpdateByExtendoffice20160623
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    xFile = Dir(xStrPath & "\*.xlsx")
    Do While xFile <> ""
        Workbooks.Open xStrPath & "\" & xFile
        xFile = Dir
    Loop
End Sub

3. Pritisnite F5 , odpre se pogovorno okno za izbiro mape, v kateri želite odpreti vse delovne zvezke v njej. Oglejte si posnetek zaslona:

4. klik OKin odprli so se vsi delovni zvezki v določeni mapi.

V programu Kutools za Excel navedite vsa imena datotek v določeni mapi

Ali ste kdaj, razen odpiranja datotek v mapi, poskušali našteti vsa imena datotek v določeni mapi? S Kutools za ExcelJe Seznam imen datotek pripomoček, lahko v eno mapo hitro naštejete vse vrste ali določeno vrsto datotek.

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. klik Kutools Plus > Uvozno-izvoznih > Seznam imen datotek. Oglejte si posnetek zaslona:

2. V Ljubljani Seznam imen datotek v pogovornem oknu izberite mapo, iz katere želite seznam datotek, določite vrsto datoteke, ki jo želite dodati, in nato določite enoto velikosti datoteke, kot jo potrebujete. Če želite, lahko ustvarite hiperpovezave do imen datotek, ki bodo navedene. Oglejte si posnetek zaslona:

3. klik Ok, in vse datoteke v določeni mapi so bile navedene na novem listu aktivnega delovnega zvezka. Oglejte si posnetek zaslona:

  Seznam vseh imen datotek v mapi