一、 直接拷贝整个表格到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),解决方法:一般都是表头格式比较复杂,可先把表头写死,然后再循环写其他数据。