طريقة جلب المعلومات من ملف الاكسال

[Delphi4Us]

طريقة التحميل عن طريق زر اخظر الى اليمين مكتوب عليه 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

انشاء الكائن المسؤول
ثم اضافة صفحة لملف اكسيل حيث ان ملف اكسيل يمكن ان يحتوي على عدة صفحات
تم اضافة بيانات وخلايا له
تم حفظه