27-10-17, 06:05 PM
سلام عليكم
ده كود لتصدير بيانات الى الاكسيل
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
كل ما اريده هو عكس الكود لاستيراد من ملف الاكسيل
بس من خلال هذا الاكود وليس طريقة اخرى
هل ممكن
ده كود لتصدير بيانات الى الاكسيل
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
كل ما اريده هو عكس الكود لاستيراد من ملف الاكسيل
بس من خلال هذا الاكود وليس طريقة اخرى
هل ممكن
صلى الله على نبينا محمد
اخيكم / محمود صالح
قال الزهري رحمه الله
مــا عُـــبـِد الله بشئ أفضل من العلم