فتح ملف اكسل بكود فورم اكسس

[عذاب الزمان]

سلام عليكم

عندي ملف اكسل اسمه ali-in ... عملت له واجهة مرور من خلال مطور فجوال بيسك... واريد من خلال استخدام النقر على الكوماند ان يفتح لي ملف الاكسل بتاعي .

ارجو مساعدتي ولكم جزيل الشكر 

[ياسر خليل أبو البراء]

أخي الكريم جرب الكود التالي

Sub Test()
    Dim xlApp As Excel.Application
    Set xlApp = CreateObject("Excel.Application")

    xlApp.Visible = True

    xlApp.Workbooks.Open "اكتب المسار بالكامل لملف الإكسيل المراد فتحه", True, False

    Set xlApp = Nothing
End Sub

 

 

[عذاب الزمان]

احسنت اخي الغالي ... انتم مبدعون دائما .

[ياسر خليل أبو البراء]

الحمد لله الذي بنعمته تتم الصالحات ..

واصل معنا وستكتشف المزيد والمزيد

تقبل تحياتي

[عذاب الزمان]

اخي الغالي

الان عندي عدة اسماء موزعة بالشيت الواحدة اي ليست بصف واحد ولا بعمود واحد ... واريد عمل قائمة تظهر فيها هذه الاسماء وعند اخنيار اي منها ينتقل الى الاسم الموجود في الصفحة 

مثلا محمد و جاسم و سالم وقاسم وعلي  منتشرين بخلايا مختلفة داخل الشيت ... واريدها ان تظهر بالقائمة وبمجرد اختيار اي منها انتقل اليه مباشرة .

لان عندي اربعين اسم لايمكن استخدام الهايبرلنك للانتقال لانها تاخذ مساحة وغير لطيفة .

جزاك الله خير استاذنا الغالي .

[ياسر خليل أبو البراء]

أخي الكريم

يرجى طرح طلب واحد لكل موضوع ..

قم بطرح موضوع جديد مستقل بطلبك الجديد وارفق معه ملف بشكل النتائج المتوقعة ليسهل الوصول لحل ..

راجع التوجيهات في الموضوعات المثبتة في صدر المنتدى

تقبل تحياتي

[عذاب الزمان]

اخي الغالي .... طرحته بشكل مستقل ولم يظهر ... ولا  اعرف السبب ثم قمت بطرحه هنا فظهر 

مع التحية