Kako preimenovati več datotek v mapi v Excelu?
Morda večina izmed nas trpi zaradi te težave, da moramo v mapi preimenovati več datotek, če jih bomo preimenovali eno za drugo, nas bo ponorelo, če bo v tej mapi na stotine ali tisoče datotek. Ali obstajajo dobre funkcije za reševanje te naloge?
V delovnem listu s kutools za Excel navedite vsa imena datotek iz določene mape
Preimenujte več datotek v mapi v Excelu s kodo VBA
V delovnem listu s kutools za Excel navedite vsa imena datotek iz določene mape
Če želite preimenovati več datotek, lahko najprej v stolpec delovnega lista navedete stara imena datotek in nato vnesete nova imena datotek, s katerimi želite nadomestiti. Za hiter seznam vseh datotek na delovnem listu lahko uporabite Kutools za ExcelJe Seznam imen datotek uporabnost.
Po namestitvi Kutools za Excel, naredite naslednje :( Brezplačno prenesite Kutools za Excel zdaj )
1. Kliknite Kutools Plus > Uvozno-izvoznih > Seznam imen datotek, glej posnetek zaslona:
2. v Seznam imen datotek pogovorno okno, kliknite , da izberete mapo z datotekami, v katero želite dodati datoteke, in kliknite Vse datoteke Iz Vrsta datotek, glej posnetek zaslona:
3. Nato kliknite OK , so vsa imena datotek navedena v stolpcu novega delovnega lista, pa tudi nekateri atributi datotek, zdaj pa lahko izbrišete druge neželene stolpce in pustite le Ime datoteke stolpec, glej posnetek zaslona:
Kliknite, če želite izvedeti več o tej funkciji seznama datotek ...
Brezplačno prenesite Kutools za Excel zdaj
Preimenujte več datotek v mapi v Excelu s kodo VBA
Ko navedete vsa izvirna imena datotek v enem stolpcu A, v stolpec B vnesite nova imena datotek, kot je prikazano na sliki spodaj:
Tukaj bom govoril o kodi VBA, ki vam lahko pomaga, da hkrati zamenjate stara imena datotek z novimi. Naredite naslednje:
1. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic za aplikacije.
2. Kliknite Vstavi > Moduliin v mapo prilepite naslednji makro Okno modula.
Koda VBA: Preimenujte več datotek v mapi
Sub RenameFiles()
'Updateby20141124
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show = -1 Then
xDir = .SelectedItems(1)
xFile = Dir(xDir & Application.PathSeparator & "*")
Do Until xFile = ""
xRow = 0
On Error Resume Next
xRow = Application.Match(xFile, Range("A:A"), 0)
If xRow > 0 Then
Name xDir & Application.PathSeparator & xFile As _
xDir & Application.PathSeparator & Cells(xRow, "B").Value
End If
xFile = Dir
Loop
End If
End With
End Sub
3. Po lepljenju kode pritisnite F5 ključ za zagon te kode in v Brskanje izberite mapo, v katero želite spremeniti imena datotek, glejte posnetek zaslona:
4. In nato kliknite OK, so vsa stara imena datotek takoj zamenjala nova. Oglejte si posnetke zaslona:
Opombe:
1. Ko navedete stara in nova imena datotek, mora biti vključena pripona datoteke.
2. V zgornji kodi sklic A: A označuje stari seznam imen datotek, ki ga želite preimenovati, in sklic B vsebuje nova imena datotek, ki jih želite uporabiti, jih lahko po potrebi spremenite
Predstavitev: v Excelu preimenujte več datotek v mapi
Sorodni članki:
Kako ustvariti delovne liste zaporedja iz vrste celic v Excelu?
Kako preimenovati več delovnih listov v Excelu?
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!