AccessTr.neT

Dim Excel As New Microsoft.Office.Interop.Excel.Application()

        excel.Visible = True

        Dim workbook As Microsoft.Office.Interop.Excel.Workbook = excel.Workbooks.Add(System.Reflection.Missing.Value)

        Dim sheet1 As Microsoft.Office.Interop.Excel.Worksheet = DirectCast(workbook.Sheets(1), Microsoft.Office.Interop.Excel.Worksheet)

        Dim StartCol As Integer = 1

        Dim StartRow As Integer = 1



        For j As Integer = 0 To DataGridView1.Columns.Count - 1

            Dim myRange As Microsoft.Office.Interop.Excel.Range = DirectCast(sheet1.Cells(StartRow, StartCol + j), Microsoft.Office.Interop.Excel.Range)

            myRange.Value2 = DataGridView1.Columns(j).HeaderText

        Next

        StartRow += 1

        For i As Integer = 0 To DataGridView1.Rows.Count - 1

            For j As Integer = 0 To DataGridView1.Columns.Count - 1



                Try

                    Dim myRange As Microsoft.Office.Interop.Excel.Range = DirectCast(sheet1.Cells(StartRow + i, StartCol + j), Microsoft.Office.Interop.Excel.Range)

                    myRange.Value2 = If(DataGridView1(j, i).Value Is Nothing, "", DataGridView1(j, i).Value)

                Catch

                End Try



            Next

        Next

        For i As Integer = 0 To DataGridView1.Rows.Count - 1

            For j As Integer = 0 To DataGridView1.Columns.Count - 1

                If j = 3 Then GoTo 100 'Bu satırı ekleyin...

                Try

                    Dim myRange As Microsoft.Office.Interop.Excel.Range = DirectCast(sheet1.Cells(StartRow + i, StartCol + j), Microsoft.Office.Interop.Excel.Range)

                    myRange.Value2 = If(DataGridView1(j, i).Value Is Nothing, "", DataGridView1(j, i).Value)

                Catch

                End Try

100:'Bu satırı ekleyin...

            Next

        Next