Excel VBA – получить значение ячейки как текст в формате RTF
Я хочу получить форматированный текст ячейки excel как RTF, используя VBA (для хранения форматированного текста в базе данных). Если невозможно получить текст как RTF, как я могу сохранить форматированный текст в базе данных и сохранить форматирование?
Благодаря!
- Создание шаблона rtf с несколькими электронными таблицами (excel)
- как хранить изображение - встроенный RTF в ячейку excel с помощью c #?
- Преобразование RTF (Rich Text Format) кода в обычный текст в Excel
- Богатый текстовый формат (с тегами форматирования) в Excel для неформатированного текста
- Как скопировать RTF-текст в буфер обмена для использования в excel
Если у вас также есть 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