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

حفظ نسخة من الملف على سطح المكتب


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

الملف المرفق تجربة وعلى افتراض أنه يحتوي على مجموعة أوراق (ورقة1،ورقة2،ورقة3) إضافة إلى أكواد على محرر الاكواد وماكرو وغيرها من الاعدادات

المطلوب هو عندما أضغط على الزر ( نقل الملف ) يتم نقل الملف كاملا بكامل محتوياته إلى سطح المكتب ويكون الملف على سطح المكتب بنفس اسمه الاصلي دون أي تغيير

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

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

حفظ نسخة من الملف على سطح المكتب.rar

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

السلام عليكم

حفظ نسخة من الملف على سطح المكتب

وحفظ واغلاق المصنف الاصل


Sub kh_SaveCopyInDesktop()

Dim wo As Workbook

Dim StrDeskPath As String, sPath As String

'''''''''''''''''''

StrDeskPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")

sPath = StrDeskPath & Application.PathSeparator & ThisWorkbook.Name

' ''''''''''''''''''''

With ThisWorkbook

    .SaveCopyAs sPath

    .Close True

End With

' ''''''''''''''''''''

End Sub

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

السلام عليكم

حفظ نسخة من الملف على سطح المكتب

وحفظ المصنف الاصل بدون اغلاقه


Sub kh_SaveCopyInDesktop()

Dim wo As Workbook

Dim StrDeskPath As String, sPath As String

'''''''''''''''''''

StrDeskPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")

sPath = StrDeskPath & Application.PathSeparator & ThisWorkbook.Name

' ''''''''''''''''''''

With ThisWorkbook

    .SaveCopyAs sPath

    .Save

End With

' ''''''''''''''''''''

End Sub

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

جزاكم الله خيرا أستاذنا الكبير عبد الله باقشير

كفيت و وفيت وسلمت يداك وأبعد الله عنك أبناء السوء

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

ملاحظة :

تم اختصار الاكواد في المشاركات اعلاه

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

أخى الفاضل / عبدالله باقشير

سلام الله عليكم

وفقكم الله على عمل الخير

عيد مبارك

وعليكم السلام

اكرمكم الله وحفظكم من كل مكروه

وعيدكم مبارك

وكل عام وانتم بخير

تقبل تحياتي وشكري

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

استاذى عبد الله باقشير

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

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

وعليكم السلام

الله يسلمك

وعيدكم مبارك

وكل عام وانتم بخير

تقبل تحياتي وشكري

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

السلام عليكم

معلم كبير

علم خلق الله ينور دريك اين ماذهبت

تقبل مروري

وعليكم السلام

هذا من اصلكم الكريم

اكرمكم الله وحفظكم من كل مكروه

وعيدكم مبارك

وكل عام وانتم بخير

تقبل تحياتي وشكري

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

السلام عليكم ورحمة الله وبركاته

أستاذي وسيدي النبيل عبد الله باقشير (أبا علي) حفظكم الله

عيدكم مبارك مقدماً وكل عام وأنتم في خير ونعم وفيرة وصحة وعافية.

الله يبارك لك في كل خطوة وكل نفس ويحفظك الحفظ التام من كل شر.

أبو أنس

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information