التزامن المستمر بين اكسيس واكسل

[Eng. Abdullah]

لدي قاعدة  بيانات مرتبطة بجداول اكسل، وجداول الاكسل مرتبطة ب pi System  بحيث تاخذ منه قراءات لحظية 

 

لا حظت انه لكي تكون القيم لحظية في الاكسيس يجب ان افتح ملف الاكسل المرتبط ليحدث قيمه ومن ثم تتحدث في الجدول المرتبط

 

فعل هناك طريقة لحل تلك المشكلة؟

 

او هل هناك كود لفتح ملف الاكسل واغلاقه ؟

[Eng. Abdullah]

للرفع

[essam rabea]

 

أ.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

[Eng. Abdullah]

شكرا لك ونفع الله بعلمك

لكن اسمحلي بسؤال

 

في الكود:

objXLApp.Visible = True

 

لو قمت بوضعه على False

 

هل سيفتح الاكسل وتتحدث بياناته بشكل غير مرئي؟

[essam rabea]

أ.Eng. Abdullah

جرب التالى ووافنى بالنتيجة

objXLApp.Visible = False
objXLApp.Application.Visible = False
 

تم تعديل فبراير 26, 2020 بواسطه essam rabea