{"id":1646,"date":"2018-07-11T05:39:55","date_gmt":"2018-07-11T05:39:55","guid":{"rendered":"http:\/\/govinddas.com\/?p=1646"},"modified":"2018-07-11T05:39:55","modified_gmt":"2018-07-11T05:39:55","slug":"rename-multiple-files-folder-excel","status":"publish","type":"post","link":"https:\/\/govinddas.com\/index.php\/rename-multiple-files-folder-excel\/","title":{"rendered":"Rename Multiple Files Of A Folder In Excel"},"content":{"rendered":"

<\/h2>\n

May be most of us are suffered with this problem that we need to rename multiple files in a folder, to rename the filenames one by one will make us crazy if there are hundreds or thousands files in that folder. Are there any good functions for us to deal with this task?<\/p>\n

List all file names from a specific folder in worksheet with kutools for Excel<\/a><\/strong><\/i><\/p>\n

Rename multiple files of a folder in Excel with VBA code<\/a><\/strong><\/i><\/p>\n

\n

<\/a>\u00a0List All File Names From A Specific Folder In Worksheet With Kutools For Excel<\/strong><\/h4>\n
\n
\"Hot\"<\/div>\n
\"excel-tab-banner-2014-12-02\"<\/a><\/p>\n
Amazing! Using Tabs In Excel Like Firefox, Chrome, Internet Explore 10!<\/a><\/strong><\/h6>\n<\/div>\n<\/div>\n
\n

If there are multiple files that you want to rename, first, you can list the old file names in a column of worksheet, and then enter the new filenames that you want to replace with. To quickly list all files in worksheet, you can use the\u00a0Kutools for Excel<\/strong>\u2019s\u00a0Filename List\u00a0<\/strong>utility.<\/p>\n\n\n\n\n
Kutools for Excel<\/strong>\u00a0<\/a>:\u00a0with more than 120 handy Excel add-ins, free to try with no limitation in 60 days<\/strong>.<\/td>\n<\/tr>\n
\n
Go to Download
\nFree Trial 60 days<\/a>Purchase
\nPayPal \/ MyCommerce<\/a><\/div>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

After installing\u00a0Kutools for Excel<\/strong>, please do as follows:(\u00a0Free Download Kutools for Excel Now\u00a0<\/a><\/strong>)<\/p>\n

1<\/strong>. Click\u00a0Enterprise<\/strong>\u00a0>\u00a0Import \/ Export<\/strong>\u00a0>\u00a0Filename List<\/strong>, see screenshot:<\/p>\n

\"doc-rename-multiple-files-1\"<\/p>\n

2<\/strong>. In the\u00a0Filename List<\/strong>\u00a0dialog box, click\u00a0\"doc-rename-multiple-files-1\"\u00a0button to choose the file folder that you want to list the files, and then click\u00a0All files<\/strong>\u00a0from the\u00a0Files type<\/strong>, see screenshot:<\/p>\n

\"doc-rename-multiple-files-1\"<\/p>\n

3<\/strong>. Then click\u00a0OK<\/strong>\u00a0button, all the filenames have been list in a column of a new worksheet, as well as some file attributes, and now, you can delete other unwanted columns and only leave the\u00a0File Name<\/strong>\u00a0column, see screenshot:<\/p>\n

\"doc-rename-multiple-files-1\"<\/p>\n

Click to know more about this Filename List feature\u2026<\/strong><\/a><\/p>\n

Free Download Kutools for Excel Now<\/a><\/strong><\/p>\n

\n

<\/a>\u00a0Rename Multiple Files Of A Folder In Excel With VBA Code<\/strong><\/h4>\n

After listing all original filenames in one column A, and you should type new filenames in column B as following screenshot shown:<\/p>\n

\"doc-rename-multiple-files-1\"<\/p>\n

And here I will talk about a VBA code which may help you to replace the old filenames with the new filenames at once. Please do with following steps:<\/p>\n

1<\/strong>. Hold down the\u00a0ALT + F11<\/strong>\u00a0keys, and it opens the\u00a0Microsoft Visual Basic for Applications Window<\/strong>.<\/p>\n

2<\/strong>. Click\u00a0Insert<\/strong>\u00a0>\u00a0Module<\/strong>, and paste the following macro in the\u00a0Module window<\/strong>.<\/p>\n

VBA code: Rename multiple files in a folder<\/strong><\/p>\n

\n
\n\n\n\n
\n
1<\/div>\n
2<\/div>\n
3<\/div>\n
4<\/div>\n
5<\/div>\n
6<\/div>\n
7<\/div>\n
8<\/div>\n
9<\/div>\n
10<\/div>\n
11<\/div>\n
12<\/div>\n
13<\/div>\n
14<\/div>\n
15<\/div>\n
16<\/div>\n
17<\/div>\n
18<\/div>\n
19<\/div>\n
20<\/div>\n
21<\/div>\n
22<\/div>\n
23<\/div>\n<\/td>\n
\n
\n
Sub<\/code> RenameFiles()<\/code><\/div>\n
'Updateby20141124<\/code><\/div>\n
Dim<\/code> xDir\u00a0<\/code>As<\/code> String<\/code><\/div>\n
Dim<\/code> xFile\u00a0<\/code>As<\/code> String<\/code><\/div>\n
Dim<\/code> xRow\u00a0<\/code>As<\/code> Long<\/code><\/div>\n
With<\/code> Application.FileDialog(msoFileDialogFolderPicker)<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0<\/code>.AllowMultiSelect =\u00a0<\/code>False<\/code><\/div>\n
If<\/code> .Show = -1\u00a0<\/code>Then<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0<\/code>xDir = .SelectedItems(1)<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0<\/code>xFile = Dir(xDir & Application.PathSeparator &\u00a0<\/code>\"*\"<\/code>)<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0<\/code>Do<\/code> Until<\/code> xFile =\u00a0<\/code>\"\"<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/code>xRow = 0<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/code>On<\/code> Error<\/code> Resume<\/code> Next<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/code>xRow = Application.Match(xFile, Range(<\/code>\"A:A\"<\/code>), 0)<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/code>If<\/code> xRow > 0\u00a0<\/code>Then<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/code>Name xDir & Application.PathSeparator & xFile\u00a0<\/code>As<\/code> _<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/code>xDir & Application.PathSeparator & Cells(xRow,\u00a0<\/code>\"B\"<\/code>).Value<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/code>End<\/code> If<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/code>xFile = Dir<\/code><\/div>\n
\u00a0\u00a0\u00a0\u00a0<\/code>Loop<\/code><\/div>\n
End<\/code> If<\/code><\/div>\n
End<\/code> With<\/code><\/div>\n
End<\/code> Sub<\/code><\/div>\n<\/div>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<\/div>\n

3<\/strong>. After pasting the code, please press\u00a0F5<\/strong>\u00a0key to run this code, and in the\u00a0Browse<\/strong>\u00a0window, select the folder which you want to change the filenames in, see screenshot:<\/p>\n

\"doc-rename-multiple-files-1\"<\/p>\n

4<\/strong>. And then click\u00a0OK<\/strong>, all the old filenames have been replaced by the new filenames immediately. See screenshots:<\/p>\n\n\n\n
\"doc-rename-multiple-files-1\"<\/td>\n\"<\/td>\n\"doc-rename-multiple-files-1\"<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

Notes:<\/strong><\/p>\n

1. When you list your old and new filenames, the file extension must be included.<\/p>\n

2. In the above code, the reference\u00a0A:A<\/strong><\/em>\u00a0indicates the old filenames list you want to rename, and reference\u00a0B<\/strong><\/em>\u00a0contains the new filenames that you want to use, you can change them as your need<\/p>\n

\n

<\/a>\u00a0Demo: Rename Multiple Files Of A Folder In Excel<\/strong><\/h4>\n