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

[وضاح محمد]

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

 

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

 

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

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

 

المطلوب :

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

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

 

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

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

[حمادة عمر]

السلام عليكم

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

بارك الله فيك

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

جرب الملف التالي لحفظ الملف بالتنسيق المطلوب 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

[حمادة عمر]

رمضـــان كـــريـــم

[وضاح محمد]

السلام عليكم

 

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

 

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

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

 

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

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

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

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

 

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

[وضاح محمد]

[حمادة عمر]

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

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

 

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

 

 

ALIDROOS_F.rar

[وضاح محمد]

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

 

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

 

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

 

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

 

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

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

[سما محمد]

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

حمادة عمر

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

[حمادة عمر]

السلام عليكم

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

بارك الله فيك

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

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

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

شكرا جزيلا لك

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

[حمادة عمر]

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

حمادة عمر

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

 

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

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

[وضاح محمد]

السلام عليكم

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

بارك الله فيك

 

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

 

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

 

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

[حمادة عمر]

 

السلام عليكم

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

بارك الله فيك

 

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

 

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

 

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

 

 

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

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

[mahmoud zayed]

الله يبارك فيكم ويزديكم من بركة علمه ومعرفته يا رب نشكركم على الاستفادة

[محمد الزريعي]

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

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

شكرا جزيلا

[Mohammad Sayed]

جزاكم الله حيرا والف شكر للجميع