excel - Excel VBA-以RTF格式的文本获取单元格值

我想使用VBA获取Excel单元格的格式文本作为RTF（以将格式文本存储在数据库中）。
如果无法将文本转换为RTF，如何将格式化的文本存储在数据库中并保持格式？

谢谢！

最佳答案

如果您也有Word，则可以使用自动化。以下代码将单元格复制到新的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