كيف استدعي ملف اكسل محفوظ في جهازي

[أبو معاذ]

[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]