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

[size=18] ممكن ارسال نص من نموذج مشروعك الى ورقة اكسل باستخدام اداة Microsoft Excel
وهذا الكود يوضح ذلك حيث ترسل النص من Text1 الى ملف اكسل مكون من عشرة اعمدة وعشرة صفوف

Dim XLA As Excel.Application
Dim XLW As Excel.Workbook
Dim XLS As Excel.Worksheet

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer

Set XLA = New Excel.Application
Set XLW = XLA.Workbooks.Add
Set XLS = XLW.Worksheets(1)

For i = 1 To 10
For j = 1 To 10
XLS.Cells(i, j) = Text1.Text
Next j
Next i

XLS.SaveAs "c:\testprint.xls"
XLW.Close False
Set XLW = Nothing
Set XLA = Nothing
End Sub

في هذا الكود تم ارسال البيان الموجود بالنص الى ورقة اكسل ويتم حفظها في القرص C باسم Testprint[/size]

مع تحيات منتديات نوردين المتطورة

» كود الطباعة لل MSflexGrid داخل الفيجوال بيسك