كيفية كتابة صفوف متعددة في Excel باستخدام Vb.Net

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

1

افتح Visual Studio وأنشئ مشروع Visual Basic جديد. انقر على "ملف" ثم "مشروع جديد". عندما يظهر مربع حوار المشروع الجديد ، اختر "Visual Basic / Windows" من العرض الشجري ، انقر فوق رمز "تطبيق نماذج Windows" ، وقم بتسمية المشروع "ExcelTest" ، ثم انقر فوق "موافق". بعد انتظار قصير ، سيظهر مصمم النموذج.

2

قم بإضافة مرجع إلى مكون Excel ActiveX. انقر على "مشروع" من القوائم المنسدلة ، ثم انقر على "إضافة مرجع". انقر على علامة التبويب "COM" ومرر لأسفل إلى "Microsoft Excel". قد يكون هناك أكثر من مثيل واحد من Excel مدرج ، لذا اختر إصدارًا حديثًا متاحًا بسهولة على أجهزة كمبيوتر العملاء.

3

أضف زرًا إلى النموذج. انقر فوق رمز Toolbox لفتح مربع الأدوات ، ثم اسحب زرًا إلى النموذج. انقر بزر الماوس الأيمن على الزر واختر "خصائص". عندما تظهر قائمة الخصائص ، قم بتسمية الزر "btnToExcel" وقم بتغيير خاصية Text إلى "To Excel". انقر الآن على الزر الجديد لفتح نافذة الكود.

4

أضف واردات المكتبة إلى أعلى كود البرنامج كالتالي:

يستورد Microsoft.Office.Interop Imports System.Text Public Class Form1

5

قم بتعريف الحقول الخاصة لكائنات Excel:

Private excelApp = New Excel.Application Private excelDoc كـ Excel.Workbook Private excelSheet كـ Excel.Worksheet الخاص النطاق كـ Excel.Range

6

قم بإنشاء المحتوى الذي سينتقل إلى جدول البيانات ، على سبيل المثال:

Private Sub btnToExcel_Click(sender As System.Object, e As System.EventArgs) Handles btnToExcel.Click Dim txt As New StringBuilder Dim i, j As Integer For i = 1 To 20 For j = 1 To 10 txt.Append(i * j) txt.Append(vbTab) Next txt.AppendLine() Next Clipboard.SetText(txt.ToString) 

يستخدم المحتوى المرسل إلى جدول البيانات في هذا المثال جدول ضرب 10 × 20. يتم إلحاق جميع البيانات بـ StringBuilder بأعمدة مفصولة بأحرف جدولة (vbTab) ويفصل كل صف بنهاية حرف السطر (باستخدام طريقة AppendLine). بعد نسخ كل المحتوى إلى StringBuilder ، يتم وضعه في الحافظة. بمجرد فتح جدول البيانات ، سيقوم الرمز بلصق هذه البيانات في جدول البيانات.

7

افتح جدول البيانات:

excelApp = CreateObject ("Excel.Application") excelApp.Visible = True excelDoc = excelApp.Workbooks.Add () excelSheet = excelDoc.ActiveSheet

هنا ، يقوم البرنامج بإنشاء كائن تطبيق Excel جديد باستخدام طريقة CreateObject ، ثم يقوم بتعيين الخاصية المرئية الخاصة به إلى True لإخبار Excel بإظهار نفسه على الشاشة. ثم يقوم بإنشاء ورقة عمل جديدة ويحصل على مقبض للصفحة النشطة.

8

الصق البيانات في الخلية الأولى من جدول البيانات:

 range = excelSheet.Cells(1, 1) excelSheet.Paste(range) End Sub 

فئة النهاية

احصل على نطاق الخلية الأولى ، ثم الصق محتويات الحافظة في الخلية. تفصل علامات التبويب وموجزات الأسطر بين الأعمدة والصفوف.

9

تشغيل البرنامج. انقر فوق "F5" لبدء البرنامج ، ثم انقر فوق الزر "To Excel" لفتح جدول البيانات وعرضه.