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

**KHMB** · أغسطس 1, 2011

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

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

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

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

Dim Myfile

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

Workbooks.Close Myfile

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

تم تعديل أغسطس 2, 2011 بواسطه KHMB

**عادل حنفي** · أغسطس 2, 2011

اخي جرب هذا الكود

    Windows("2.xls").Activate

    ActiveWindow.Close

**KHMB** · أغسطس 2, 2011

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

عمل معي الكود

شكراً اخي عادل حنفي جزاك الله خير

**يحيى حسين** · أغسطس 2, 2011

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

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



Sub ClosetIt()

Dim wb As Workbook

Set wb = Workbooks("Solar.xls")

wb.Close

End Sub

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

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

**KHMB** · أغسطس 2, 2011

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

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

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

جزاك الله خير

**ياسر الحافظ** · أغسطس 2, 2011

الاستاذ عادل حنفي

الاستاذ يحيى حسين

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

وفقكم الله

ابو الحارث

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