从Access VBA中的记录中提取html中的特定表列

我试图在access VBA中解析一些html代码。html位于查询的记录中，而不是文档中，并且有数千条记录

Lorem ipsum dolor sit amet，
献祭精英。前封建孕妇。克拉斯
这是一个很好的例子。在这座城市里，有一个叫nec iaculis的地方
mi semper ut.概述
信息品牌名称：LoremManufacturer:
Lorem制造商零件号：000-000-000营销信息：Lorem
ipsum dolor sit amet，是一位杰出的领导者。前封建孕妇。这是一个值得庆祝的节日。在我的家乡，我的家乡是一个小村庄。佩伦特式居住者morbi tristique Sentecus et netus et malesuada以turpis egestas闻名。多发性腹股沟炎。在苏打水粉中添加一种无尾蛇。但佩伦特斯式自由前，非莫利斯·洛雷姆·卢克图斯·比本杜姆。莫里斯·奥迪奥·萨皮恩，一位来自佩伦茨克的高级顾问。但laoreet commodo tortor convallis孕妇。包装类型：散装产品名称：知识产品类型：Ipsummiscellaneoused附加信息：
知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识产权保护知识
Lorem ipsum door sat amet，concetetur adipiscing elit.
Lorem ipsum door sat amet，concetetur adipiscing elit.
Lorem ipsum door sat amet，concetetur adipiscing elit.Lorem ipsum ipsum door sat amet，concetetur adipiscing elit.
Lorem ipsum ipsum door sat adipsum door sat amet，专业认证精英。
认证与认证；标准：
Lorem ipsum Door sit amet，Concertetur adipiscing Elite.
物理特性颜色：灰色技术信息IPSUM250英尺电缆类型：第5类导体：铜线有限保修：终身保修

到目前为止，我的VBA代码就在这里，我对VBA完全陌生

Sub Extract_TD_text()

Dim db As dao.Database
Dim rs As dao.Recordset
Dim doc As HTMLDocument
Dim sku As String
Dim tbl As HTMLTable
Dim tds As IHTMLElementCollection
Dim td As HTMLTableCell
Dim r As Long


Set db = CurrentDb
Set rs = db.OpenRecordset("Query2")
Set doc = rs.Fields("Desc")
Set tds = doc.getElementsByTagName("td")

If Not (rs.EOF And rs.BOF) Then
    rs.MoveFirst
    Do Until rs.EOF = True
    r = 0
        For Each td In tds
         Debug.Print td
         r = r + 1
         Next
    Loop
End If

'ExitSub:
'    Set rs = Nothing
'    '..and set it to nothing
'    Exit Sub
'ErrorHandler:
'    Resume ExitSub
End Sub

我需要从description字段中的每个html表中提取一行，第一列包含“Marketing Information”，第二列包含实际信息。然后将其内部文本放入元字段。所有元字段必须与其各自的sku字段匹配。此外，它不必是VBA，任何东西都会有帮助，但它必须在access中。我知道有很多，任何帮助都会很棒

---

谢谢大家!

这可能会有帮助：我以前确实见过这样的东西，但它对我来说并不适合。这是因为html位于查询的字段中。这无关紧要，请参见第二个答案

objXML.loadXML（strXML）

加载字符串，而不是文件。