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

Excel VBA - 将单元格值作为RTF格式的文本

1 个答案: