طريقة جلب المعلومات من ملف الاكسال
#1
السلام عليكم و رحمة الله و بركاته عندي برنامج و اريد وضع فيه برنامج الاكسال و اريد طريقة 
جلبه إلى البرنامج بحيث عندما يتم ملء برنامج الاكسال و تضعه في البرنامج يمتلء البرنامج اتوماتيكا بارك الله فيكم
الرد
#2
وعليكم السلام ورحمة الله


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

كود :
https://github.com/rareMaxim/Excel4Delphi
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
[-] كل من 1 user says قال شكرا ل Delphi4Us على المشاركة المفيدة
  • أبو معاذ
الرد
#3
(05-10-2023, 03:10 PM)Delphi4Us كتب : وعليكم السلام ورحمة الله


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

كود :
https://github.com/rareMaxim/Excel4Delphi

طريقة تحميلها أو العمل بها جزاك الله خيرا
الرد
#4
طريقة التحميل عن طريق زر اخظر الى اليمين مكتوب عليه Code انقر عليه سيفتح قائمة اختر اخر خيار وهو Download

طريقة العمل هي حزمة تثبيت تقوم بتثبيتها في الدلفي كما تثبت اي مكونات اخرى

والطريقة البرمجية الامثلة المرفقة مع حزمة التثبيت تكفيك لتفهم الفكرة بعد ان تفتح المشاريع وتشغلها وترى كيف تصنع

وكما هو منشور بالصفحة الكود كما بالشكل التالي بعد الثبيت

كود :
// Editing exists workbook var workBook: TZWorkBook; ... workBook := TZWorkBook.Create(); try   workBook.LoadFromFile('file.xlsx');   workBook.Sheets[0].CellRef['A', 0].AsString := 'Hello';   workBook.Sheets[0].CellRef['A', 0].FontStyle := [fsBold];   workBook.SaveToFile('file.xlsx'); finally   workBook.Free(); end

انشاء الكائن المسؤول عن التعامل مع ملف اكسيل
ثم تحميل ملف اكسيل وبعدها عرضه او اضافة بيانات له كما يظهر بالكود
تم حفظ هذه التغييرات من جديد

وهنا انشاء ملف اكسيل واضافة بيانات له تم حفظه يعني انشاء وليس قراءة ملف موجود كما بالكود السابق

كود :
// Creating new workbook var workBook: TZWorkBook; ... workBook := TZWorkBook.Create(); try   workBook.Sheets.Add('My sheet');   workBook.Sheets[0].ColCount := 10;   workBook.Sheets[0].RowCount := 10;   workBook.Sheets[0].CellRef['A', 0].AsString := 'Hello';   workBook.Sheets[0].RangeRef['A', 0, 'B', 2].Merge();   workBook.SaveToFile('file.xlsx'); finally   workBook.Free(); end

انشاء الكائن المسؤول
ثم اضافة صفحة لملف اكسيل حيث ان ملف اكسيل يمكن ان يحتوي على عدة صفحات
تم اضافة بيانات وخلايا له
تم حفظه
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
[-] كل من 2 users say قال شكرا ل Delphi4Us على المشاركة المفيدة
  • Ibn Battuta, ahmedhossin
الرد
#5
شاهد هذه الدروس
https://www.youtube.com/watch?v=fDoeSSRwaKY&t=64s
و
https://www.youtube.com/watch?v=snSCMRdqdn0&t=520s

وهذه القناة

https://www.youtube.com/watch?v=hzmkm2IV...gh&index=3
و
https://www.youtube.com/watch?v=Hi1Agzy1...gh&index=2
[-] كل من 1 user says قال شكرا ل ALG2009 على المشاركة المفيدة
  • ahmedhossin
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم