VB.NETであるプログラムを作成しています。
DBと接続してデータグリッドビューにテーブルの情報を表示しています。
そこで、出力ボタンを押下した際にデータグリッドビューに表示しているデータをExcelに入力できるようにしたいです。
Excelにはあらかじめカラム名だけ書いていて後はそこにデータを入力していきたいです。 
  '出力ボタン
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim app As Excel.Application = Nothing
        Dim book As Excel.Workbook = Nothing
        Dim sheet As Excel.Worksheet = Nothing

        Try
            app = New Excel.Application()

            app = CreateObject("Excel.Application")
            book = app.Workbooks.Open("C:\form3\Book1.xlsx")
            sheet = book.Worksheets(1)

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

                    sheet.Range("A2").Value = "aaa"
                    sheet.Range("B2").Value = "ab"
                    sheet.Range("C2").Value = "abc"
                    sheet.Range("D2").Value = "a"
                    sheet.Range("E2").Value = "a"
                'Next
            'Next
                app.Visible = True

                System.Threading.Thread.Sleep(5000)

                book.Save()
                app.Quit()

        Catch ex As Exception
            Throw ex

        Finally
            Marshal.ReleaseComObject(sheet)
            Marshal.ReleaseComObject(book)
            Marshal.ReleaseComObject(app)

        End Try


    End Sub


一応今はこれでExcelにベタ書きで文字を入力することはできています。
お願いします。 
for文で回して出力していくと思うのですが書き方がわかっていません。。。