如何将网页数据到入EXCEL里面

  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,