تغییر دسته‌جمعی نام فایل‌ها در محیط ویندوز به کمک اکسل

ابتدا وارد پوشه‌ای که فایل‌ها در آن قرار دارد شوید. سپس مسیر پوشه را Copy کنید.


اکنون در مرورگر وب خود، در قسمت نوار آدرس این مسیر را Paste کرده و Enter بزنید.

​











اکنون توسط کلید‌های ترکیبی Ctrl+A کل متون صفحه را انتخاب کرده و آن‌ها را Copy کنید. سپس داخل محیط اکسل در یک صفحه‌ی جدید، این محتوا را Paste نمایید.









سلول‌های اضافی را پاک نمایید.

​





نام جدید با فرمت‌شان را در ستون مقابل بنویسید. سپس ستون نام قدیمی فایل‌ها را انتخاب کنید.







اکنون اگر تب Developer اکسل را تاکنون فعال نکرده‌اید، بر روی File و سپس Options کلیک کنید. سپس در تب Customize Ribbon، گزینه‌ی Developer را فعال کرده و روی OK کلیک کنید.



اکنون در محیط اکسل به تب Developer بروید و Visual Basic را انتخاب کنید (یا کلید‌های Alt+F۱۱ را فشار دهید). سپس روی Sheet۱ (Sheet۱) در سمت چپ دوبارکلیک کنید تا پنجره‌ی سفید رنگ برنامه‌نویسی باز شود.







کد زیر را در کادر سفیدرنگ Paste نمایید:

Sub Macro۱ ()

Dim c. As Range

For Each c. In Selection

c.Offset (۰، ۲) = "ren """ & c.Offset (۰، ۰) & """ """ & " - " & c.Offset (۰، ۱) & """"

Next

End Sub







ستون ایجاد شده را Copy نمایید.







به پوشه‌ی مورد نظر بروید و Command Prompt را از منوی File باز کنید.






عملیات Paste را با فشردن کلید‌های Ctrl+V انجام دهید.

​





تغییر نام فایل‌ها انجام خواهد شد.



منبع:tarfandestan.com