+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : طريقة جلب المعلومات من ملف الاكسال (/showthread.php?tid=12408)
طريقة جلب المعلومات من ملف الاكسال - ahmedhossin - 05-10-2023
السلام عليكم و رحمة الله و بركاته عندي برنامج و اريد وضع فيه برنامج الاكسال و اريد طريقة
جلبه إلى البرنامج بحيث عندما يتم ملء برنامج الاكسال و تضعه في البرنامج يمتلء البرنامج اتوماتيكا بارك الله فيكم
RE: طريقة جلب المعلومات من ملف الاكسال - Delphi4Us - 05-10-2023
وعليكم السلام ورحمة الله
استخدم هذه الاداة انها تحتوي على امثلة وبسيطة توفر عليك الكثير من الكود
كود :
https://github.com/rareMaxim/Excel4DelphiRE: طريقة جلب المعلومات من ملف الاكسال - ahmedhossin - 05-10-2023
(05-10-2023, 03:10 PM)Delphi4Us كتب : وعليكم السلام ورحمة الله
استخدم هذه الاداة مع انها تحتوي على امثلة وبسيطة توفر عليك الكثير من الكود
كود :https://github.com/rareMaxim/Excel4Delphi
طريقة تحميلها أو العمل بها جزاك الله خيرا
RE: طريقة جلب المعلومات من ملف الاكسال - Delphi4Us - 05-10-2023
طريقة التحميل عن طريق زر اخظر الى اليمين مكتوب عليه 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انشاء الكائن المسؤول
ثم اضافة صفحة لملف اكسيل حيث ان ملف اكسيل يمكن ان يحتوي على عدة صفحات
تم اضافة بيانات وخلايا له
تم حفظه
RE: طريقة جلب المعلومات من ملف الاكسال - ALG2009 - 05-10-2023
شاهد هذه الدروس
https://www.youtube.com/watch?v=fDoeSSRwaKY&t=64s
و
https://www.youtube.com/watch?v=snSCMRdqdn0&t=520s
وهذه القناة
https://www.youtube.com/watch?v=hzmkm2IV9BY&list=PL1c7L5EsigqIyxpyEemaL6mulKVk2A4gh&index=3
و
https://www.youtube.com/watch?v=Hi1Agzy1dEo&list=PL1c7L5EsigqIyxpyEemaL6mulKVk2A4gh&index=2