Jak přejmenovat více souborů složky v aplikaci Excel?
Možná většina z nás trpí tímto problémem, že musíme přejmenovat více souborů ve složce, přejmenovat jeden po druhém nás bude bláznit, pokud v této složce budou stovky nebo tisíce souborů. Existují pro nás nějaké dobré funkce, abychom tento úkol zvládli?
Seznam všech názvů souborů z konkrétní složky v listu pomocí programu kutools pro Excel
Přejmenujte více souborů složky v aplikaci Excel pomocí kódu VBA
Seznam všech názvů souborů z konkrétní složky v listu pomocí programu kutools pro Excel
Pokud existuje více souborů, které chcete přejmenovat, můžete nejprve ve sloupci listu vypsat staré názvy souborů a poté zadat nové názvy souborů, které chcete nahradit. Chcete-li rychle zobrazit seznam všech souborů v listu, můžete použít Kutools pro ExcelJe Seznam názvů souborů utilita.
Po instalaci Kutools pro Excel, postupujte následovně :( Zdarma ke stažení Kutools pro Excel )
1, klikněte Kutools Plus > Import Export > Seznam názvů souborů, viz screenshot:
2. V Seznam názvů souborů , klepněte na tlačítko OK Klepnutím na tlačítko vyberte složku se soubory, které chcete zobrazit, a potom klepněte na tlačítko Všechny soubory z Typ souboru, viz screenshot:
3. Pak klikněte na tlačítko OK tlačítko, všechny názvy souborů byly uvedeny ve sloupci nového listu, stejně jako některé atributy souborů, a nyní můžete odstranit další nežádoucí sloupce a ponechat pouze Název souboru sloupec, viz screenshot:
Kliknutím se dozvíte více o této funkci Seznam názvů souborů ...
Zdarma ke stažení Kutools pro Excel
Přejmenujte více souborů složky v aplikaci Excel pomocí kódu VBA
Po vypsání všech původních názvů souborů do jednoho sloupce A byste měli zadat nové názvy souborů do sloupce B jako následující snímek obrazovky:
A tady budu mluvit o kódu VBA, který vám může pomoci nahradit staré názvy souborů novými názvy najednou. Proveďte prosím následující kroky:
1. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.
2, klikněte Vložit > Modula vložte následující makro do souboru Okno modulu.
Kód VBA: Přejmenujte více souborů ve složce
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 vložení kódu stiskněte F5 klíč ke spuštění tohoto kódu a v Procházet v okně vyberte složku, ve které chcete změnit názvy souborů, viz screenshot:
4. A pak klikněte na tlačítko OK, všechny staré názvy souborů byly okamžitě nahrazeny novými názvy souborů. Zobrazit snímky obrazovky:
Poznámky:
1. Když vypisujete své staré a nové názvy souborů, musí být zahrnuta přípona souboru.
2. Ve výše uvedeném kódu odkaz A: označuje starý seznam názvů souborů, který chcete přejmenovat, a odkaz B obsahuje nové názvy souborů, které chcete použít, můžete je podle potřeby změnit
Ukázka: Přejmenujte více souborů složky v aplikaci Excel
Související články:
Jak vytvořit pracovní listy sekvence z řady buněk v aplikaci Excel?
Jak přejmenovat více listů v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!