(30/04/2013, 19:42)sngl07 yazdı: Datagriddeki verileri exele nasıl aktarabiliriz?

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 = excel.ActiveSheet

        Dim StartCol As Integer = 2 ' excele hangi sütundan yazmaya başlasın

        Dim StartRow As Integer = 1

        Dim liste As New List(Of DataGridViewColumn)

        liste.Add(DataGridView1.Columns(1)) ' datagridin hangi sütunlarını istiyorsan değiştir

        liste.Add(DataGridView1.Columns(2))

        liste.Add(DataGridView1.Columns(3))

        liste.Add(DataGridView1.Columns(4))

        liste.Add(DataGridView1.Columns(5))

        liste.Add(DataGridView1.Columns(6))

        liste.Add(DataGridView1.Columns(7))

        liste.Add(DataGridView1.Columns(8))

        liste.Add(DataGridView1.Columns(9))

        liste.Add(DataGridView1.Columns(10))

        liste.Add(DataGridView1.Columns(11))

        liste.Add(DataGridView1.Columns(12))

        liste.Add(DataGridView1.Columns(13))

        liste.Add(DataGridView1.Columns(14))

        liste.Add(DataGridView1.Columns(15))

        liste.Add(DataGridView1.Columns(16))

        liste.Add(DataGridView1.Columns(17))

        liste.Add(DataGridView1.Columns(18))

        liste.Add(DataGridView1.Columns(19))

        liste.Add(DataGridView1.Columns(20))

        liste.Add(DataGridView1.Columns(21))

        liste.Add(DataGridView1.Columns(22))

        liste.Add(DataGridView1.Columns(23))

        liste.Add(DataGridView1.Columns(24))

        liste.Add(DataGridView1.Columns(25))

        liste.Add(DataGridView1.Columns(26))

        liste.Add(DataGridView1.Columns(27))

        liste.Add(DataGridView1.Columns(28))

        liste.Add(DataGridView1.Columns(29))

        liste.Add(DataGridView1.Columns(30))

        liste.Add(DataGridView1.Columns(31))

        liste.Add(DataGridView1.Columns(32))

        liste.Add(DataGridView1.Columns(33))

        liste.Add(DataGridView1.Columns(34))

        liste.Add(DataGridView1.Columns(35))

        liste.Add(DataGridView1.Columns(36))

        liste.Add(DataGridView1.Columns(37))

        liste.Add(DataGridView1.Columns(38))

        liste.Add(DataGridView1.Columns(39))

        liste.Add(DataGridView1.Columns(40))

        liste.Add(DataGridView1.Columns(41))

        liste.Add(DataGridView1.Columns(42))

        liste.Add(DataGridView1.Columns(43))

        liste.Add(DataGridView1.Columns(44))

        liste.Add(DataGridView1.Columns(45))

        liste.Add(DataGridView1.Columns(46))

        liste.Add(DataGridView1.Columns(47))

        liste.Add(DataGridView1.Columns(48))

        liste.Add(DataGridView1.Columns(49))

        liste.Add(DataGridView1.Columns(50))

        liste.Add(DataGridView1.Columns(51))

        liste.Add(DataGridView1.Columns(52))

        liste.Add(DataGridView1.Columns(53))

        liste.Add(DataGridView1.Columns(54))

        liste.Add(DataGridView1.Columns(55))

        liste.Add(DataGridView1.Columns(56))

        liste.Add(DataGridView1.Columns(57))

        liste.Add(DataGridView1.Columns(58))

        liste.Add(DataGridView1.Columns(59))

        liste.Add(DataGridView1.Columns(60))



        For j As Integer = 0 To liste.Count - 1

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

            myRange.Value2 = liste(j).HeaderText

        Next

        StartRow = 2

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

            For j As Integer = 0 To liste.Count - 1

                Try

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

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

                Catch

                End Try

            Next

        Next

        MsgBox("Aktarım Bitti")