سؤال عن التعامل مع Excel

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

مرحباً بك أخي الكريم

هذا مثال تجد فيه ما أردت إن شاء الله

وهو يقوم بجلب قيم خلايا من ثلاثة أوراق مختلفة ضمن ملف ثم يعرضها كرسالة

Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet1 As Excel._Worksheet
    Dim xlSheet2 As Excel._Worksheet
    Dim xlSheet3 As Excel._Worksheet
    Dim mytext1 As String
    Dim mytext2 As String
    Dim mytext3 As String
    xlApp = CreateObject("Excel.Application")
    xlBook = xlApp.Workbooks.Open("c:\test.xls")
    xlSheet1 = xlBook.Worksheets(1)
    xlSheet2 = xlBook.Worksheets(2)
    xlSheet3 = xlBook.Worksheets(3)
    mytext1 = xlSheet1.Range("A1").Value
    mytext2 = xlSheet2.Range("A9").Value
    mytext3 = xlSheet3.Range("C1").Value
    MessageBox.Show(mytext1 + " " + mytext2 + " " + mytext3)
    xlBook.Close()

لاحظ أنك ستحتاج إلى تعريف ال COM references الآتية :

Microsoft Excel 9.0 Object Library
    Microsoft Office 9.0 Object Library

وطبعاً بدل هذا (c:\test.xls) تحدد ما يناسبك

وفقك الله

الأخ محمد..

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

أشكر لك تجاوبك معي ولكن بقي لي أن أعرف كيف أقوم بـتعريف ال COM references

وأكون شاكرا لك ..

وجزاك الله ألف خير.. :lol: :lol: :lol:

وسامحني إذا ثقلت عليك :lol: :lol: :lol:

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

بارك الله فيك الشكر لله تعالى وحده :)

أخي الكريم لإضافة Reference هنالك أكثر من طريقة سأذكر واحدة

من قائمة Project اختر أمر Add Reference ثم اختر لسان تبويب COM ثم حدد المكتبات المطلوب إضافتها

وفي حالتنا هذه ستختار Microsoft Excel 9.0 Object Library مع ملاحظة أن رقم الإصدارة قد يختلف حسب إصدارة الأوفيس المثبتة على جهازك

اضغط زر Select

ثم اختر Microsoft Office 9.0 Object Library وأيضاً قد يختلف رقم الإصدارة

اضغط Select

ثم اضغط Ok

الآن انت جاهز

وفقك الله للخير

الاخ محمد ...

لك مني كل الشكر والتقدير ،، بإمكاني الآن التعامل مع ملف excel كما اريد.

:lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol:

:)

الحمد لله تعالى

بالتوفيق دوماً إن شاء الله