بسم الله الرحمن الرحيم



أخوانى الكرام أهلا بكم ....قرأة مقال أخى أحمد مناع عن كيفية عرض بيانات ورقة
Excel فى اداة عرض البيانات DataGrid وصراحة ممقال أعجبنى كثيرا ....اليوم أن شاء
الله تعالى سنتعلم سويا موضوع جديد وهو عن كيفية انشاء ملف  Excel من خلال مشروعك
....فيها بنا نبدأ .



1_ قم بفتح مشروع جديد فى الفجوال بيسك 6 ثم أضف زر أمر للنافذة الموجودة فى المشروع .

2_ قم بإضافة المكتبة Microsoft Excel 9.0 Object Library للمشروع وطبعا ربما 
يكون رقم اصدار المكتبة مختلف كما يوجد لدى فلا تقلق من ذلك .

3 _ضع الكود التالى فى زر  الامر تنفيذ :

الكود:

 Dim AppXls As Excel.Application
Dim ObjWb As Excel.Workbook

Set AppXls = CreateObject("Excel.Application")
Set ObjWb = AppXls.Workbooks.Add

ObjWb.Worksheets.Item("Sheet1").Range("A1").Value =
"م"
ObjWb.Worksheets.Item("Sheet1").Range("b1").Value =
"الاسم"
ObjWb.Worksheets.Item("Sheet1").Range("c1").Value = "المبلغ"

ObjWb.SaveAs ("C:\Test.xls")

ObjWb.Close

و النتيجة ....أدخل الى القرص الصلب C ستجد ورقة عمل أكسل يسمى  Test ....أفتحه ستجد البيانات التى قمنا بادخالها موجودة فية ...المشروع فى المرفقات

رائع جدا