Hvordan åbner jeg hurtigt alle Excel-filer fra en mappe?
I denne artikel introducerer jeg makroen for at åbne alle projektmapper fra en bestemt mappe.
Åbn alle projektmapper i en mappe med VBA
Liste over alle filnavne på en bestemt mappe med Kutools til Excel
Åbn alle projektmapper i en mappe med VBA
1. Trykke Alt + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler, og indsæt koden under scriptet.
VBA: Åbn alle Excel-filer i en mappe
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. Trykke F5 nøgle, vises der en dialogboks til valg af en mappe, du vil åbne alle projektmapper i den. Se skærmbillede:
4. klik OK, og alle projektmapper i den specifikke mappe er blevet åbnet.
Liste over alle filnavne på en bestemt mappe med Kutools til Excel
Har du nogensinde prøvet at liste alle filnavne på en bestemt mappe undtagen for at åbne filer i en mappe? Med Kutools til Excel's Liste over filnavne hjælpeprogram, kan du hurtigt liste alle typer eller en bestemt type filer i en mappe.
Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. |
Efter gratis installation Kutools til Excel, gør venligst som nedenfor:
1. klik Kutools Plus > Import Eksport > Liste over filnavne. Se skærmbillede:
2. i Liste over filnavne i dialogboksen, skal du vælge en mappe, som du vil liste filer fra, angive den filtype, du vil liste, og angiv derefter den enhed af filstørrelsen, som du har brug for. Hvis du vil, kan du oprette hyperlinks til de filnavne, der vises. Se skærmbillede:
3. klik Ok, og alle filer i den specifikke mappe er opført på et nyt ark i den aktive projektmappe. Se skærmbillede:
Liste over alle filnavne på en mappe
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!