[INDENT]
وعليكم السلام ورحمة الله وبركاته ،
1- للتعامل مع Excel قم بإضافة ComObj إلى قائمة Uses
2- لإنشاء عينة من Excel :
كود :
var
vMSExcel : variant;
begin
vMSExcel := CreateOleObject('Excel.Application');
vMSExcel.Visible := true;
end;
القيمة Visible تعني إذا كن نريد فتح برنامج Excel أو أنه يبقى مخفي.
3- للاتصال بالعينة :
كود :
var
vMSExcel : variant;
begin
vMSExcel := GetActiveOleObject('Excel.Application');
vMSExcel.Visible := true;
end;
4- لغلق Excel :
كود :
var
vMXEcel : variant;
begin
vMSExcel.Quit;
vMSExcel := unassigned;
end;
5- لأنشاء مجلد جديد في Excel :
كود :
var
vXLWorkbook, vXLWorkbooks : variant;
begin
vXLWorkbooks := vMSExcel.Workbooks;
vXLWorkbook := vXLWorkbooks.Add;
end;
بالنسبة لفتح مجلد موجود مسبقا :
كود :
var
vXLWorkbooks, vXLWorkbook : variant;
aFileName : AnsiString;
begin
aFileName := 'c:\Home\Sources\Delphi\classeur1.xls';
vXLWorkbooks := vMSExcel.Workbooks;
vXLWorkbook := vXLWorkbooks.Open(vFileName);
end;
لحفظ المجلد :
كود :
var
vXLWorkbook : variant;
begin
vXLWorkbook.Save;
end;
لغلق المجلد :
كود :
var
vSaveChanges : variant;
aFileName : AnsiString;
begin
vSaveChanges := true;
aFileName := 'c:\Home\Sources\Delphi\Excel\SaveAs.xls';
vXLWorkbook.Close(vSaveChanges, aFileName);
end;
للتصال بورقة Excel في مجلد معين :
كود :
var
aSheetName : AnsiString;
vWorksheet : variant;
begin
aSheetName := 'Feuil2';
vWorksheet := vXLWorkbook.WorkSheets[aSheetName];
end;
للاتصال بخانة معينة:
كود :
var
aRange : AnsiString;
vCell : variant;
begin
aRange := 'D3';
vCell := vWorksheet.Range[aRange];
end;
لقراءة محتوى الخانة :
كود :
var
aValue, aRange : AnsiString;
vCell : variant;
begin
aRange := 'D3';
vCell := vWorksheet.Range[aRange];
aValue := vCell.Value;
end;
لتغيير محتوى الخانة :
كود :
var
aRange, aValue : AnsiString;
vCell : variant;
begin
aRange := 'D3';
vCell := vWorksheet.Range[aRange];
aValue := 'nouveau';
vCell.Value := aValue;
end;
هذه مجموعة أكواد فما عليك إلا المحاولة و نبقى دائما تحت الخدمة.
بالتوفيق.
[/INDENT]