If det er flere filer som du ønsker å endre navn, først, kan du liste opp de gamle filnavnene i en kolonne med regneark, og deretter inn de nye filnavn som du ønsker å erstatte med. Hvis du raskt vil liste opp alle filene i regnearket, kan du bruke Kutools for Excel Name List utility
Kutools for Excel. Med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Få det nå . Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Etter installering Kutools for Excel, kan du gjøre som følger :( Gratis Last ned Kutools for Excel nå)
1. Klikk Enterprise > Import /Export > Filnavn listen, se skjermbilde:
to. I Filnavn List dialogboksen, klikker du knappen for å velge filen mappen du ønsker å vise filene, og deretter klikker du Alle filer fra filer type, se skjermbilde:
tre. Klikk deretter på OK-knappen, har alle filnavnene vært listen i en kolonne med et nytt regneark, samt noen attributter, og nå kan du slette andre uønskede kolonner og bare la Filnavn-kolonnen, se skjermbilde:
Klikk for å vite mer om dette Name List funksjonen ...
Gratis Last ned Kutools for Excel Nå
Gi nytt navn til flere filer i en mappe i Excel med VBA kode
Etter notering alle originale filnavn i en kolonne A , og du skal skrive nye filnavn i kolonne B som følgende skjermbilde vises:
Og her vil jeg snakke om en VBA-kode som kan hjelpe deg til å erstatte de gamle filnavn med de nye filnavn på en gang. Vennligst gjøre med følgende:
1. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications Window.
2. Klikk Sett > Modul, og lim inn følgende makroen i modulen vindu
VBA-kode. Rename flere filer i en mappe
Sub RenameFiles () 'Updateby20141124Dim xDir Som StringDim Xfile Som StringDim xRow Som LongWith Application.FileDialog (msoFileDialogFolderPicker) .AllowMultiSelect = FalseIf .Show = -1 Så xDir = .SelectedItems (1) Xfile = Dir (xDir & Application.PathSeparator & "*") Gjør Inntil Xfile = "" xRow = 0 On Error Resume Neste xRow = Application.Match ( Xfile, Range ("A: A"), 0) Hvis xRow > 0 Then navn xDir & Application.PathSeparator & Xfile Som _ xDir & Application.PathSeparator & Celler (xRow, "B"). Verdi End If Xfile = Dir LoopEnd IfEnd WithEnd Sub3. Når du har limt inn koden, trykk F5 for å kjøre denne koden, og i Bla gjennom vinduet, velg mappen du vil endre filnavn i, se skjermbilde:
4. Og klikk deretter på OK, alle de gamle filnavnene har blitt erstattet av den nye filnavn umiddelbart. Se skjermbilder:
Merknader:
1. Når du listen din gamle og nye filnavn, må filendelsen bli inkludert.
2. I koden ovenfor, referanse A: A indikerer de gamle filnavnene listen du vil endre navn, og referanse B inneholder de nye filnavn som du vil bruke, kan du endre dem som trenger din Anmeldelser
Datamaskin læring 