Question

我有一个宏，打开IE浏览器并导航到网页。所以现在在网页上有多个表格。我正在尝试将最后一个复制到Excel中的页面以进行进一步的计算，但它会将整个表中的所有值复制到一个单元格中。如何获取将文本拆分为单元格的代码？每个页面的列都是固定的，但行数可能会有所不同。

Worksheets("temp").Range("A1").Value = ie.document.getelementsbytagname("Table")(32).innertext

Answer 1

以下是我过去使用的内容：

因为该表更可能有行和列（td，tr），所以无法将整个数据分配给单个范围/单元格。

我使用的方法是将整个表格复制到剪贴板并将其粘贴到单元格/范围A1上。

Set clipboard = New MSForms.DataObject
clipboard.SetText ie.document.getelementsbytagname("Table")(32).outerHTML
clipboard.PutInClipboard
Worksheets("temp").Cells(1, 1).PasteSpecial

编辑：您需要添加对Microsoft Forms 2.0对象库的引用

VBA将WebTable复制到Excel

1 个答案: