excel - VB.net，将 RTF 文本框内容导出到 Excel 单元格

问题描述

我有一个 RichTextFormat 文本框，它包含多行、粗体、下划线和斜体文本。我需要将文本和字体样式都粘贴到 Excel 单元格中，因此“ SAMPLE ”仍将是“ SAMPLE ”而不是“SAMPLE”或“SAMPLE\b0\par”。

我目前尝试过

ExcelApp.Range("C2").Value = RTFTB.Rtf

那给了我

{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fnil\fcharset0 Calibri;}} \viewkind4\uc1\pard\b\f0\fs23 SAMPLE BOLD\b0\par \par \i SAMPLE ITALIC\ i0\par \par \ul SAMPLE UNDERLINE\par \par \ulnone SAMPLE NORMAL\par }

（RTF 代码）

和

ExcelApp.Range("C2").Value = RTFTB.Text

那给了我

粗体样例

斜体示例

下划线示例

样品正常

（没有字体样式）

标签： excelvb.netinteroprtf

使用剪贴板传输信息不是我喜欢提出的解决方案。但是，如果不将 RTF 转换为一系列 UI 自动化命令以模拟将文本添加到 Excel 并对其进行格式化，我就无法实现您的目标。

以下方法可用于将 RTF 作为 Html 放置在剪贴板上。它Webbrowser在可编辑模式下使用控件将剪贴板的 RTF 格式转换为 Html。然后将 Html 放置在剪贴板上。

总体顺序是：

将 RTF 作为 RTF 放在剪贴板上
创建一个 WebBrowser 控件并将其 DocumentText 设置为可编辑的 Html。

在 WebBrowser.DocumentCompleted 事件处理程序中，
将 RTF 粘贴到 WebBrowser。
选择所有的 Html 并复制它。
最后，处理 WebBrowser 控件。

...

Public Shared Sub RtfToHtmlClipboard(rtf As String)
    Clipboard.SetData(DataFormats.Rtf, rtf)
    Dim browser As New WebBrowser
    AddHandler browser.DocumentCompleted, Sub(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
                                            Dim wb As WebBrowser = CType(sender, WebBrowser)
                                            wb.Document.ExecCommand("Paste", False, Nothing)
                                            wb.Document.ExecCommand("SelectAll", False, Nothing)
                                            wb.Document.ExecCommand("Copy", False, Nothing)
                                            wb.Dispose()
                                          End Sub

    browser.DocumentText = "<html><body contenteditable=""true""></body></html>"
End Sub

编辑：

我使用上面的方法将 RTF 作为 HTML 放在剪贴板上，供用户手动粘贴。因此，我没有考虑使用对时间敏感的用例（例如 Excel 自动化）的含义。

对于自动化案例，最好不要每次都创建控件。此外，通过自动化（可能与 Office 剪贴板有关？）粘贴到 Excel 时，似乎还有其他机制在起作用，这再次证实了我不喜欢使用剪贴板。

但是，我发现以下可以将格式化的 RTF 复制到 Excel。我的 Office 版本是古老的（2007 年），所以希望这仍然适用于较新的版本。创建一个新的 WinForm 应用程序并将 Form1.VB 内容替换为以下内容以对其进行测试。在运行代码时，单击“执行”按钮以创建一个 Excel 实例并将一些格式化的 RTF 粘贴到其中。

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1
    Private WithEvents rtb As RichTextBox
    Private WithEvents btnExecute As Button
    Private editableBrowser As WebBrowser

    Public Sub New()
        InitializeComponent()
        Setup()
    End Sub

    Private Sub Setup()
        editableBrowser = New WebBrowser With {
            .DocumentText = "<html><body contenteditable=""true""></body></html>"
        }

        btnExecute = New System.Windows.Forms.Button()
        rtb = New System.Windows.Forms.RichTextBox()
        SuspendLayout()

        btnExecute.Location = New System.Drawing.Point(580, 20)
        btnExecute.Size = New System.Drawing.Size(135, 50)
        btnExecute.TabIndex = 0
        btnExecute.Text = "Execute"
        btnExecute.UseVisualStyleBackColor = True
        AddHandler btnExecute.Click, AddressOf btnExecute_Click

        rtb.Location = New System.Drawing.Point(20, 20)
        rtb.Size = New System.Drawing.Size(450, 350)
        rtb.TabIndex = 1

        ClientSize = New System.Drawing.Size(800, 450)
        Controls.Add(Me.rtb)
        Controls.Add(Me.btnExecute)
        ResumeLayout()
    End Sub

    Private Sub btnExecute_Click(sender As Object, e As EventArgs)
        ExcelWork()
        COMCleanUp()
    End Sub

    Private Function GetRTF1() As String
        rtb.Clear()
        ' add some text and format it.
        Dim formattedText As String = "some sample rtf"
        rtb.Text = "This is " & formattedText & " to format and copy."
        rtb.CreateControl()
        rtb.SelectionStart = rtb.Find(formattedText)
        rtb.SelectionLength = formattedText.Length
        rtb.SelectionColor = Color.Red
        rtb.SelectionFont = New Font(Font.FontFamily, Font.Size + 2.0F, FontStyle.Bold)
        Return rtb.Rtf
    End Function

    Sub ExcelWork()
        Dim app As New Excel.Application
        Dim wb As Excel.Workbook = app.Workbooks.Add()
        Dim rng As Excel.Range = DirectCast(wb.Worksheets(1), Excel.Worksheet).Range("A1")

        PlaceRtfFAsHtmlOnClipboard(GetRTF1)
        ' for some reason rng.PasteSpecial just pastes as 
        ' unformatted text.  manual pasting results in formatted 
        ' text.
        ' The Worsheet.Paste method as well as the Worsheet.PasteSpecial
        ' methods will paste the Clipboard HTML format
        rng.Worksheet.PasteSpecial(Format:="HTML")
        'rng.Worksheet.Paste(rng)

        wb.Saved = True
        app.Visible = True  ' hand control over to user
        app.UserControl = True
    End Sub

    Private Sub PlaceRtfFAsHtmlOnClipboard(rtf As String)

        ' Clear the browser
        editableBrowser.Document.ExecCommand("SelectAll", False, Nothing)
        editableBrowser.Document.ExecCommand("Cut", False, Nothing)

        '  put rtf on clipboard
        Clipboard.SetData(DataFormats.Rtf, rtf)

        ' and paste to the editable broswer
        editableBrowser.Document.ExecCommand("Paste", False, Nothing)
        editableBrowser.Document.ExecCommand("SelectAll", False, Nothing)

        ' copy the html to the Clipboard
        editableBrowser.Document.ExecCommand("Copy", False, Nothing)
    End Sub

    Private Sub COMCleanUp()
        Do
            GC.Collect()
            GC.WaitForPendingFinalizers()
        Loop While System.Runtime.InteropServices.Marshal.AreComObjectsAvailableForCleanup
    End Sub

End Class

excel - VB.net，将 RTF 文本框内容导出到 Excel 单元格

问题描述

解决方案

推荐阅读