请高手近来帮帮忙，谢谢

Question

我需要从不同的网页上获取表格，然后将数据处理一下生成另外的格式（EXCEL），网页上表格的格式基本固定，我可以根据Url访问这些网页。这样编程怎么来实现呢？

Answer 1

我的困难有两个第一，怎么实现把一个网页里的table取得。第二，怎么转换为EXCEL格式。

Answer 2

我的看法：
将网页load到Tstrings中，在内存中分析每行字符串，到‘<Table ’标记的时候，判断（固定的应该好判断），同样分析表格，写到临时数组或临时数据库中，然后用Delphi中Server页ExcelApplication等部件写到文件中(可参考MSDN)

Answer 3

你可能需要分析HTML的源代码，根据源代码分析出哪些是你需要的数据，然后将这些数据写入Excel就可以了。
比如一个表的html代码是<table></table>，一行是<tr></tr>，一个单元格是<td></td>，这是最基本的html代码，只要你能提取出每个单元格的内容，然后通过delphi创建一个CreateOLEObject('Excel.Application')然后导入就可以了

Answer 4

导入的代码如下，你可能要稍稍改一下：
var
  Excel,WrkBook,WrkSheet:olevariant;
  Row, SheetCount, tmp, Col, TotalRow : integer;begin
   Excel := CreateOleObject('Excel.Application');
   WrkBook:=Excel.WorkBooks.Add;
   Row := 1;
   SheetCount:=1;
   Col := 10;//列数
   TotalRow := 1000;//行数
   for tmp := 0 to Col - 1 do     //加入标题:
       Excel.WorkSheets[SheetCount].Cells[Row,tmp+1].Value:=标题;
   for Row := 2 to TotalRow+1 do
      Begin
        for tmp := 0 to Col - 1 do
          Excel.WorkSheets[SheetCount].Cells[Row,Tmp+1].Value := 提取出的内容;
      End;
   Excel.Activeworkbook.saveas('c:\export.xls');
   WrkBook.close;
   Excel.quit ;
   Excel:=unassigned ;

Answer 5

谢谢wweijie(我是一只小小小小鸟) 还有hammer_shi(@农业专家@) 你能不能把分析代码发给我呢，我的
mail: [email protected]谢谢