sub btnExport_onclick()
' alert(document.all.mytable.rows(0).cells.length)
dim objExcel
on error resume next
CreateFolder()
DeleteFile("C:/Report/"&document.all.info.value&".xls")
Set objExcel = CreateObject("excel.application")
With objExcel
.visible =true
.workbooks.add
.sheets("sheet1").select
End with
m_row="0"
With objExcel.ActiveWorkBook.Sheets(1)
.Range(.Cells(1, 1), .Cells(1, document.all.mytable.cells.length)).Font.Name = "宋体"
'设标题为黑体字
.Range(.Cells(1, 1), .Cells(1, document.all.mytable.cells.length)).Font.Bold = True
'标题字体加粗
.Range(.Cells(1, 1), .Cells(document.all.mytable.rows.length,
如何将网页数据到入EXCEL里面
最新推荐文章于 2019-06-24 14:22:00 发布
![](https://img-home.csdnimg.cn/images/20240711042549.png)