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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo [VB.NET] استراد بيانت من ملف الاكسل الى DataGridView كريم جودي 3 101 30-08-18, 09:47 PM
آخر رد: elgokr
  فقدان البيانات بعد إدخالها في ال Datagridview Hazem1 12 342 30-08-18, 01:55 PM
آخر رد: elgokr
  الترقيم التلقائي توقف عن العمل في Datagridview Hazem1 3 162 25-08-18, 09:29 AM
آخر رد: elgokr
  [VB.NET] كيف يُمكن طباعة بيانات Datagridview عندما تكون البيانات أكثر من صفحة واحدة Hazem1 3 157 23-08-18, 08:38 PM
آخر رد: elgokr
  ظهور رسالة خطأ عند الإنتقال إلى حقول ال Datagridview Hazem1 2 87 18-08-18, 06:59 PM
آخر رد: elgokr
  [سؤال] كود جمع او ضرب عمودين فى datagridview atef_020 17 7,295 14-08-18, 08:56 PM
آخر رد: elgokr
  [VB.NET] ممكن شرح بكل مايتعلق بـ DataGridView 0theghost0 3 627 14-08-18, 08:55 PM
آخر رد: elgokr
  [سؤال] كيف اقوم بعمل فلتر DataGridView مرسل لها البيانات من فورم اخري dametucorazon 12 382 10-07-18, 06:03 PM
آخر رد: elgokr
  datagridview autofilter library abu ammar 3 175 09-07-18, 02:52 PM
آخر رد: elgokr
Smile سؤال في ما يخص جمع كمية الاصناف على DataGridView kalammoufid 3 235 14-06-18, 07:54 PM
آخر رد: elgokr

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


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