在 Excel 中显示 MS-Access 记录的富文本格式

Question

我想做的事

我有一个 Access 数据库（ C:\Users\289894\Desktop\Database1.accdb ） [Table1] 的字段之一是 [Memo]。

该字段属于Memo 数据类型，文本格式设置为rich text。 例如，它可以将一些记录保存为 Bold，而将一些记录保存为 Italics。

我想从一个 excel 文件打开到这个 Access 数据库的连接，以便读/写这个富文本字段。

我使用的代码如下：

    Dim datab As Database
    Dim rs As Recordset
    Dim path As String

    path = "C:\Users\289894\Desktop\Database1.accdb"

    Set datab = OpenDatabase(path)
    Set rs = datab.OpenRecordset("SELECT * FROM [Table1]")

        Debug.Print rs!Memo
        Range("A1") = rs!Memo

我的问题

这段代码可以很好地打开一个连接并读取普通文本字段，但富文本的行为方式令人惊讶（对我来说）。访问中的原始文本是“aaa”。那是粗体字的“aaa”。

运行代码后，debug.print 和 Range("A1") 都写入了<div><strong>aaa</strong></div>。

如何更改我的代码以将格式也发送到 Excel？我想在单元格 A1 中用粗体字写出“aaa”，就像在 Access 中一样。

编辑：解决方法 这解决了问题提出的直接问题，而没有真正回答问题本身。它使用 Internet Explorer 将文本粘贴回为富文本，不带标签。

Sub Sample()
    Dim Ie As Object
    Dim rng As Range

        Set rng = Feuil1.Range("A1")

        Set Ie = CreateObject("InternetExplorer.Application")

        With Ie
            .Visible = False

            .Navigate "about:blank"

            .Document.body.InnerHTML = rng.Value

            .ExecWB 17, 0
            'Select all contents in browser
            .ExecWB 12, 2
            'Copy them
            ActiveSheet.Paste Destination:=rng


            .Quit
        End With

End Sub

Answer 1

试一试。循环范围是通用的。此外，函数假定 HTML 非常有限，如您的示例所示。

Sub Test()

Dim cel As Range
For Each cel In Range("A1:A100")

    cel.Font.Bold = InStr(1, cel.Value, "<strong>")
    cel.Font.Italic = InStr(1, cel.Value, "<i>")
    cel.Value = RemoveHTML(cel.Value)

Next

End Sub

Function RemoveHTML(sHTML As String) As String

Dim sTemp As String
sTemp = sHTML

Dim bLeft As Byte, bRight As Byte
bRight = InStr(1, sTemp, "</")
bLeft = InStrRev(sTemp, ">", bRight)

RemoveHTML = Mid(sTemp, bLeft + 1, bRight - bLeft - 1)

End Function