Экспорт поля в формате RTF в ячейку Excel

Новичок2012
Дата: 20.01.2016 11:54:51
Добрый день!

Не получается организовать выгрузку данных из поля таблицы 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, но в свойствах этого метода нигде не указать формат данных(

Помогите, пжл, если знаете как )
Новичок2012
Дата: 20.01.2016 11:55:44
An12
Дата: 20.01.2016 13:54:54
через костыль - через Word
Новичок2012
Дата: 20.01.2016 16:26:50
An12,

Попробовала сначала вставить в Word, но результат тот же - текст с HTML тегами

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 oW = CreateObject("Word.Application")
oW.Documents.Add
Selection.TypeText (rstA.Fields(0).Value)
oW.Visible = True

End Function


Может есть какой то другой метод, не TypeText ?
Akina
Дата: 20.01.2016 16:35:19
Попробуйте .Paste при установленном RTFInClipboard.
An12
Дата: 22.01.2016 13:54:28
An12
Дата: 22.01.2016 14:24:53
Serg197311
Дата: 24.04.2018 18:07:01
Access 2013
Есть таблица с полем длинный текст формата rtf, есть поле на форме с тем же форматом. Все работает и отображается правильно.
Нужно это поле вставить в ячейку Excel. Прямые попытки дают тот же результат что описано выше. функцию из "тут" пробовал - но она почему то у меня грузит в буфер не .rtf , а текст с тегами.... Соответственно и вставляет так же...
Пример из "здесь" не понял как использовать..... как установить RTFlnClipboard не знаю..... Помогите, кто сможет.... опыта у меня немного .....
Serg197311
Дата: 24.04.2018 18:26:01
вставить надо поле из таблицы, а не с формы....
Через рекордсет и Dlookup пробовал....
ПЕНСИОНЕРКА
Дата: 24.04.2018 20:15:54
Serg197311,

я через НТМ делаю(с небольшой руганью)