''' <summary>
    ''' Выгрузить данные в Эксель
    ''' </summary>
    ''' <param name="objGrid"></param>
    ''' <remarks></remarks>
    Public Shared Sub ExportToExcel(ByVal objGrid As DataGridView)
        If objGrid Is Nothing Then Return
        Dim oApp                 ' Объект MS EXCEL.APPLICATION
        Dim oWorkbook            ' Объект MS EXCEL.WORKBOOK
        Dim oSheet               ' Объект MS EXCEL.SHEET

        Dim frmWait As frmWaiting = New frmWaiting()
        frmWait.Show()

        Try
            frmWait.Message = "Открываем MS Excel"

            oApp = GetObject("", "Excel.Application")
            oWorkbook = oApp.WorkBooks.Add()
            oSheet = oApp.Sheets(1).Select()

            frmWait.Message = "Формируем заголовок"

            ' Формируем заголовок
            Dim nCount As Integer = 1
            For Each Item As DataGridViewColumn In objGrid.Columns
                If Item.Visible Then
                    oApp.Cells(1, nCount).Value = Item.HeaderText.ToString
                    oApp.Cells(1, nCount).Font.Bold = True

                    oApp.Cells(1, nCount).Font.Bold = True
                    nCount += 1
                End If
            Next

            frmWait.Message = "Формируем данные"

            ' Формируем данные
            Dim nCountRow As Integer = 2
            nCount = 1

            For Each RowItem As DataGridViewRow In objGrid.Rows
                nCount = 1
                For Each ColumnItem As DataGridViewColumn In objGrid.Columns
                    If ColumnItem.Visible Then
                        oApp.Cells(nCountRow, nCount).Value = RowItem.Cells(ColumnItem.Name).Value.ToString
                        nCount += 1
                    End If
                Next
                nCountRow += 1
            Next

            frmWait.Close()
            oApp.Visible = True
        Catch ex As Exception
            oApp = Nothing
            frmWait.Close()

            MsgBox("Ошибка при открытии MS Excel!" + vbCrLf + ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Ошибка")
        End Try

    End Sub