Добрый день!

Не получается организовать выгрузку данных из поля таблицы Access в Excel.

Я создала таблицу, в ней поле, формат MEMO, в свойствах поля указала формат текста RTF

Мне необходимо выгрузить это поле на лист Excel. Написала код :

Function ExportTableToExcel()
Dim sSql As String
Dim rstA As Recordset
Dim i As String
i = 1
sSql = "SELECT FieldRTF FROM Table1"
Set rstA = CurrentDb.OpenRecordset(sSql)
Set oXL = CreateObject("Excel.Application")
oXL.Workbooks.Add
Do Until rstA.EOF = True
    oXL.Cells(i, 1) = rstA.Fields(0).Value
    rstA.MoveNext
    i = i + 1
Loop
oXL.Visible = True
End Function

Но на листе я получаю текст с HTML тегами

Думала может можно как то через PastSpecial, но в свойствах этого метода нигде не указать формат данных(

Помогите, пжл, если знаете как )

http://www.sql.ru/forum/1196242/eksport-polya-v-formate-rtf-v-yacheyku-excel