Eng. Abdullah قام بنشر فبراير 25, 2020 مشاركة قام بنشر فبراير 25, 2020 لدي قاعدة بيانات مرتبطة بجداول اكسل، وجداول الاكسل مرتبطة ب pi System بحيث تاخذ منه قراءات لحظية لا حظت انه لكي تكون القيم لحظية في الاكسيس يجب ان افتح ملف الاكسل المرتبط ليحدث قيمه ومن ثم تتحدث في الجدول المرتبط فعل هناك طريقة لحل تلك المشكلة؟ او هل هناك كود لفتح ملف الاكسل واغلاقه ؟ رابط هذا التعليق شارك More sharing options...
Eng. Abdullah قام بنشر فبراير 25, 2020 الكاتب مشاركة قام بنشر فبراير 25, 2020 للرفع رابط هذا التعليق شارك More sharing options...
essam rabea قام بنشر فبراير 25, 2020 مشاركة قام بنشر فبراير 25, 2020 (معدل) أ.Eng. Abdullah جرب هذا الكود لفتح وغلق ملف اكسيل بالتوفيق Dim objXLApp As Object Dim objXLBook As Object Set objXLApp = CreateObject("Excel.Application") objXLApp.Visible = True Set objXLBook = objXLApp.Workbooks.Open(مسار الملف مثلا"D:\library\library.xlsm") objXLApp.Application.Visible = True objXLBook.Save objXLBook.Close objXLApp.Quit تم تعديل فبراير 25, 2020 بواسطه essam rabea 2 رابط هذا التعليق شارك More sharing options...
Eng. Abdullah قام بنشر فبراير 26, 2020 الكاتب مشاركة قام بنشر فبراير 26, 2020 شكرا لك ونفع الله بعلمك لكن اسمحلي بسؤال في الكود: objXLApp.Visible = True لو قمت بوضعه على False هل سيفتح الاكسل وتتحدث بياناته بشكل غير مرئي؟ رابط هذا التعليق شارك More sharing options...
essam rabea قام بنشر فبراير 26, 2020 مشاركة قام بنشر فبراير 26, 2020 (معدل) أ.Eng. Abdullah جرب التالى ووافنى بالنتيجة objXLApp.Visible = False objXLApp.Application.Visible = False تم تعديل فبراير 26, 2020 بواسطه essam rabea 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان