تغییر نام فایل های اکسل با استفاده از vba

[sasa15]

با سلام
بنده حدود 1000 تا فایل دارم که بصورت زیر هستند
V2.prn-علی
V2.prn-حسن
V2.prn-کامران
V2.prn-نادر
.
.
.
میخوام که کدی نوشته بشه تا قسمت "V2-" تمامی فایل ها حذف بشند و اسامی فایل ها بصورت زیر تبدیل شوند.
prn.علی
prn.حسن
prn.کامران
prn.نادر
......
لطفا راهنمایی کنید.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[sasa15]

دوستان اگه امکانش باشه در کنارش یک کد دیگه ای باشه که حتی prn. هم حذف بشه و ما فقط اسامی خالی علی حسن و ... رو داشته باشیم.

[امين اسماعيلي]

با درود

فایل زیر رو برای نه شما برای هر کس که میخواد یه سری کارکتر از انتهای فایل اکسلش حذف کنه میزاریم - نکته اول یک کپی از فایلاتون یه جا ذخیره کنین تا نتیجه رو وقتی دیدین اگر مناسب بود مورد استفاده قرار بدین - آدرس فولدری که فایلاتون داخل اون هست رو در سل خواسته شده وارد کنید - تعداد کارکتر رو هم که میخواین از انتهای اون پاک بشه وارد کنین . در انتها دکمه رو ران کنید

این همه هم سوالای سخت نکنین خووووووووو - خستمون میشه هااااااااااااا در ضمن فرقی نداره که فایلای اکسلتون معمولی باشه یا ماکرو دار

[Juliet]

با درود

فایل زیر رو برای نه شما برای هر کس که میخواد یه سری کارکتر از انتهای فایل اکسلش حذف کنه میزاریم - نکته اول یک کپی از فایلاتون یه جا ذخیره کنین تا نتیجه رو وقتی دیدین اگر مناسب بود مورد استفاده قرار بدین - آدرس فولدری که فایلاتون داخل اون هست رو در سل خواسته شده وارد کنید - تعداد کارکتر رو هم که میخواین از انتهای اون پاک بشه وارد کنین . در انتها دکمه رو ران کنید

این همه هم سوالای سخت نکنین خووووووووو - خستمون میشه هااااااااااااا در ضمن فرقی نداره که فایلای اکسلتون معمولی باشه یا ماکرو دار

درود و بامدادان به خیر و شادی!
و باز درود که این موقع صبح مشغول رسیدگی به مشکلات کاربرای سایت هستید.

فایلتون عالی بود، فقط یه نکته کوچولو اینکه وقتی همه کار را درست انجام داد، میگه File not found. البته اصل کاره که انجام شده، اونشم یحتمل شوخی میکنه!

اما جدا از این مورد، میخواستم به این دوست عزیز بگم، نرم افزار هایی هست که با وسعت کار بالا کار تغییر نام مجموعه ای از فایل ها رو انجام میده، و به عنوان مثال من خودم از Batch Rename Pro استفاده میکنم، حجمی نداره میتونین بگردین دانلودش کنین.

(لینک دانلود نزاشتم، چون فکر کردم شاید از نظر انجمن لینک های غیر خود سایت ایراد داشته باشه)

[امين اسماعيلي]

با درود
در ابتدا دوستان بابت اینکه فایل بالا یک منهای یکی تو کد هاش کم داشت معذرت میخوام تصحیح شد - در مورد اون پیغام به این معنا است که دیگه فایل اکسلی برای تغییر نام وجود نداره و یا اینکه اگر همون ابتدا بیاد به این معنا میتونه باشه که ادرس داده شده درست نیست
در مورد نرم افزار هایی که گفتین متاسفانه من اطلاعی نداشتم ممنون که یاداوری کردین


دوستان یادتون نره فایل پیوست همین تاپیک پست اول اصلاح شد .

[sasa15]

ممنون آقای اسماعیلی بابت برنامه خوبتون
مثل تراکتور داره شخم میزنه
ببخشید که با این سولای سخت سختم وقت اساتید رو میگیرم
آقا بزار یکم دیگه پر رویی کنم و یک زحمت دیگه بدم
1- حالا اگه بخواهیم اکستنشن xls. رو حذف کنیم چیکار باید کرد؟
2- من میخوام یکار دیگه ای انجام بشه و اونم بحث حروف فارسیه!!!
اسم فایل هایی که من دارم اگه توشون حرف "ی" باشه نمیتونه فایل رو بخونه یعنی با "ی" که تو اکسل هست فرق میکنه.
میخوام کدی باشه که بیاد یا کلا این "ی" دهن کج رو از اسامی فایل ها حذف کنه و یا اینکه با "ی" داخل فایل اکسل ریپلیس بکنه.
البته دوست عزیزمون در بالا ذکر کردند که از نرم افزار

Rename Pro

Batch میشه استفاده کرد. ولی کار من طوری هست که نمیشه هر لحظه این نرم افزار اجرا کرد و دوباره بست.

با تشکر

[امين اسماعيلي]

با درود
این اکستنشن که گفتین اگر بخواین حذف بشه خب شکل و شمایل اکسل بودنش از بین میره - اگر میخوای اینکارو بکنی تو کد ها

- Range("C5").Value

این بخش رو پاک کن یا اون سل عدد اش رو صفر بزار - و در مورد حرف ی هم حالا برسی میکنم ببینم چیکار میشه کرد اما قول ندادمااااااااااااااااااا

[Juliet]

ممنون آقای اسماعیلی بابت برنامه خوبتون
مثل تراکتور داره شخم میزنه
ببخشید که با این سولای سخت سختم وقت اساتید رو میگیرم
آقا بزار یکم دیگه پر رویی کنم و یک زحمت دیگه بدم
1- حالا اگه بخواهیم اکستنشن xls. رو حذف کنیم چیکار باید کرد؟
2- من میخوام یکار دیگه ای انجام بشه و اونم بحث حروف فارسیه!!!
اسم فایل هایی که من دارم اگه توشون حرف "ی" باشه نمیتونه فایل رو بخونه یعنی با "ی" که تو اکسل هست فرق میکنه.
میخوام کدی باشه که بیاد یا کلا این "ی" دهن کج رو از اسامی فایل ها حذف کنه و یا اینکه با "ی" داخل فایل اکسل ریپلیس بکنه.
البته دوست عزیزمون در بالا ذکر کردند که از نرم افزار

Rename Pro

Batch میشه استفاده کرد. ولی کار من طوری هست که نمیشه هر لحظه این نرم افزار اجرا کرد و دوباره بست.

با تشکر

با درود
این اکستنشن که گفتین اگر بخواین حذف بشه خب شکل و شمایل اکسل بودنش از بین میره - اگر میخوای اینکارو بکنی تو کد ها

- Range("C5").Value

این بخش رو پاک کن یا اون سل عدد اش رو صفر بزار - و در مورد حرف ی هم حالا برسی میکنم ببینم چیکار میشه کرد اما قول ندادمااااااااااااااااااا

درود
در مورد حرف "ی" رو کد نویسی امنحان نکردم، ولی همیشه این مشکل با تغییر سیستم یا حتی ویندوز هست، بر اساس خصوصیات سیستم عامل، زبانی که روی صفحه کلید نصب میشه، دو نوع حرف "ی" داره؛ یکی فارسی و دیگری عربی. به این صورت که "ی" عربی زیرش دو نقطه داره. (ممکنه با تغییر فونت دو نقطه رو نبینین ولی در ماهیت کد اصلی کاراکتر تغییری ایجاد نمیشه)
اما مشکل قابل حله چون هر دو "ی" روی صفحه کلید ها فعالن::: یکی در حای اصلی خودش (بین ب و س) و دیگری ط+Shift یا همون Shift+x
به نظرم کافیه وقتی نام فایل رو میخونین، با تابع Replace این دو مقدار رو جایگزین کنین
من همیشه در محیط داخلی Word, Excel, ... با همین جایگزینی مشکلم حل میشه، قاعدتاً تو محیط کد هم باید جواب بده، امتحانش کنین.

[nedabani]

با سلام.
من یک فایل اکسلی دارم که شامل دو ستون a و b هست
یک فولدر هم دارم که شامل 1000 تا عکس هست که نام اون عکس ها از ستون a گرفته شده
حالا می خواستم که عکس ها تغییر نام پیدا کنند به ستون b
آیا کسی هست که کمکم کنه ؟
متشکرم

[iranweld]

در فایل پیوست با اجرای ماکرو برای اولین بار اسامی فایلها با پسوند jpg در ستون a لیست میگردد

در مرحله بعد نامهای مورد نظر را در ستون b وارد نموده و مجددا ماکرو را اجرا کنید

اسامی فایلها مطابق ستون B تغییر نام می یابند