Visual Basic Online Course - Excel 2003 Part 4

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

فى الدرس السابق تعلمنا كيفية استيراد البيانات من الـ Excel.

درس اليوم ان شاء الله تعالى يتناول كيفية تصدير Export البيانات الى Excel 2003.

الجـــــــــزء الرابع - تصدير البيانات الى Excel

بعد ان عالجنا كيفية استيراد البيانات فى الجزء السابق, نتعامل الان مع موضوع شبيه و هو تصدير البيانات الى الـ Excel مما يجعل التعامل مع الـ Excel مفيد الى حد كبير و سنقوم بالتطبيق على المثال السابق, لذا قم بتحميله من الدرس السابق.

بداية سنقوم باضافة مفتاح على الفورم بعنوان "تصدير الى الاكسيل" باسم Command2 و المطلوب هو تحديث الجدول الموجود فى الاكسل الذى قمنا باستيراده فى الجزء السابق.

و فى البداية سنقوم باستيراد البيانات أولا عن طريق Command1 و عندما يقوم البرنامج بعرض البيانات سنقوم بتحديث البيانات المعروضه .

فى الحدث Command1_Click سنكتب الكود التالى :

	'Visual Basic Online Course - Excel 2003
	'VB6 Excel2003 Example Project Code
	'http://vb6access2003.blogspot.com
	oXL.Workbooks.Open App.Path & "/ExcelFile.Xls", True, False
	Set oSheet = oXL.Worksheets(1)
	oSheet.Range("L3").Value = Text1.Text
	oSheet.Range("K3").Value = Text2.Text
	oSheet.Range("J3").Value = Dtp1.Value
	oSheet.Range("I3").Value = Text4.Text
	oSheet.Range("H3").Value = Text5.Text
	oSheet.Range("G3").Value = Text6.Text
	oSheet.Range("F3").Value = Text7.Text
	Set oSheet = oXL.ActiveSheet
	oXL.DisplayAlerts = False
	oXL.ActiveWorkbook.Close True, App.Path & "/ExcelFile.Xls"
	oXL.Workbooks.Close
	oXL.Quit
	MsgBox "Updated"

view raw gistfile1.vb hosted with ❤ by GitHub

و ما قمنا به هنا هو كالتالى :

- فتح الاكسل تمهيدا لتصدير البيانات اليه حيث أول معامل هو امتداد+اسم ملف الـ Excel و المعامل الثانى UpdateLinks و المعامل الثالث ReadOnly = False لأننا نقوم بالتعديل عليه .

- تحديد الـ Sheet التى سيتم العمل عليها و هى الـ Sheet الاولى .

- تحديث الخلايا

- تحديد الـ Sheet النشطة حاليا

- الغاء الرسائل التى تظهر من الأكسل

- حفظ التغييرات على الأكسل

- اغلاق الـ Workbook

- الخروج من الاكسل

- اظهار رسالة تفيد الحفظ

لاحظ :

هذه الطريقه هى تبسيط للشرح فقط لكى تتعرف على طريقة التعامل مع Excel و سندرس طرق أكثر تعقيدا فى الدروس القادمه ان شاء الله و لاحظ ايضا انه لا توجد ايا من الطرق التى درسناها تخرج رسائل Error لا من الـ Excel أو من الـ Visual Basic و سنتعرض فيما بعد الى رسائل خطأ كثيره و معالجاتها ان شاء الله تعالى .

حتى الان لم نعمل الا على صف واحد من الخانات فى الـ Excel أى اننا لم نضيف بيانات جديده و للعلم : التعامل مع الـ Excel يمكن أن تجعله شبيه للـ Access و لكن مع الوقت حيث انهما متشابهان فى الكثير جدا .

اسف على الاطاله ......

الى اللقاء فى الجزء القادم ان شاء الله بعنوان "طباعة الإكسل"

Google Us "Evry1falls"'

---

♥ Visual Basic 6.0 Course Online :

• Automate MS-Access Database in Visual Basic 6.0 though a network
• Visual Basic 6.0 Analog Clock
• Visual Basic 6.0 Temperature Convertor
• Visual Basic 6.0, MS-Access 2003 and Crystal Reports - Phone book
• Visual Basic 6.0, MS-Access 2003 Database and DataGridView
• Visual Basic 6.0  FTP full application source code
• Visual Basic 6.0 Color Picker tool source code
• Visual Basic 6.0 TreeView Control lesson (Part1 - Part 2 - Part3 - Part4 - Part5) Arabic.
• Visual Basic 6.0 - Introduction to Graphics (Part1 - Part2 - Part3)  
• Visual Basic 6.0 and MS-Excel 2003 tutorials (Part1 - Part2 - Part3 - Part4 - Part5 - Part6)