شرح كيفية إنشاء ورقة عمل Excel من خلال الفجوال بيسك 6

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

شرح كيفية إنشاء ورقة عمل Excel من خلال الفجوال بيسك 6

مُساهمة من طرف NEXT في الجمعة نوفمبر 02, 2012 3:11 pm

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



أخوانى الكرام أهلا بكم ....قرأة مقال أخى أحمد مناع عن كيفية عرض بيانات ورقة
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 ....أفتحه ستجد البيانات التى قمنا بادخالها موجودة فية ...المشروع فى المرفقات
المرفقات
Excel.Workbook.zip لا تتوفر على صلاحيات كافية لتحميل هذه المرفقات.(2 Ko) عدد مرات التنزيل 31

NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 262
النقاط : 378
التقيم : 10
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: شرح كيفية إنشاء ورقة عمل Excel من خلال الفجوال بيسك 6

مُساهمة من طرف بنت البلد في الجمعة نوفمبر 02, 2012 8:28 pm

رائع جدا

بنت البلد
....
....

تاريخ التسجيل : 18/02/2011
المساهمات : 66
النقاط : 126
التقيم : 6
الجنس : انثى

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى