Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako preimenovati več datotek v mapi v Excelu?

Morda je večina od nas utrpela s to težavo, da moramo preimenovati več datotek v mapo, da bomo preimenovali imena datotek enega po enega, da bosta nora, če v njej obstaja več sto ali tisoč datotek. Ali imamo kakšno dobro funkcijo, da se lotimo te naloge?

Navedite vsa imena datotek iz določene mape v delovnem listu s kutools za Excel

Preimenujte več datotek v mapi v Excelu s kodo VBA



Če je več datotek, ki jih želite preimenovati, lahko najprej navedete imena starih datotek v stolpcu delovnega lista in nato vnesite nova imena datotek, ki jih želite zamenjati. Če želite hitro listirati vse datoteke v delovnem listu, lahko uporabite Kutools za ExcelJe Seznam datotek uporabnost.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

Po namestitvi Kutools za Excel, prosimo, naredite naslednje :( Brezplačno prenesete Kutools za Excel Now )

1. Kliknite Podjetje > Uvozno-izvoznih > Seznam datotek, si oglejte sliko zaslona:

doc-preimenovati-več-datotek-1

2. v Seznam datotek pogovorno okno, kliknite doc-preimenovati-več-datotek-1 gumb, da izberete mapo datotek, v katero želite dodati datoteke, in kliknite Vse datoteke Iz Vrsta datoteke, si oglejte sliko zaslona:

doc-preimenovati-več-datotek-1

3. Nato kliknite OK gumb, so vsa imena datotek v stolpcu novega delovnega lista, pa tudi nekaterih atributov datoteke, zdaj pa lahko izbrišete še druge nezaželene stolpce in pustite samo Ime datoteke stolpec, si oglejte sliko zaslona:

doc-preimenovati-več-datotek-1

Kliknite, če želite izvedeti več o tej funkciji seznama datotek ...

Brezplačno prenesete Kutools za Excel Now


Po navedbi vseh prvotnih imen datotek v enem stolpcu A in vnesite nova imena datotek v stolpcu B, kot je prikazan spodnji sliki:

doc-preimenovati-več-datotek-1

In tukaj bom govoril o kodi VBA, ki vam lahko pomagajo zamenjati stare datoteke z novimi imeni datotek hkrati. Upoštevajte naslednje korake:

1. Drži dol ALT + F11 tipke in odpre Okno Microsoft Visual Basic za aplikacije.

2. Kliknite Vstavi > Moduliin prilepite naslednji makro v Okno modula.

VBA koda: preimenovati 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 okno, izberite mapo, v katero želite spremeniti imena datotek, si oglejte sliko zaslona:

doc-preimenovati-več-datotek-1

4. In nato kliknite OK, so vsa stara imena datotek takoj zamenjala nova imena datotek. Oglejte si posnetke zaslona:

doc-preimenovati-več-datotek-1  2 doc-preimenovati-več-datotek-1

Opombe:

1. Ko navedete staro in novo ime datoteke, mora biti razširitev datoteke vključena.

2. V zgornjem kodu, sklicevanje A: A označuje stari seznam imen datotek, ki ga želite preimenovati, in sklicevanje B vsebuje nova imena datotek, ki jih želite uporabiti, jih lahko spremenite kot svojo potrebo


Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!


Sorodni članki:

Kako ustvariti zaporedne preglednice iz vrste celic v Excelu?

Kako preimenovati več delovnih listov v Excelu?



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ali · 17 days ago
    Hi there
    It does not work with unicode file names. How can it be done fine?
  • To post as a guest, your comment is unpublished.
    Jayakumar · 8 months ago
    Hi,

    I'm trying to use the code for renaming the non extension files to files with extension. it doesn't work. It works fine with files which have extension already.

    Thanks
    Jay
  • To post as a guest, your comment is unpublished.
    cda · 8 months ago
    Thank you so much...
  • To post as a guest, your comment is unpublished.
    Gee Kay · 11 months ago
    Hello, some of the files have same name. Scripts skip those files. Is there a way to modify the script so it adds a number 1, 2, 3 and so on for every duplicate name?
    • To post as a guest, your comment is unpublished.
      skyyang · 11 months ago
      Hello, Kay,
      To rename the files based on duplicate new names with name-1,name-2, the following VBA code may help you, please try it.

      Note: After pasting this code, you should reference the Microsoft Scripting Runtime option in the References-VBAProject dialog box as below screenshot shown.

      Sub RenameFiles()
      Dim xDir As String
      Dim xFile As String
      Dim xVal As String
      Dim xRow As Long
      Dim xCount As Long
      Dim xTemp As Long
      Dim xDictionary As New Dictionary
      Application.ScreenUpdating = False
      On Error Resume Next
      With Application.FileDialog(msoFileDialogFolderPicker)
      .AllowMultiSelect = False
      If .Show = -1 Then
      xDir = .SelectedItems(1)
      xFile = Dir(xDir & Application.PathSeparator & "*")
      Do Until xFile = ""
      xRow = 0
      xRow = Application.Match(xFile, Range("A:A"), 0)
      If xRow > 0 Then
      xCount = 0
      xVal = Cells(xRow, "B").Value
      If Not xDictionary.Exists(xVal) Then
      xDictionary.Add xVal, xCount
      Else
      xDictionary.Item(xVal) = xDictionary.Item(xVal) + 1
      xTemp = InStrRev(xVal, ".")
      Cells(xRow, "B").Value = Mid(xVal, 1, xTemp - 1) & "-" & CStr(xDictionary.Item(xVal)) & Mid(xVal, xTemp)
      End If
      Name xDir & Application.PathSeparator & xFile As _
      xDir & Application.PathSeparator & Cells(xRow, "B").Value
      End If
      xFile = Dir
      Loop
      End If
      End With
      Application.ScreenUpdating = True
      End Sub
  • To post as a guest, your comment is unpublished.
    Hemant · 1 years ago
    I am following the same process but couldn't succeeded in renaming the file i am also changing ("A:A") and ("B"). Is there any other valuve which i need to change in the code