中文字幕免费精品_亚洲视频自拍_亚洲综合国产激情另类一区_色综合咪咪久久

TablePrint函數有兩個參數，一個是頁面Table的ID，一個是報表的標題，都是字符串變量。如：

<table id="table1" >

<tr>

<td></td>1<td>2</td>

</tr>

<tr>

<td></td>3<td>4</td>

</tr>

</table>

要打印該表格只需在頁面調用VBS函數TablePrint("table1","TABLE導出EXCEL測試")即可調用EXCEL控件進行報表輸出。

在打印前請把客戶端瀏覽器－Internet選項->安全 中的ActiveX部分，把禁止的都改為允許或提示即可

<script language="VBScript">

sub TablePrint(ByVal cTable,ByVal cTitle)

dim app

set app = createobject("Excel.Application")

app.Visible = true

dim wb

set wb=app.Workbooks.Add()

dim ws

set ws=wb.sheets(1)

dim i,i2,k

i=0

i2=0

k=0

ws.Cells.NumberFormatLocal = "@" '設置所有單元格的格式為文本

dim pt

set pt=document.all(cTable)

dim colCount

colCount = pt.rows(0).cells.length

dim Title

set Title = ws.Cells(1,6)

Title.Font.FontStyle = "加粗"

Title.Font.Size = 23

Title.value = cTitle

for k=0 to pt.rows.length-1

If pt.rows(k).Cells(1).innerText <> "" Or pt.rows(k).Cells(2).innerText <> "" Then

i2 = 0

for i=1 to colCount -1

If pt.rows(k).cells(i).style.display <> "none" Then

'if k=0 then ws.Cells(k+2,i2+1).Font.FontStyle = "加粗"

ws.Cells(k+2,i2+1).value = pt.rows(k).cells(i).innerText

i2 = i2+1

End If

Next

End If

next

end Sub

更多信息請查看IT技術專欄