اذهب الي المحتوي
أوفيسنا

تغيير كود حفظ ملف الاكسل باسم خليه معينة من xls الى xlsx


إذهب إلى أفضل إجابة Solved by وضاح محمد,

الردود الموصى بها

الاخوة الاكارم

 

رمضان كريم وتقبل الله منكم صالح الاعمال

 

الملف المرفق قمت بتحميله من أوفيسنا وهو يحتوي مايكرو للحفظ باسم خلية معينة مع تحديد مكان الحفظ

ولكنه يحفظ بامتداد xls

 

المطلوب :

اريد ان يكون هذا الملف بامتداد xlsx 

وان يكون الحفظ ايضا بنفس الطريقة ولكن بامتداد xlsx

 

مع الشكر الجزيل لتعاونكم مسبقاً ....

احفظ ملف الاكسل باسم خليه معينة مع تحديد مكان الحفظ.rar

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

الاخ الكريم / وضاح محمد

بارك الله فيك

ع السريع كدة ... عشان الصيام

جرب الملف التالي لحفظ الملف بالتنسيق المطلوب xlsx من خلال الكود التالي

Sub copy_sh()
Dim F_FOL As String
  Application.ScreenUpdating = False
  F_FOL = "D:\"
  FName = Sheets("ورقة1").Range("B3").Text
  With ActiveWorkbook
    ActiveWorkbook.Worksheets.Copy
    ActiveWorkbook.SaveCopyAs Filename:=F_FOL & FName & ".xlsx"
    ActiveWorkbook.Close False
    .Activate
  End With
  Application.ScreenUpdating = True
End Sub

ارجو ان يفي بطلبك اخي الكريم

 

 

 

حفظ ملف باسم خلية معينة.rar

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

 

السيد الفاضل / حمادة عمر

 

اتوجه لكم بالشكر والتقدير على المجهود الطيب الذي بذلتموه لتلبية طلبي

وارجو من الله العلي القدير ان يجعله في ميزان حسناتكم .

 

السد الفاضل : الموضوع الذي ارسلتموه لي لم ينقصه سوى شيء واحد وهو:

تحديد مكان الحفظ ،،،، فهل من الممكن اضافة امر الى نفس الكود بحيث استطيع ان اقوم بتحديد او تغيير مكان أو مسار الحفظ عبر أو بواسطة خلية معينة

كأن يكون مكان الحفظ مثلا في القرص :C أو القرص :D أو القرص :E وذلك لان ارشفة الملفات عندي تتطلب تغيير مكان الحفظ من قرص لآخر حسب مضمون ومحتوى الملف .

وكما هو موجود في الملف الذي ارسلته لكم .

 

وتقبلوا خالص الشكر والتقدير ...

رابط هذا التعليق
شارك

الاخ الكريم / وضاح

شاهد المرفقات التالية

 

مستند محمد 1.rar

 

 

ALIDROOS_F.rar

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

الأخ الأكرم / حمادة عمر

 

الحمد لله وبفضل الله تعالى لقد توصلت الى الكود الذي كنت اطلبه وذلك بمساعدتكم الكريمة لي

 

وفقكم الله وسدد على طريق الخير خطاكم ...

 

مرفق لكم الملفات التي توصلت اليها

 

وتقبلوا مني فائق الاحترام والتقدير ...

حفظ ملف الاكسل حسب خلية معينة + حسب الخلية التي يقف عليها المؤشر.rar

رابط هذا التعليق
شارك

السلام عليكم

الاخ الكريم / وضاح محمد

بارك الله فيك

والاهم بالتأكيد انك توصلت لما تريد تماما

والاجمل والاروع انك وضعت ملفك النهائي في موضوعك ليستفيد منه الجميع

فالكثير عندما يصل لحل موضوعه بمفرده او عن طريق مساعدة لا يقوم بوضع الحل في الموضوع

شكرا جزيلا لك

تقبل خالص تحياتي

رابط هذا التعليق
شارك

دائما رائع استاذنا الكبير جدا

حمادة عمر

جزاك الله خيرا

 

الاخت الفاضلة

تقبلي خالص تحياتي

رابط هذا التعليق
شارك

 

السلام عليكم

السيد الفاضل / حمادة عمر

بارك الله فيك

 

الوفاء لا يقابل الا بالوفاء ...

 

شكرا جزيلا لاهتمامك

 

ودمتم في رعاية الله ..

 

 

ونعم الاخلاق الحميدة والرفيعة

تقبل خالص تحياتي اخي الحبيب

رابط هذا التعليق
شارك

  • 10 months later...
  • 3 weeks later...

لقد فتحت الملفات  بعد التحميل .. ووجت أن زر الحفظ  الذي انتم تقصدونه هو زر حفظ  افتراضي وليس الاساسي .

هل هناك كود  يقوم بحفظ  الملف بأسم الخلية .. عند النقر على  زر الحفظ الاساسي تبع الأكسل . بدون أن انشئ زر حفظ

شكرا جزيلا

رابط هذا التعليق
شارك

  • 1 year later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information