كيفية نقل البيانات الى word أو excel

مغلق

بدأه أبو بيهس في 14 نوفمبر 2004 · 9 رد · 4,524 مشاهدة · في لغة Delphi

#114 نوفمبر 2004 في 20:53 صاحب الموضوع

1-كيف يمكنني نقل البيانات من تطبيق delphi الى template موجود في word أو excel ؟

2-كيفية التعامل مع تطبيق word أو excel من خلال delphi؟

#214 نوفمبر 2004 في 23:29

لا اعلم ذلك بدلفي ولكن اليك طريقة سريعة اخرى

حول هذه البيانات الى HTML باضافة ال TAG الخاصة بلغة HTML و بالنهاية احفظ الملف بامتداد (.DOC) من اجل ال WORD او ك (.xls) من اجل اكسل وسوف يتعرف عليها البرامج كمستندات

جديد مدونتي الشخصية http://www.badwi.com

ادعو لنا بظاهر الغيب

#315 نوفمبر 2004 في 00:51

اقتباس
كيفية التعامل مع تطبيق word أو excel من خلال delphi؟

يوجد العديد من الطرق ... منها ماتفضل به الأخ محمد .

وسأضيف كذلك طرق خاصة بدلفي :

1- بإستخدام المكونات الخاصة بالأوفيس في الصفحة Servers في نهايه شريط أدوات دلفي .

وكمثال عليها بإمكانك مثلا وضع المكون WordApplication والتحكم الكامل في الوصول ل Woed .

كمثال بإمكانك طباعة ملف وورد من مكانه (دون فتحة بالوورد ) بواسطة الشفرة :

procedure TForm1.Button1Click(Sender: TObject);

var
FileName: OleVariant;
begin
if OpenDialog1.Execute then
begin
FileName := OpenDialog1.FileName;
WordApplication1.Documents.Open(FileName,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam);
WordApplication1.ActiveDocument.PrintOut(
EmptyParam,EmptyParam,EmptyParam,
EmptyParam, EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
end;
end;

ملاحظة عندي OfficeXP ..

2- أو أيضا طريقة من أروع الطرق وهي إستخدام المكون OLEContaiener :

من الصفحة System في شريط أدوات دلفي إختر المكون OLEContaiener .

إنقر علية نقر مزدوج , وأختر بعد ذلك أي نوع من وثائق Office . من أجل Word إختر "Microsoft Ducument" . بإمكانك ترك الخيار Creae New .

ثم قم بتنفيذ البرنامج وبمجرد النقر مرتين على المكون OLE ستحصل على نافذة لبرنامج Word من ضمن برنامجك ..

هذة الطريقة جيدة للتعامل المباشر مع Word من البرنامج . أما لإنشاء مستندات Word والتعديل عليها دون قتح واجهه له , إستخدم المكونات السابقة .. (من الصفحة Servers )

ربما توجدة عدة طرق أخرى يفيدك بها بعض الأخوة

تم تعديل هذه المشاركة بواسطة ORWA في 15 نوفمبر 2004 في 00:54

#416 نوفمبر 2004 في 19:55

أشكر الأخ محمد والأخ عروة على ما تفضلوا به

ولكن ربما لم أستطع إيصال الفكرة بشكل جيد

لدي قاعدة بيانات وعدة تقارير على هذه القاعدة وأريد بدلا من طباعة التقارير

أن أقوم بطباعنها في word أو excel

والسؤال كيف يمكنني نقل البيانات من القاعدة الى tamplat مشابه للتقرير الذي لدي

ولكم جزيل الشكر أخواني

#516 نوفمبر 2004 في 21:55

نعم . لايوجد مشكلة إبحث عن معلومات حول WordApplication وستجد فيها كل طرق ووسائل التحكم بمستندات Word . ((ستجد أدوات لكل الأوفيس أيضا ))

وكي أسهل عليك الطريق سأضع هذا الكود لبناء ملف وورد برمجيا ووكتابة عبارة فية . (مع إني لا أفضل الشفرات الجاهزة , وبرأيي أهم شيء أن تبحث عن الموضوع لوحدك ونحن نساعدك بحل المشاكل التي تواجهك . .. تذكر أنه ليس من الجيد طلب شفرة جاهزة ) :

uses
   ComObj;
....
..
..



procedure TForm1.Button1Click(Sender: TObject);
var
   WordApplication, WordDocument: Variant;
begin
   WordApplication := CreateOleObject('Word.Application');
   WordDocument := WordApplication.Documents.Add;
   WordApplication.Selection.TypeText('Hello world');
   WordDocument.SaveAs(FileName := 'C:\Doc.Doc',
                       AddToRecentFiles := False);
   WordApplication.Quit(False)
end;