Hogyan lehet gyorsan megnyitni az összes Excel fájlt egy mappából?
Ebben a cikkben bemutatom a makrót, amely megnyitja az összes munkafüzetet egy adott mappából.
Nyissa meg az összes munkafüzetet egy VBA mappában
Sorolja fel egy adott mappa összes fájlnevét a Kutools for Excel segítségével 
Nyissa meg az összes munkafüzetet egy VBA mappában
1. nyomja meg Alt + F11 gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablak.
2. kettyenés betétlap > Modulok, és illessze be a kód alatt a szkriptbe.
VBA: Nyissa meg az összes Excel fájlt egy mappában
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. nyomja meg F5 gombot, megjelenik egy párbeszédpanel annak a mappának a kiválasztásához, amelyen belül megnyitja az összes munkafüzetet. Lásd a képernyőképet:
4. kettyenés OK, és az adott mappában található összes munkafüzet megnyílt.
Sorolja fel egy adott mappa összes fájlnevét a Kutools for Excel segítségével
Megpróbálta már felsorolni egy mappa összes fájlnevét, kivéve a fájlok megnyitását egy mappában? Val vel Kutools az Excel számára'S Fájlnév lista segédprogram segítségével gyorsan felsorolhat minden fájltípust vagy egy bizonyos típusú fájlt egy mappába.
| Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. |
Után ingyenes telepítés Kutools for Excel, kérjük, tegye a következőket:
1. kettyenés Kutools Plus > Import Export > Fájlnév lista. Lásd a képernyőképet:
2. Ban,-ben Fájlnév lista párbeszédpanelen válassza ki a mappát, amelyből fájlokat szeretne felsorolni, adja meg a felsorolni kívánt fájltípust, majd adja meg a kívánt fájlméret mértékegységét. Ha akar, létrehozhat hiperhivatkozásokat a felsorolásra kerülő fájlnevekre. Lásd a képernyőképet:
3. kettyenés Ok, és az adott mappában található összes fájl fel lett sorolva az aktív munkafüzet új lapján. Lásd a képernyőképet:
Sorolja fel egy mappa összes fájlnevét
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
