كود اختصار لسطح المكتب

**Ahmed_J** · ديسمبر 5, 2021

السلام عليكم اساتذتي الاعزاء

هل يمكن تغيير في الكود ليعمل االمسار على تصدير ملف الاكسل على سطح المكتب لكل اجهزة الحاسوب ("C:\Users\Public\Desktop\Folder2\Table1.xlsx")

"C:\Users\Public\Desktop\Folder2\Table1.xlsx"

شكرا لكم

**حسونة حسين** · ديسمبر 5, 2021

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

تفضل اخى الكريم

ليجلب لك مسار سطح المكتب

Dim strPath As String
strPath = Environ("USERPROFILE") & "\Desktop\"

**Ahmed_J** · ديسمبر 5, 2021

استاذي العزير

مع الاسف لايعمل هذا الكود مع ملفي

**حسونة حسين** · ديسمبر 5, 2021

اين هو ملفك اخى الكريم

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