Kod:
Dim excel As Excel.Application
Dim kitap As Excel.Workbook
Dim sayfa As Excel.Worksheet
excel = CreateObject("excel.aplication")
kitap = excel.woorkbooks.add
sayfa = kitap.Worksheets(1)
For yaz = 1 To DataGridView1.RowCount
sayfa.Cells(yaz, 1).value = DataGridView1.Rows(yaz - 1).Cells(0).Value
sayfa.Cells(yaz, 2).value = DataGridView1.Rows(yaz - 1).Cells(1).Value
sayfa.Cells(yaz, 3).value = DataGridView1.Rows(yaz - 1).Cells(2).Value
Next
sayfa.cells(1, 1).value = "isim"
sayfa.cells(1, 2).value = "soy isim"
sayfa.cells(1, 3).value = "yaş"
kitap.SaveAs(TextBox12.Text)
MsgBox("aktarma tamamlandı")