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

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

قام بنشر

الملف المرفق تجربة وعلى افتراض أنه يحتوي على مجموعة أوراق (ورقة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

قام بنشر

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

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

قام بنشر

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

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

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

عيد مبارك

قام بنشر

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

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

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

عيد مبارك

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

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

وعيدكم مبارك

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

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

قام بنشر

السلام عليكم

معلم كبير

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

تقبل مروري

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

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

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

وعيدكم مبارك

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

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

قام بنشر

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

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

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

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

أبو أنس

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