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

Collapse
X
 
  • زمان
  • Show
Clear All
new posts
  • sasa15

    • June 2014
    • 23

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

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

    • June 2014
    • 23

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

    Comment

    • امين اسماعيلي
      مدير تالار ويژوال بيسيك

      • January 2013
      • 1198

      #3
      با درود

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

      این همه هم سوالای سخت نکنین خووووووووو - خستمون میشه هااااااااااااا در ضمن فرقی نداره که فایلای اکسلتون معمولی باشه یا ماکرو دار
      فایل های پیوست شده
      Last edited by امين اسماعيلي; 2014/07/27, 12:02.
      در پناه خداوندگار ایران زمین باشید و پیروز

      Comment

      • Juliet

        • June 2014
        • 47

        #4
        نوشته اصلی توسط امين اسماعيلي
        با درود

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

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

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

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

        (لینک دانلود نزاشتم، چون فکر کردم شاید از نظر انجمن لینک های غیر خود سایت ایراد داشته باشه)
        «زمانيکه با زمانه خويش نساختي و با مسندنشينان و امربران ايشان کنار نيامدي
        و آنچه را
        جاهلان ميگويند، جاهلانه باز نگفتي،
        لاجرم به تبعيد ابدي گرفتار خواهي شد!
        حتي اگر جسمت در کنج منزلي در شهري ساکن باشد؛
        و اگر بر نپذيرفتن، پاي فشردي،

        آواره ات خواهند کرد،
        به زندانت خواهند افکند
        و به دارت خواهند کشيد ...»

        Comment

        • امين اسماعيلي
          مدير تالار ويژوال بيسيك

          • January 2013
          • 1198

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


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

          Comment

          • sasa15

            • June 2014
            • 23

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

            Comment

            • امين اسماعيلي
              مدير تالار ويژوال بيسيك

              • January 2013
              • 1198

              #7
              با درود
              این اکستنشن که گفتین اگر بخواین حذف بشه خب شکل و شمایل اکسل بودنش از بین میره - اگر میخوای اینکارو بکنی تو کد ها
              کد:
              - Range("C5").Value
              این بخش رو پاک کن یا اون سل عدد اش رو صفر بزار - و در مورد حرف ی هم حالا برسی میکنم ببینم چیکار میشه کرد اما قول ندادمااااااااااااااااااا
              در پناه خداوندگار ایران زمین باشید و پیروز

              Comment

              • Juliet

                • June 2014
                • 47

                #8
                نوشته اصلی توسط sasa15
                ممنون آقای اسماعیلی بابت برنامه خوبتون
                مثل تراکتور داره شخم میزنه
                ببخشید که با این سولای سخت سختم وقت اساتید رو میگیرم
                آقا بزار یکم دیگه پر رویی کنم و یک زحمت دیگه بدم
                1- حالا اگه بخواهیم اکستنشن xls. رو حذف کنیم چیکار باید کرد؟
                2- من میخوام یکار دیگه ای انجام بشه و اونم بحث حروف فارسیه!!!
                اسم فایل هایی که من دارم اگه توشون حرف "ی" باشه نمیتونه فایل رو بخونه یعنی با "ی" که تو اکسل هست فرق میکنه.
                میخوام کدی باشه که بیاد یا کلا این "ی" دهن کج رو از اسامی فایل ها حذف کنه و یا اینکه با "ی" داخل فایل اکسل ریپلیس بکنه.
                البته دوست عزیزمون در بالا ذکر کردند که از نرم افزار
                Rename Pro
                Batch میشه استفاده کرد. ولی کار من طوری هست که نمیشه هر لحظه این نرم افزار اجرا کرد و دوباره بست.
                با تشکر
                نوشته اصلی توسط امين اسماعيلي
                با درود
                این اکستنشن که گفتین اگر بخواین حذف بشه خب شکل و شمایل اکسل بودنش از بین میره - اگر میخوای اینکارو بکنی تو کد ها
                کد:
                - Range("C5").Value
                این بخش رو پاک کن یا اون سل عدد اش رو صفر بزار - و در مورد حرف ی هم حالا برسی میکنم ببینم چیکار میشه کرد اما قول ندادمااااااااااااااااااا
                درود
                در مورد حرف "ی" رو کد نویسی امنحان نکردم، ولی همیشه این مشکل با تغییر سیستم یا حتی ویندوز هست، بر اساس خصوصیات سیستم عامل، زبانی که روی صفحه کلید نصب میشه، دو نوع حرف "ی" داره؛ یکی فارسی و دیگری عربی. به این صورت که "ی" عربی زیرش دو نقطه داره. (ممکنه با تغییر فونت دو نقطه رو نبینین ولی در ماهیت کد اصلی کاراکتر تغییری ایجاد نمیشه)
                اما مشکل قابل حله چون هر دو "ی" روی صفحه کلید ها فعالن::: یکی در حای اصلی خودش (بین ب و س) و دیگری ط+Shift یا همون Shift+x
                به نظرم کافیه وقتی نام فایل رو میخونین، با تابع Replace این دو مقدار رو جایگزین کنین
                من همیشه در محیط داخلی Word, Excel, ... با همین جایگزینی مشکلم حل میشه، قاعدتاً تو محیط کد هم باید جواب بده، امتحانش کنین.
                «زمانيکه با زمانه خويش نساختي و با مسندنشينان و امربران ايشان کنار نيامدي
                و آنچه را
                جاهلان ميگويند، جاهلانه باز نگفتي،
                لاجرم به تبعيد ابدي گرفتار خواهي شد!
                حتي اگر جسمت در کنج منزلي در شهري ساکن باشد؛
                و اگر بر نپذيرفتن، پاي فشردي،

                آواره ات خواهند کرد،
                به زندانت خواهند افکند
                و به دارت خواهند کشيد ...»

                Comment

                • nedabani
                  • January 2012
                  • 1

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

                  Comment

                  • iranweld

                    • March 2015
                    • 3342

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

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

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

                    Comment

                    Working...