[ahmed250]

(09-06-20, 05:57 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , نعم ممكن ذلك مرفق مثال لذلك , بالتوفيق .

انا استخدم في كواد الفتح هذه 

كود :

YXL.Workbooks.Open App.Path & "\1.xlsm"
YXL.Visible = False
Set Sheet1 = YXL.Worksheets(1)

واستخدم في مكتبة اكسل 

كود :

microsoft excel 16.0 object library

واستخدم في هذه الاومر لي الاستعداء

كود :

     Public YRng As Excel.Range
     Public YXL As New Excel.Applicati
     Public YWB As New Excel.Workbook
     Public Sheet1 As New Excel.Worksheet