عند التصدير من datagridview الى اكسل يظهر الحقول المخفية فارغة كيف يمكن عدم ظهورها نهائياً؟

السلام عليكم ..

تم التعديل على كود رز التصدير كمايلي :

	Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    	Dim rowsTotal, colsTotal As Short
    	Dim I, j, iC As Short
    	System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
    	Dim xlApp As New Excel.Application
    	Try
        	Dim excelBook As Microsoft.Office.Interop.Excel.Workbook = xlApp.Workbooks.Add
        	Dim excelWorksheet As Microsoft.Office.Interop.Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)
        	xlApp.Visible = True
        	rowsTotal = DataGridView1.RowCount - 1
        	colsTotal = DataGridView1.Columns.Count - 1
        	Dim currCol As Integer = 1
        	With excelWorksheet
            	.Cells.Select()
            	.Cells.Delete()
            	For iC = 0 To colsTotal

                	If DataGridView1.Columns(iC).Visible = True Then
                    	.Cells(1, currCol).Value = DataGridView1.Columns(iC).HeaderText
                    	currCol = currCol + 1
                	End If

            	Next


            	For I = 0 To rowsTotal
                	currCol = 1
                	For j = 0 To colsTotal
                    	If DataGridView1.Columns(j).Visible = True Then
                        	.Cells(I + 2, currCol).value = DataGridView1.Rows(I).Cells(j).FormattedValue
                        	currCol = currCol + 1
                    	End If
                	Next j
            	Next I

            	.Rows("1:1").Font.FontStyle = "Bold"
            	.Rows("1:1").Font.Size = 10
            	.Cells.Columns.AutoFit()
            	.Cells.Select()
            	.Cells.EntireColumn.AutoFit()
            	.Cells(1, 1).Select()
        	End With
    	Catch ex As Exception
        	MsgBox("Export Excel Error " & ex.Message)
    	Finally
        	System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
        	xlApp = Nothing
    	End Try
	End Sub

بسم الله الرحمن الرحيم

بارك الله فيك اخي الكريم تم تجربه الكود ويعمل 100/100

السلام عليكم ...

بارك الله بك أخي .. بالتوفيق