Export DataGridView to Excel without invisible columns

try this

Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal 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 Excel.Workbook = xlApp.Workbooks.Add
            Dim excelWorksheet As Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)
            xlApp.Visible = True
            rowsTotal = DataGridView1.RowCount - 1
            colsTotal = DataGridView1.Columns.Count - 1
 
            With excelWorksheet
                .Cells.Select()
                .Cells.Delete()
                dim curCol as short=0
                For iC = 0 To colsTotal
                if DataGridView1.Columns(iC).visible then
                          .Cells(1, curCol + 1).Value = DataGridView1.Columns(iC).HeaderText
                      curCol += 1
                    Endif

                Next
 
                For I = 0 To rowsTotal
                curCol =0
                    For j = 0 To colsTotal
                      if DataGridView1.Columns(iC).visible then
                                .Cells(I + 2, curCol + 1).value = DataGridView1.Rows(I).Cells(j).Value
                            curCol += 1
                          Endif
      
                    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
            'RELEASE ALLOACTED RESOURCES
            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
            xlApp = Nothing
 
        End Try
 
 
       
    End Sub
 
 
End Class
 

thanks, the code works perfect!

thanks a lot!