merhabalar
ben bir tablomda 30915 kayıt mevcut bir butona tıklayın Sql tablomdan direk Excel aktarmasını istiyorum google v.s gibi sitelerde bir çok kod buldum denemedım ve veri aktarma çok yavaş Access daha hızlı kalıyordu bu konuda Access gönder dedimde hemen açıyor ama şimdi bunu VB.net göre yapmaya çalışıyorum burada takıldım bu konuda yardım edermisiniz
hızlı aktarmasını istiyorum benım buldugum kodlar 15 dk geçiyor daha aktarma bitemiyor yardımcı olursanız sevinirim

herkeze hayırlı ramazanlar

(06/06/2016, 03:47)ramazanemrullah yazdı: merhabalar
ben bir tablomda 30915 kayıt mevcut bir butona tıklayın Sql tablomdan direk Excel aktarmasını istiyorum google v.s gibi sitelerde bir çok kod buldum denemedım ve veri aktarma çok yavaş Access daha hızlı kalıyordu bu konuda Access gönder dedimde hemen açıyor ama şimdi bunu VB.net göre yapmaya çalışıyorum burada takıldım bu konuda yardım edermisiniz
hızlı aktarmasını istiyorum benım buldugum kodlar 15 dk geçiyor daha aktarma bitemiyor yardımcı olursanız sevinirim

herkeze hayırlı ramazanlar

Verilerinizin dataridde listelendiğini varsayarak cevaplıyorum.

Public Sub Excele_Aktar(ByVal Datagrid As DataGridView)



        Dim rowsTotal, colsTotal As Short

        Dim I, j, iC As Short

        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor

        Dim xlApp As New Excel.Application

        Try

            Dim excelBook As Excel.Workbook = xlApp.Workbooks.Add

            Dim excelWorksheet As Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)

            xlApp.Visible = True

            rowsTotal = Datagrid.RowCount - 1

            colsTotal = Datagrid.Columns.Count - 1

            With excelWorksheet

                .Cells.Select()

                .Cells.Delete()

                For iC = 0 To colsTotal

                    .Cells(1, iC + 1).Value = Datagrid.Columns(iC).HeaderText

                Next

                For I = 0 To rowsTotal - 1



                    'For j = 0 To colsTotal - 1

                    For j = 0 To colsTotal

                        .Cells(I + 2, j + 1).value = Datagrid.Rows(I).Cells(j).Value

                    Next j





                Next I

                '.Rows("1:1").Font.FontStyle = "Bold"

                '.Rows("1:1").Font.Size = 10

                .Cells.Columns.AutoFit()

                .Cells.Select()

                .Cells.EntireColumn.AutoFit()

                .Cells(1, 1).Select()

            End With

        Catch ex As Exception

            MsgBox("Aktarım Hatası " & ex.Message)

        Finally

            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default

            xlApp = Nothing

        End Try



    End Sub

Private Sub ExcellAktar_Click(sender As Object, e As EventArgs) Handles ExcellAktar.Click

        Excele_Aktar(DataGridView1)

    End Sub

(08/02/2017, 17:26)drummers yazdı:

(06/06/2016, 03:47)ramazanemrullah yazdı: merhabalar
ben bir tablomda 30915 kayıt mevcut bir butona tıklayın Sql tablomdan direk Excel aktarmasını istiyorum google v.s gibi sitelerde bir çok kod buldum denemedım ve veri aktarma çok yavaş Access daha hızlı kalıyordu bu konuda Access gönder dedimde hemen açıyor ama şimdi bunu VB.net göre yapmaya çalışıyorum burada takıldım bu konuda yardım edermisiniz
hızlı aktarmasını istiyorum benım buldugum kodlar 15 dk geçiyor daha aktarma bitemiyor yardımcı olursanız sevinirim

herkeze hayırlı ramazanlar

Verilerinizin dataridde listelendiğini varsayarak cevaplıyorum.

Public Sub Excele_Aktar(ByVal Datagrid As DataGridView)



        Dim rowsTotal, colsTotal As Short

        Dim I, j, iC As Short

        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor

        Dim xlApp As New Excel.Application

        Try

            Dim excelBook As Excel.Workbook = xlApp.Workbooks.Add

            Dim excelWorksheet As Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)

            xlApp.Visible = True

            rowsTotal = Datagrid.RowCount - 1

            colsTotal = Datagrid.Columns.Count - 1

            With excelWorksheet

                .Cells.Select()

                .Cells.Delete()

                For iC = 0 To colsTotal

                    .Cells(1, iC + 1).Value = Datagrid.Columns(iC).HeaderText

                Next

                For I = 0 To rowsTotal - 1



                    'For j = 0 To colsTotal - 1

                    For j = 0 To colsTotal

                        .Cells(I + 2, j + 1).value = Datagrid.Rows(I).Cells(j).Value

                    Next j





                Next I

                '.Rows("1:1").Font.FontStyle = "Bold"

                '.Rows("1:1").Font.Size = 10

                .Cells.Columns.AutoFit()

                .Cells.Select()

                .Cells.EntireColumn.AutoFit()

                .Cells(1, 1).Select()

            End With

        Catch ex As Exception

            MsgBox("Aktarım Hatası " & ex.Message)

        Finally

            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default

            xlApp = Nothing

        End Try



    End Sub

Private Sub ExcellAktar_Click(sender As Object, e As EventArgs) Handles ExcellAktar.Click

        Excele_Aktar(DataGridView1)

    End Sub

merhaba böyle aktarma yapabiliyorum fakat çok yavaş yapıyor aktarmayı bu kadar kayıt 1 saat te bitmiyor daha hızlı bir şekilde DataGridView1' ile deilde direk tablodan excele atsam cok iyi olur

Örnek projenizi ekleyin yardımcı olmaya çalışalım.