اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ممكن كود بسيط لإغلاق إكسل من ملف آخر


KHMB

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

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

كل عام وانتم بخير وشهر مبارك على الجميع

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

حاولت مع هذا الكود لكن بدون جدوى

Dim Myfile

Myfile = ActiveWorkbook.Path & "\" & "Solar.xls"

Workbooks.Close Myfile

شاكر ومقدر حسن تعاونكم سلفاً

تم تعديل بواسطه KHMB
رابط هذا التعليق
شارك

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

إضافة لحل الاخ عادل جرب هذا الكود



Sub ClosetIt()

Dim wb As Workbook

Set wb = Workbooks("Solar.xls")

wb.Close

End Sub


فأنت لست بحاجة لمعرفة مسار الملف و خصوصاً انه مفتوح

دمت في حفظ الله

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

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

اخي يحى كل عام وانتم بخير شهر مبارك على الجميع

عمل الكود تمام بعد ماتم فتح الملف المراد إغلاقة

جزاك الله خير

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

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

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



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

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

Important Information