Delphi2007，将HTML表格从TWebbrowser导出到Excel

我试图将TWebBrowser中的表中的数据复制到excel中，但没有成功。 使用第一个命令，我可以在excel中找到“object”这个词 &使用第二个命令，我在excel中的所有位置都得到了相同的值

var
  Table: OleVariant;
Begin
  Table := WebBrowser1.OleObject.Document.all.tags( 'TABLE' ).item( strtoint( edit3.Text ) );
  WS.range[ws.cells[1, 1], ws.cells[Table.Rows.Length, Table.Rows.Item(1).Cells.Length]].value:=Table; ?1?
  WS.range[ws.cells[1, 1], ws.cells[Table.Rows.Length, Table.Rows.Item(1).Cells.Length]].value:=Table.innertext; ?2?

有人知道解决方案吗

---

我只想在Delphi2007中实现webbrowser的“导出到excel”选项。。。。。。当我使用此选项导出此12000行表时，从windows的任何web浏览器导出该表所需的时间不到一分钟。

---

尝试在Delphi中使用2D数组实现此功能需要10分钟。。。尝试使用解析技术（StringList、Pos（tr）、Pos（td）和其他一些字符串函数）实现导出需要很长时间。。。因此，webbrowser的哪些命令可以将html表导出到excel，而我必须将它们转换为Delphi？我应该在Delphi中使用javascript吗？我应该用指针吗？…有什么想法吗？先谢谢你

解决方案是逐行逐列复制单元格的值。我已经这样做了，这很耗时。这一定是另一种方式，可能类似于经典webbrowser的命令“导出到excel”或直接通过HTML获取表的数据……您可以将任务分为两部分：创建2D数组类型的变体并将HTML读入其中，然后在一次操作中将该数组复制到excel范围我也尝试过。耗时..该表有12000行…我确信它必须存在一个命令，我可以从TWebBrowser复制表/数据…可能使用剪贴板-但这会破坏其中的用户数据，这是一个糟糕的解决方案。到底什么是慢？从MSIE读取还是写入Excel？您可以复制表的innerHTML并使用任何html解析器进行解析吗？