(30/04/2013, 19:42)sngl07 yazdı: Datagriddeki verileri exele nasıl aktarabiliriz?
Butonun click olayına bunu yazınız
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")