تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تصدير البيانات إلى إكسل
#1
PHP كود :
Dim excApplication As New Excel.Application
        Dim excWorkbook 
As Excel.Workbook
        Dim excWorksheet 
As Excel.Worksheet

        excWorkbook 
excApplication.Workbooks.Add()
        
excWorksheet excWorkbook.Worksheets("sheet1")

        For 
colheader As Integer 0 To DataGridView1.ColumnCount 1
            excWorksheet
.Cells(1colheader 1) = DataGridView1.Columns(colheader).HeaderText.ToString()

        
Next

        
For As Integer 0 To DataGridView1.SelectedRows.Count 1
            
For As Integer 0 To DataGridView1.ColumnCount 1

                excWorksheet
.Cells(21) = DataGridView1.Rows(i).Cells(j).Value
            Next
        Next

        Dim sfd 
As New SaveFileDialog
        sfd
.Filter "Excel 2003|*.xls|Excel 2007|*.xlsx"
        
If sfd.ShowDialog Windows.Forms.DialogResult.OK Then
            excWorksheet
.SaveAs(sfd.FileName)
        
End If

        
excApplication.Visible True 
إسرائيل إلى زوال ... وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة: abulayth


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشروع التعامل مع قواعد البيانات من خلال الكلاسس viv 10 195 11-05-18, 01:08 PM
آخر رد: viv
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 49 8,626 10-05-18, 03:44 PM
آخر رد: errami11
  اريد مساعدتك في كود النسخة الاحتياطيه للقاعدة البيانات واستراجها ب الفيجوال بيسك nosa 0 62 01-05-18, 05:38 PM
آخر رد: nosa
  [مشروع] البحث بشبيكة البيانات بعد ربطها سعود 25 6,825 19-03-18, 04:52 PM
آخر رد: mikedz
  [مثال] حفظ ملفات لـ PDF و الوورد والاكسيل داخل قاعدة البيانات( تحديث جديد) جميل علي 12 3,041 01-11-17, 09:48 PM
آخر رد: mohamed2316
Rainbow مثال - استيراد البيانات من Excel إلي ListView Genius Live 8 4,718 06-09-17, 07:12 PM
آخر رد: محمد سالم المحترف
  [مشروع] حفظ جدول البيانات كصفحة انترنت sooriaty03 4 1,692 04-04-17, 09:30 PM
آخر رد: naderalbanna
  مشروع أخذ نسخه أحتياطيه من قاعدة البيانات أتمنى يعجبكم adel27 3 1,773 17-03-17, 09:58 AM
آخر رد: IBRA939
  مشروع شامل في قواعد البيانات ابوهديل 15 8,420 17-02-17, 11:05 PM
آخر رد: EnormousSoft
  الاضافة التلقائيه من قاعدة البيانات لاكثر من textbox swengineeer 1 1,303 26-12-16, 04:30 PM
آخر رد: IBRA939

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم