Hoe snel alle Excel-bestanden openen vanuit een map?
In dit artikel introduceer ik de macro om alle werkmappen vanuit een specifieke map te openen.
Open alle werkmappen in een map met VBA
Maak een lijst van alle bestandsnamen van een specifieke map met Kutools voor Excel
Open alle werkmappen in een map met VBA
1. druk op Alt + F11 sleutels om te openen Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Moduleen plak onderstaande code in het script.
VBA: open alle Excel-bestanden in een map
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. druk op F5 key, verschijnt er een dialoogvenster voor het selecteren van een map waarin u alle werkmappen erin wilt openen. Zie screenshot:
4. klikken OK, en alle werkmappen in de specifieke map zijn geopend.
Maak een lijst van alle bestandsnamen van een specifieke map met Kutools voor Excel
Heeft u, behalve om bestanden in een map te openen, ooit geprobeerd alle bestandsnamen van een specifieke map weer te geven? Met Kutools for Excel's Bestandsnaam lijst hulpprogramma, kunt u snel alle typen of een specifiek type bestanden in één map weergeven.
Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. |
Na gratis installeren Kutools voor Excel, doe het als volgt:
1. klikken Koetools Plus > Importeren en exporteren > Bestandsnaam lijst. Zie screenshot:
2. In de Bestandsnaam lijst dialoogvenster, selecteer een map waaruit u bestanden wilt weergeven, specificeer het bestandstype dat u wilt weergeven en specificeer vervolgens de eenheid van de bestandsgrootte die u nodig hebt. Als u wilt, kunt u hyperlinks maken naar de bestandsnamen die worden weergegeven. Zie screenshot:
3. klikken Ok, en alle bestanden in de specifieke map zijn weergegeven in een nieuw blad van de actieve werkmap. Zie screenshot:
Lijst met alle bestandsnamen van een map
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!