تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 32 2,671 17-01-17, 06:24 AM
آخر رد: جميل علي
  مشروع شامل في قواعد البيانات ابوهديل 13 6,313 26-12-16, 04:46 PM
آخر رد: IBRA939
  مشروع أخذ نسخه أحتياطيه من قاعدة البيانات أتمنى يعجبكم adel27 2 853 26-12-16, 04:36 PM
آخر رد: IBRA939
  الاضافة التلقائيه من قاعدة البيانات لاكثر من textbox swengineeer 1 684 26-12-16, 04:30 PM
آخر رد: IBRA939
  [مثال] حفظ ملفات لـ PDF و الوورد والاكسيل داخل قاعدة البيانات( تحديث جديد) جميل علي 9 1,180 02-12-16, 03:40 PM
آخر رد: thecareep
  مثال لنسخ وإستعادة قاعدة البيانات mysql صبري زينوبي 2 278 29-09-16, 05:06 PM
آخر رد: صبري زينوبي
Rainbow مثال - استيراد البيانات من Excel إلي ListView Genius Live 7 3,604 28-09-16, 01:16 AM
آخر رد: adel27
  تصدير للاكسيل walkady 6 462 14-06-16, 06:46 AM
آخر رد: aliday03
  استيراد البيانات من إكسل khodor1985 5 951 10-04-16, 06:06 PM
آخر رد: ghaner joseph
Information مثال صغير لعرض البيانات وحذف صف بكلمة سر boudyonline 0 360 18-02-16, 10:05 PM
آخر رد: boudyonline

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


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