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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  شرط في DataGridView dasktop 5 98 أمس, 03:29 PM
آخر رد: عبدالله الدوسري
  [سؤال] مقارنة بين عمودين في datagridview nashnoush 1 45 15-11-18, 12:56 AM
آخر رد: nashnoush
  استفسار عن طريقة نقل البيانات من Datagridview إلى الكريستال ريبورت جيولوجي مبتدئ 2 140 22-10-18, 12:15 AM
آخر رد: جيولوجي مبتدئ
  [VB.NET] استفسار :- بخصوص نقل الداتا من DataGridView عن طريق CheckBoxColumn dubai.eig 3 132 15-10-18, 08:09 PM
آخر رد: عبدالله الدوسري
Photo [VB.NET] مشكلة فى قراءة ملف اكسيل كما فى الصورة المرفقة monm 5 170 05-10-18, 12:26 PM
آخر رد: asemshahen5
Photo [VB.NET] استراد بيانت من ملف الاكسل الى DataGridView كريم جودي 3 153 30-08-18, 09:47 PM
آخر رد: elgokr
  فقدان البيانات بعد إدخالها في ال Datagridview Hazem1 12 441 30-08-18, 01:55 PM
آخر رد: elgokr
  الترقيم التلقائي توقف عن العمل في Datagridview Hazem1 3 218 25-08-18, 09:29 AM
آخر رد: elgokr
  [VB.NET] كيف يُمكن طباعة بيانات Datagridview عندما تكون البيانات أكثر من صفحة واحدة Hazem1 3 225 23-08-18, 08:38 PM
آخر رد: elgokr
  ظهور رسالة خطأ عند الإنتقال إلى حقول ال Datagridview Hazem1 2 130 18-08-18, 06:59 PM
آخر رد: elgokr

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


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