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

[noroaigle]

السلام عليكم ورحمة الله وبركاته
كيف فتح ملف اكسل مثلا" كشف الاجور" المحفوظ في my document بواسطة زر معين وهذا من خلال الفورم
وبارك الله فيكم.

[أبو معاذ]

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

[noroaigle]

بارك الله فيك اخي الكريم وجعلها في ميزان حسناتك
ساحاول مع هذه المجموعة
شكرا لك

[noroaigle]

من فضلك اخي unprogramme في اي مجموعة يوجد ComObj لاني لم اجده؟

[أبو معاذ]

من فضلك اخي unprogramme في اي مجموعة يوجد ComObj لاني لم اجده؟

[INDENT]
أخي الحبيب ،
ComObj تقوم بإضافتها لقائمة Uses ،

مثال

كود :

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, MemDS, DBAccess, MSAccess, ComCtrls, cxControls, ExtCtrls, Menus, StdCtrls ,[B][color=Red]ComObj [/color][/B];

[/INDENT]

[noroaigle]

اخي هلا تفضلت لي بشرح بالصور ان امكن ذلك واتمنى الا اكون قد ازعجتك
تقبل مني كل الاحترام اخي

[أبو معاذ]

[INDENT]
تمت الإجابة هنا :

http://www.delphi4arab.net/forum/showthr...p?tid=5689

لا تنس أن تجرب و تخبرنا بالنتيجة.
بالتوفيق إن شاء الله.
[/INDENT]

[noroaigle]

اخي شكرا لكن عند التنفيذ تطلع صفحة الفورم بيضاء ولا اثر لملف الاكسل

[أبو معاذ]

[INDENT]
اصبر علي إلى الجمعة القادمة بإذن الله تعالى ،
وسأقوم بتحضير برنامج يجمع كل التعليمات الخاصة ب Excel.

والله المستعان.
[/INDENT]

[noroaigle]

بارك الله فيك اخي unprogramme على كل مجهوداتك
فخذ وقتك كما تشاء
دمت في حفظ الله ورعايته