国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

一、直接拷貝整個表格到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）,解決方法：一般都是表頭格式比較復雜，可先把表頭寫死，然后再循環寫其他數據。