Excel VBA - получить значение ячейки как текст в формате RTF

Question

Я хочу получить форматированный текст ячейки excel как RTF, используя VBA (для хранения форматированного текста в базе данных). Если невозможно получить текст как RTF, как я могу сохранить отформатированный текст в базе данных и сохранить форматирование?

Спасибо!

Answer 1

Если у вас также есть Word, вы можете использовать Automation. Следующий код скопирует ячейку в новое приложение Word и сохранит ее как файл rtf.

Sub SaveRTF() 
    Dim objWD As Word.Application 
    Dim wdDoc As Word.Document 

    Set objWD = CreateObject("Word.Application") 
    objWD.Documents.Add 
    Set wdDoc = objWD.ActiveDocument 
    wdDoc.Select 
    ThisWorkbook.Worksheets("Sheet1").Cells(1, 1).Copy 'Change cell reference and sheet name 
    objWD.Selection.Paste 
    wdDoc.SaveAs2 "C:\\Users\\YourName\\Documents\\FormatFile.rtf", wdFormatRTF 'Change File Name here 
    wdDoc.Close 

    Set wdDoc = Nothing 
    Set objWD = Nothing 
End Sub