EXPORTAR-DADOS-EXCEL

  Public Class clsConvertToExcel

#Region [Ô]Function for converting table into excel file[Ô]


    Sub Load_Excel_Details(ByVal DB_Table As String)


        Dim saveDlg As New SaveFileDialog()

        saveDlg.Filter = [Ô]Todos os Arquivos Microsoft Office Excel | *.xlsx[Ô]
        If saveDlg.ShowDialog = DialogResult.OK Then

            Dim ComDset As New DataSet()
            Dim strSql, filename As String
            Dim col, row As Integer

            strSql = DB_Table

            Using strConexao As OleDbConnection = GetConnection()

                Dim adp As New OleDbDataAdapter(strSql, strConexao)
                ComDset.Reset()
                adp.Fill(ComDset, [Ô]TTbl[Ô])

                If ComDset.Tables.Count < 0 Or ComDset.Tables(0).Rows.Count <= 0 Then
                    Exit Sub
                End If

                Dim Excel As Object = CreateObject([Ô]Excel.Application[Ô])

                If Excel Is Nothing Then
                    MsgBox([Ô]Parece que o Excel não esta instalado na sua maquina. Esta operação necessita do Excel instalado.[Ô], MsgBoxStyle.Critical)
                    Return
                End If

                With Excel
                    .SheetsInNewWorkbook = 1
                    .Workbooks.Add()
                    .Worksheets(1).Select()

                    Dim i As Integer = 1
                    For col = 0 To ComDset.Tables(0).Columns.Count - 1
                        .cells(1, i).value = ComDset.Tables(0).Columns(col).ColumnName
                        .cells(1, i).EntireRow.Font.Bold = True
                        i += 1
                    Next

                    i = 2
                    Dim k As Integer = 1
                    For col = 0 To ComDset.Tables(0).Columns.Count - 1
                        i = 2
                        For row = 0 To ComDset.Tables(0).Rows.Count - 1
                            .Cells(i, k).Value = ComDset.Tables(0).Rows(row).ItemArray(col)
                            i += 1
                        Next
                        k += 1
                    Next

                    filename = saveDlg.FileName
                    .ActiveCell.Worksheet.SaveAs(filename)
                End With

                System.Runtime.InteropServices.Marshal.ReleaseComObject(Excel)

                Excel = Nothing

                [ô] The excel is created and opened for insert value. We most close this excel using this system
                Dim pro() As Process = System.Diagnostics.Process.GetProcessesByName([Ô]EXCEL[Ô])

                Dim ii As Process
                For Each ii In pro
                    ii.Kill()
                Next
                MsgBox([Ô]As informações foram exportadas para o Excel com sucesso. Local do Arquivo: [Ô] & filename & [Ô].[Ô], MsgBoxStyle.Exclamation)

            End Using
        End If
    End Sub

#End Region
End Class 

  Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If Me.dgvContasPagar.RowCount = 0 Then
            MsgBox([Ô]Não existe nenhuma mensalidade para ser exportada para o excel.[Ô], MsgBoxStyle.Information, [Ô]SoftG Empresarial[Ô])
            Exit Sub
        End If
        Me.Cursor = Cursors.WaitCursor
        Dim objclsConvertToExcel As New clsConvertToExcel()
        objclsConvertToExcel.Load_Excel_Details(strSqlExcel)
        Me.Cursor = Cursors.Default

    End Sub