تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اكسيل مع datagridview
#1
سلام عليكم 
ده كود لتصدير بيانات الى الاكسيل
                           Dim MsExcel = CreateObject("Excel.Application")
                                                            MsExcel.Workbooks.Add()
            MsExcel.Cells(0 + 1).Value = DGV1.Columns(0).HeaderText
            MsExcel.Cells(1 + 1).Value = DGV1.Columns(1).HeaderText
            MsExcel.Cells(2 + 1).Value = DGV1.Columns(2).HeaderText
            MsExcel.Cells(3 + 1).Value = DGV1.Columns(3).HeaderText
       
                                            For I As Integer = 0 To DGV1.Rows.Count - 1
            MsExcel.Cells(I + 2, 1).Value = DGV1.Rows(I).Cells(0).Value
            MsExcel.Cells(I + 2, 2).Value = DGV1.Rows(I).Cells(1).Value
            MsExcel.Cells(I + 2, 3).Value = DGV1.Rows(I).Cells(2).Value
            MsExcel.Cells(I + 2, 4).Value = DGV1.Rows(I).Cells(3).Value
                                                                                                      Next
                                                                                                                                                                                                                                     MsExcel.Visible = True
 كل ما اريده هو عكس الكود لاستيراد من ملف الاكسيل
بس من خلال هذا الاكود وليس طريقة اخرى
هل ممكن
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
تم الشكر بواسطة:
#2
PHP كود :
Dim MsExcel CreateObject("Excel.Application")
MsExcel.Workbooks.Open("d:\book1.xlsx")

DGV1.Columns(0).HeaderText MsExcel.Cells(1).Value
DGV1
.Columns(1).HeaderText MsExcel.Cells(1).Value
DGV1
.Columns(2).HeaderText MsExcel.Cells(1).Value
DGV1
.Columns(3).HeaderText MsExcel.Cells(1).Value

DGV1
.Rows.Clear()
Dim I As Integer 0
Do
 
   If MsExcel.Cells(21).Value "" Then Exit Do
 
   DGV1.RowCount DGV1.RowCount 1
    DGV1
.Rows(I).Cells(0).Value MsExcel.Cells(21).Value
    DGV1
.Rows(I).Cells(1).Value MsExcel.Cells(22).Value
    DGV1
.Rows(I).Cells(2).Value MsExcel.Cells(23).Value
    DGV1
.Rows(I).Cells(3).Value MsExcel.Cells(24).Value
    I 
1
Loop

MsExcel
.Quit() 

    Updated
الرد
تم الشكر بواسطة:
#3
(27-10-17, 07:38 PM)a.ahmed كتب :
PHP كود :
Dim MsExcel CreateObject("Excel.Application")
MsExcel.Workbooks.Add()
Dim xlWorkBook MsExcel.Workbooks.Open("d:\book1.xlsx")

DGV1.Columns(0).HeaderText MsExcel.Cells(1).Value
DGV1
.Columns(1).HeaderText MsExcel.Cells(1).Value
DGV1
.Columns(2).HeaderText MsExcel.Cells(1).Value
DGV1
.Columns(3).HeaderText MsExcel.Cells(1).Value

Dim I 
As Integer 0
DGV1
.Rows.Clear()
Do
 
   If MsExcel.Cells(21).Value "" Then Exit Do
 
   DGV1.RowCount DGV1.RowCount 1
    DGV1
.Rows(I).Cells(0).Value MsExcel.Cells(21).Value
    DGV1
.Rows(I).Cells(1).Value MsExcel.Cells(22).Value
    DGV1
.Rows(I).Cells(2).Value MsExcel.Cells(23).Value
    DGV1
.Rows(I).Cells(3).Value MsExcel.Cells(24).Value
    I 
1
Loop

xlWorkBook
.Close()
MsExcel.Quit() 

تسلم يا كبير
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة فى عرض محتويات DataGridView فى TextBox mr_hso 8 147 18-02-19, 10:52 PM
آخر رد: nabil.1710
  مشكلة كود استيراد ملف اكسيل يقراء لغة واحدة فقط new_programer 4 65 18-02-19, 02:04 AM
آخر رد: new_programer
  برجاء تجربة المثال المرفق لتصدير البيانات الى اكسيل new_programer 7 144 15-02-19, 08:09 PM
آخر رد: new_programer
  [VB.NET] تصدير بيانات من DGV الى ملف اكسيل محمد بوقزاحة 1 94 24-01-19, 03:52 PM
آخر رد: sendbad100
  سؤال بخصوص تحديث بيانات DataGridView abdullhadi999 14 425 09-01-19, 10:56 PM
آخر رد: abdullhadi999
  عرض معلومات ف DatagridView Emam emam 9 394 02-01-19, 03:47 PM
آخر رد: new_programer
  جمع الكمية لصنف واحد داخل datagridview atef_020 24 869 28-12-18, 06:16 PM
آخر رد: atef_020
  مشكلة في حفظ الصورة في sqlite وعرضها في datagridview و pictuer princelovelorn 1 134 26-12-18, 07:08 PM
آخر رد: princelovelorn
  شرط في DataGridView dasktop 5 263 16-11-18, 03:29 PM
آخر رد: عبدالله الدوسري
  [سؤال] مقارنة بين عمودين في datagridview nashnoush 1 155 15-11-18, 12:56 AM
آخر رد: nashnoush

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


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