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

Question

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

谢谢!

Answer 1

如果您还有 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