السلام عليكم :
ان تصدير بيانات الداتا كرد للاكسل او للاكسس هي من الامور المهمة جداً ودائما تطلب من
المبرمجين عمل هذا الشيء .. الغـاية من التصدير هو سهـــولة اعداد التــــــقارير بالاكـــسل
وسهولة طباعتها وتنظيمها وكذلك يمكــــــــنك من تقسيم بيانات الداتا كرد ... اي تـــصدرها
بصيغة xls ثم تصــــــفر بيانات الداتا كرد وتملأ بيانــات من جديد وتحفــــــظها مرة اخرى
يعني تصير عندك ورقتين عمل بـصيغة xls وهكذا ... كما يمكنـــــــك من تصدير السجلات
او تصدير الداتا باكملها اي تــــصدير حتى العناويين معها .... وبعد ذلك تكدر تحفـــظها بأي
صيغة من خلال برنامج الاكسل على سبيل المثال بصيغة html , xml , الخ من الصيـــغ
الشرح :
ملاحظة : ( احنة متصلين بقاعدة بيانات بأسم spyman وجدول بأسم spy )
1- يتطلب وجود برنامج office 2003 في جهازك
2- ادخل الى لغة الدوت نت 2008 واضف زر امر واكتب الكود ادناه :
( هذا تصدير قاعدة البيانات mdb. بأكملها الى اكسل وليس الداتا كرد فقط )
كود:Try Dim MsExcel = CreateObject("Excel.Application") MsExcel.Workbooks.Add() For i As Integer = 0 To DataSet1.Tables("spy").Columns.Count - 1 For j As Integer = 0 To DataSet1.Tables("spy").Rows.Count - 1 MsExcel.Columns.HorizontalAlignment = 3 MsExcel.Columns.Font.Name = "Times New Roman" MsExcel.Rows.Item(j + 1).Font.Bold = 1 MsExcel.Rows.Item(j + 1).Font.size = 14 MsExcel.Cells(DataSet1.Tables("spy").Columns.Count).ColumnWidth = 25 MsExcel.Cells(j + 1, i + 1).Value = DataSet1.Tables("spy").Rows(j).Item(i).ToString Next Next MsExcel.Visible = True Catch ex As Exception MsgBox(ex.Message)
3- اما اذا اردنا تصدير الداتا كرد فقط الى ملف اكسل اكتب الكود ادناه :
كود:Try Dim MsExcel = CreateObject("Excel.Application") MsExcel.Workbooks.Add() For i As Integer = 0 To DataGridView1.Columns.Count - 1 MsExcel.Cells(i + 1).Value = DataGridView1.Columns(i).HeaderText Next For i As Integer = 0 To DataGridView1.Columns.Count - 1 For j As Integer = 0 To DataGridView1.Rows.Count - 1 MsExcel.Columns.HorizontalAlignment = 3 MsExcel.Columns.Font.Name = "Times New Roman" MsExcel.Rows.Item(j + 1).Font.Bold = 1 MsExcel.Rows.Item(j + 1).Font.size = 14 MsExcel.Cells(j + 1).ColumnWidth = 14 MsExcel.Cells(j + 2, i + 1).Value = DataGridView1.Rows(j).Cells(i).Value Next Next MsExcel.Visible = True Catch ex As Exception MsgBox(ex.Message) End Try
اتمنى لكم التوفيق
رد مع اقتباس
المشاركة الأصلية كتبت بواسطة Daleen
