+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف استدعي ملف اكسل محفوظ في جهازي (/showthread.php?tid=3295)
الصفحات:
1
2
كيف استدعي ملف اكسل محفوظ في جهازي - noroaigle - 20-07-2011
السلام عليكم ورحمة الله وبركاته
كيف فتح ملف اكسل مثلا" كشف الاجور" المحفوظ في my document بواسطة زر معين وهذا من خلال الفورم
وبارك الله فيكم.
كيف استدعي ملف اكسل محفوظ في جهازي - أبو معاذ - 20-07-2011
[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 - 20-07-2011
بارك الله فيك اخي الكريم وجعلها في ميزان حسناتك
ساحاول مع هذه المجموعة
شكرا لك
كيف استدعي ملف اكسل محفوظ في جهازي - noroaigle - 20-07-2011
من فضلك اخي unprogramme في اي مجموعة يوجد ComObj لاني لم اجده؟
كيف استدعي ملف اكسل محفوظ في جهازي - أبو معاذ - 20-07-2011
noroaigle كتب :من فضلك اخي 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];كيف استدعي ملف اكسل محفوظ في جهازي - noroaigle - 20-07-2011
اخي هلا تفضلت لي بشرح بالصور ان امكن ذلك واتمنى الا اكون قد ازعجتك
تقبل مني كل الاحترام اخي
كيف استدعي ملف اكسل محفوظ في جهازي - أبو معاذ - 20-07-2011
[INDENT]
تمت الإجابة هنا :
http://www.delphi4arab.net/forum/showthread.php?tid=5689
لا تنس أن تجرب و تخبرنا بالنتيجة.
بالتوفيق إن شاء الله.
[/INDENT]
كيف استدعي ملف اكسل محفوظ في جهازي - noroaigle - 20-07-2011
اخي شكرا لكن عند التنفيذ تطلع صفحة الفورم بيضاء ولا اثر لملف الاكسل
كيف استدعي ملف اكسل محفوظ في جهازي - أبو معاذ - 20-07-2011
[INDENT]
اصبر علي إلى الجمعة القادمة بإذن الله تعالى ،
وسأقوم بتحضير برنامج يجمع كل التعليمات الخاصة ب Excel.
والله المستعان.
[/INDENT]
كيف استدعي ملف اكسل محفوظ في جهازي - noroaigle - 21-07-2011
بارك الله فيك اخي unprogramme على كل مجهوداتك
فخذ وقتك كما تشاء
دمت في حفظ الله ورعايته