'Работа с существующей книгой EXCEL'а взята из:
'Э.Уэллс, С.Хешбаргер. Microsoft Excel 97.
'Разработка приложений - СПб.: БХВ - Санкт-Петербург, 1998 . -  624  с.,илл.
'Глава 10. Подключение приложений к программам на VBA Excel. стр.487
'
Screen.MousePointer = vbHourglass
Dim appExcel As Object          'Позднее связывание
Dim wSh As Excel.Worksheet
Set wSh = GetObject(whnXlsFile, "Excel.Sheet").Worksheets(1)
Dim r As Range, NR As Long, i As Long, C As Long, f As Long
Set r = wSh.UsedRange
NR = r.Rows.Count
With frmMain.wndGrid                 'vsFlexGrid
    .Sort = flexSortNone                'Запрещаем сортировку строк текста!!!
    .Rows = NR + 1
    .Cols = 1
    .TextMatrix(0, 0) = "Что нового в текущей версии?"
    .FixedAlignment(0) = flexAlignCenterCenter          'Этот заголовок центрируем.
    For i =  1  To NR
        .Cell(flexcpTextStyle, i,  0 ) = flexTextFlat
        .TextMatrix(i,  0 ) = r.Cells(i,  1 ).Text          'Извлекаем текст из ячейки Excel
        C = r.Cells(i, 1).Interior.Color                'Извлекаем цвет фона из ячейки Excel
        f = r.Cells(i,  1 ).Font.Color                    'Извлекаем цвет шрифта из ячейки Excel
        .Cell(flexcpBackColor, i, 0) = C
        .Cell(flexcpForeColor, i, 0) = f
        Select Case r.Cells(i, 1).HorizontalAlignment   'переносим выравнивание:
            Case XlHAlign.xlHAlignLeft
                .Cell(flexcpAlignment, i,  0 ) = flexAlignLeftCenter
            Case XlHAlign.xlHAlignCenter
                .Cell(flexcpAlignment, i,  0 ) = flexAlignCenterCenter
            Case XlHAlign.xlHAlignRight
                .Cell(flexcpAlignment, i,  0 ) = flexAlignRightCenter
            Case Else
                .Cell(flexcpAlignment, i,  0 ) = flexAlignGeneral
        End Select
        Dim FSt As Excel.Font
        Set FSt = r.Cells(i,  1 ).Font
        If FSt.Bold Then .Cell(flexcpFontBold, i,  0 ) = True
        If FSt.Italic Then .Cell(flexcpFontItalic, i,  0 ) = True
        If FSt.Underline Then .Cell(flexcpFontUnderline, i,  0 ) = True
    Next i
Set wSh = Nothing
    .AutoSize  0 
    .Redraw = flexRDDirect
    DoEvents
    .SaveGrid whnStdFile, flexFileAll
End With