Delphi 2007，将HTML表格从TWebbrowser导出到Excel

Question

我正在尝试将数据从TWebBrowser中的表复制到excel但没有成功。 随着第一个命令，我在excel里到处都是“对象”这个词 ＆安培;使用第二个命令，我在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?

有人知道溶解吗？

---

我想要做的就是将webbrowser的“Export to excel”选项实现到Delphi2007 ......当我使用此选项导出这个12000行表时，导出表只需不到一分钟来自Windows的任何Web浏览器。 尝试使用2D数组在Delphi中实现这一点需要10分钟...尝试使用解析技术（Stringlists，Pos（tr），pos（td）和其他一些字符串函数）实现导出需要很长时间...因此，webbrowser将html表导出为ex​​cel的命令是什么，我必须将它们转换为Delphi？我应该在Delphi中使用javascript吗？我应该使用指针吗？...任何想法？先感谢您。