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

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

Благодаря!

Если у вас также есть 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 
Interesting Posts

Необходимость CONCATENATE четырех наборов чисел в один набор чисел с ведущими нулями нетронутыми

Выполнение кода VBS в VBA с правами администратора

Таблица MS Word с автоматическим вычислением

vba excel как вставлять значения без форматирования шрифта / цвета / bg

Транспонирование столбцов и удаление строк

Автоматическая настройка ширины столбцов в Excel, исключая определенные ячейки / строки

DevExpress DragDrop в твистерах бросает HRESULT 800ac472

Excel VBA с использованием переменных в ячейках и функции диапазона

VBA Excel. Вставьте строку ниже в том же формате, включая границы и рамки.

Активная ячейка VBA Sum to top

Как объединить две таблицы из двух разных рабочих листов в одну финальную таблицу с разными столбцами?

Измените цвет ячеек на основе значения 4 ячейки в Excel

Заголовки таблиц Excel XML с пробелами

Vlookup, возвращает несколько значений в ячейку

Массовая вставка из Excel в SQLite без файла TXT или CSV

Давайте будем гением компьютера.