المشاركات : 83
المواضيع 28
الإنتساب : Jan 2021
السمعة :
0
الشكر: 11
تم شكره 38 مرات في 25 مشاركات
السلام عليكم اصدقائي
كيف حالكم جميعا
كيف يمكنني تصدير اعمده التي انا احددها عن طريق CheckBox بحيث يتم تصدير الاعمدة المعروضة فقط علي الداتا قريد
شكرا مقدما
المشاركات : 357
المواضيع 50
الإنتساب : Oct 2012
السمعة :
18
الشكر: 899
تم شكره 314 مرات في 143 مشاركات
(20-03-21, 08:42 PM)Ronald كتب : (20-03-21, 07:24 PM)عبدالكريم برشدان كتب : السلام عليكم اصدقائي
كيف حالكم جميعا
كيف يمكنني تصدير اعمده التي انا احددها عن طريق CheckBox بحيث يتم تصدير الاعمدة المعروضة فقط علي الداتا قريد
شكرا مقدما
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim MsExcel = CreateObject("Excel.Application")
MsExcel.Workbooks.Add()
MsExcel.Visible = False
Dim k As New ArrayList
If CheckBox1.Checked Then k.Add(0)
If CheckBox2.Checked Then k.Add(1)
If CheckBox3.Checked Then k.Add(2)
Dim g As Integer
g = 0
For i As Integer = 0 To DataGridView1.Columns.Count - 1
If Not k.Contains(i) Then Continue For
g = g + 1
'MsExcel.Cells(i + 1).Value = DataGridView1.Columns(i).HeaderText
MsExcel.Cells(g).Value = DataGridView1.Columns(i).HeaderText
Next
g = 0
For i As Integer = 0 To DataGridView1.Columns.Count - 1
If Not k.Contains(i) Then Continue For
g = g + 1
For j As Integer = 0 To DataGridView1.Rows.Count - 1
MsExcel.Columns.HorizontalAlignment = 3
MsExcel.Columns.Font.Name = "Times New Roman"
'MsExcel.Rows.Item(j + 1).Font.Bold = 1
'MsExcel.Rows.Item(j + 1).Font.size = 14
MsExcel.Cells(j + 1).ColumnWidth = 14
'MsExcel.Cells(j + 2, i + 1).Value = DataGridView1.Rows(j).Cells(i).Value
MsExcel.Cells(j + 2, g).Value = DataGridView1.Rows(j).Cells(i).Value
Next
Next
If MsgBox("هل تريد فتح الملف", MsgBoxStyle.YesNo, "تصدير البيانات") = MsgBoxResult.Yes Then
'frm_excel.TopMost = False
MsExcel.Visible = True
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
انا ايضاً استفدت من الرد
الف شكر لك
و الشكر موصول لصاحب الموضوع
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
