تقييم الموضوع :
  • 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] جملة اتصال بملف اكسيل ٢٠٠٣ بكلمة مرور Mr.H 3 64 منذ 3 ساعة مضت
آخر رد: Amir_Alzubidy
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  فلترة datagridview بدون قاعدة بيانات صالح عبدالله 3 295 02-02-24, 04:07 PM
آخر رد: صالح عبدالله
  [VB.NET] ظهور التاريخ غير مرتب بالأقدم في datagridview مبرمج صغير 1 4 304 26-01-24, 03:41 PM
آخر رد: atefkhalf2004
  [VB.NET] التاريخ في أداة أبو سامر لطباعة DataGridView مبرمج صغير 1 17 629 26-01-24, 01:52 AM
آخر رد: مبرمج صغير 1
  مشكلة في datagridview Adata 4 310 17-01-24, 03:00 PM
آخر رد: aljzazy
Lightbulb [VB.NET] إطهار الصورة بمقاس معين في DataGridView أبو خالد الشكري 2 323 14-12-23, 03:01 PM
آخر رد: أبو خالد الشكري
Question [VB.NET] اسم عمود الأرقام في DataGridView أبو خالد الشكري 6 606 03-12-23, 08:01 AM
آخر رد: أبو خالد الشكري
  [VB.NET] Datagridview Slow حركة بطيئة waataanys 1 294 20-11-23, 04:33 PM
آخر رد: justforit
Heart [سؤال] ♥ إعادة ترتيب صفوف DataGridView ♥ أبو خالد الشكري 2 304 24-09-23, 08:50 AM
آخر رد: أبو خالد الشكري

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


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