一、直接拷贝整个表格到EXCEL中

二、通过遍历表格，给EXCEL中相应的单元格赋值。

三、把表格中的内容提取出来，利用IE的另存为.csv的格式。

各方法的好处：

1.      直接拷贝表格，能够保留表格中的原有的格式，比如，列，行的合并，对齐方式，底色等等，

2.      通过遍历表格，比较灵活，可以遍历表格某些需要部分的内容。

3.      利用IE的另存为，不用创建ActiveXObject对象，可以处理表格合并方面的问题。

各方法的缺点：

1.      可能弹出脚本错误：Automation不能创建对象。

解决方法：启用IE安全设置中的：对没有标记为安全的ActiveX控件进行初始化和脚本运行。

由于整个表格复制到EXCEL中，给表格加个标题，并加入到EXCEL中可能会遇到麻烦。

解决方法：首先在表格中加入第一行

<tr><td colspan="x" align="center">&</td></tr>

X，表示整个表格的列数，复制完整个表格后,加如下代码，oSheet为当前活动的sheet.

oSheet.Range(oSheet.Cells(1, 1), oSheet.Cells(1, x)).value = "表格标题";//设置标题

oSheet.Rows(1).Font.Size = 16;   //设置文字大小          

oSheet.Rows(1).Font.Name = "宋体";//设置文字字体

注：以下属性我没用着，可能有用，也可能会报错

oSheet.Range(oSheet.Cells(1,1), oSheet.Cells(1,14)).mergecells=true; //合并单元格

oSheet.Range(oSheet.Cells(1,1), oSheet.Cells(1,14)).Interior.ColorIndex=6;//设置底色?

oSheet.Range(oSheet.Cells(1,1), oSheet.Cells(1,14)).Font.ColorIndex=5;//设置字体色?

oSheet.Rows(1).RowHeight=20; //设置列高

oSheet.Cells(iRow,iCol).Halignment=’2’//设置字体居中

2.      可能弹出脚本错误：Automation不能创建对象（解决方法如上）。

表格内容写入到EXCEL中无表格线（未解决）

且有单元格合并时会有问题，解决方法：合并单元格后再写数据。

oSheet.Range(oSheet.Cells(1,1), oSheet.Cells(1,14)).mergecells=true; //合并单元格

3.      表格内容写入到EXCEL中无表格线（未解决）

表格格式复杂时，会有问题，（rowspan>1 or colspan>1）,解决方法：一般都是表头格式比较复杂，可先把表头写死，然后再循环写其他数据。