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里面
最新推荐文章于 2020-12-22 13:20:26 发布
这段代码展示了如何在VBA中创建一个Excel应用程序实例,将网页表格数据导入到Excel工作表中,并进行格式设置。通过设置单元格字体、边框样式、对齐方式等,实现数据的美观展示。同时,代码还设置了页眉和页脚信息,以及保存Excel文件。
摘要由CSDN通过智能技术生成