السلام عليكم و رحمة الله و بركاته عندي برنامج و اريد وضع فيه برنامج الاكسال و اريد طريقة
جلبه إلى البرنامج بحيث عندما يتم ملء برنامج الاكسال و تضعه في البرنامج يمتلء البرنامج اتوماتيكا بارك الله فيكم
وعليكم السلام ورحمة الله
استخدم هذه الاداة انها تحتوي على امثلة وبسيطة توفر عليك الكثير من الكود
كود :
https://github.com/rareMaxim/Excel4Delphi
(05-10-2023, 03:10 PM)Delphi4Us كتب : [ -> ]وعليكم السلام ورحمة الله
استخدم هذه الاداة مع انها تحتوي على امثلة وبسيطة توفر عليك الكثير من الكود
كود :
https://github.com/rareMaxim/Excel4Delphi
طريقة تحميلها أو العمل بها جزاك الله خيرا
طريقة التحميل عن طريق زر اخظر الى اليمين مكتوب عليه 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
انشاء الكائن المسؤول
ثم اضافة صفحة لملف اكسيل حيث ان ملف اكسيل يمكن ان يحتوي على عدة صفحات
تم اضافة بيانات وخلايا له
تم حفظه