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.
| Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. |
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
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
