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

原创 2004年09月23日 15:09:00

  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, document.all.mytable.rows(0).cells.length)).Borders.LineStyle = 1
                                       '设表格边框样式
         .Range(.Cells(1, 1), .Cells(document.all.mytable.rows.length, document.all.mytable.rows(0).cells.length)).Font.Name = "宋体"
         .Range(.Cells(1, 1), .Cells(document.all.mytable.rows.length, document.all.mytable.rows(0).cells.length)).Font.Size = "9"
         .Range(.Cells(1, 1), .Cells(document.all.mytable.rows.length, document.all.mytable.rows(0).cells.length)).WrapText = True
         .Range(.Cells(1, 1), .Cells(document.all.mytable.rows.length, document.all.mytable.rows(0).cells.length)).HorizontalAlignment = xlCenter
                              .Range(.Cells(1, 1), .Cells(document.all.mytable.rows.length, document.all.mytable.rows(0).cells.length)).ShrinkToFit = True


                        End With

                        With objExcel.ActiveWorkBook.Sheets(1).PageSetup 
                             .LeftHeader = "" & Chr(10) & "&""宋体,常规""&10业务模块:"  & document.all.info.value
                             .CenterHeader = "&""宋体,粗体""巢湖配电地理信息系统"
                             .RightHeader = "" & Chr(10) & "&""宋体,常规""&10打印日期:"&now()
                             .LeftFooter = "&""宋体,常规""&10制表人:"
                             .CenterFooter = "&""宋体,常规""&10制表日期:"
                          '   .RightFooter = "&""宋体,常规""&10第&P页 共&N页"
                        End With
   'objExcel.Cells(2,2).Value=document.all.info.value

   'objExcel.Cells(3,2).Value="打印时间:"&now()    
       for a=0 to document.all.mytable.rows.length-1
          m_row = cstr(int (m_row)+1)
         for b=0 to document.all.mytable.rows(a).cells.length-1
               m_col = chr(asc("A")+b)
        'alert(document.all.mytable.rows(0).Cells(m_col).Width)
        'objexcel.Columns(m_col).ColumnWidth=document.all.mytable.rows(0).Cells(m_col).Width
               objexcel.range(m_col&m_row).select
               M_value = (document.all.mytable.rows(a).cells(b).innerText)
      objexcel.activecell.value=cstr(m_value)
      next       
       next 
   objexcel.visible=true
   objexcel.range("A1").select
   objExcel.ActiveWorkBook.SaveAs "C:/Report/"&document.all.info.value&".xls"
                        'DeleteFile("C:/Report/"&document.all.info.value&".xls")

  End sub
sub SetStyle(Obj)
    With Obj.ActiveWorkBook.Sheets(1)
       .Range(.Cells(1, 1), .Cells(1, 4)).Font.Name = "宋体"
       .Range(.Cells(1, 1), .Cells(1, 4)).Font.Bold = True
       .Range(.Cells(1, 1), .Cells(1, 4)).MergeCells = True
       .Range(.Cells(3, 2), .Cells(3, 4)).MergeCells = True
       .Range(.Cells(4, 2), .Cells(4, 4)).MergeCells = True
       .Range(.Cells(5, 2), .Cells(5, 4)).MergeCells = True
       .Range(.Cells(8, 2), .Cells(8, 4)).MergeCells = True
       .Range(.Cells(2, 1), .Cells(9, 4)).Borders.LineStyle = 1
       if document.getElementById("reportstyle").value <> "" then
        .Range(.Cells(11, 2), .Cells(11, 4)).MergeCells = True
        .Range(.Cells(12, 2), .Cells(12, 4)).MergeCells = True
        .Range(.Cells(11, 1), .Cells(15, 4)).Borders.LineStyle = 1
         if document.getElementById("reportstyle1").value <> "" then
         .Range(.Cells(17, 2), .Cells(17, 4)).MergeCells = True
         .Range(.Cells(18, 2), .Cells(18, 4)).MergeCells = True
         .Range(.Cells(17, 1), .Cells(19, 4)).Borders.LineStyle = 1
         if document.getElementById("reportstyle2").value <> "" then
         .Range(.Cells(21, 2), .Cells(21, 4)).MergeCells = True
         .Range(.Cells(22, 2), .Cells(22, 4)).MergeCells = True
         .Range(.Cells(21, 1), .Cells(24, 4)).Borders.LineStyle = 1
         if document.getElementById("reportstyle3").value <> "" then
         .Range(.Cells(26, 2), .Cells(26, 4)).MergeCells = True
         .Range(.Cells(26, 1), .Cells(27, 4)).Borders.LineStyle = 1
         end if
        end if
       end if
       end if
       .Range(.Cells(2, 1), .Cells(4, 4)).Font.Name = "宋体"
       .Range(.Cells(1, 1), .Cells(1, 4)).Font.Size = "12"
       .Range(.Cells(2, 1), .Cells(31, 4)).Font.Size = "9"
       .Range(.Cells(2, 1), .Cells(4, 4)).WrapText = True
       .Range(.Cells(2, 1), .Cells(8, 8)).ShrinkToFit = True
        objExcelSheet.Rows(5).RowHeight=30
       objExcelSheet.Columns(1).ColumnWidth = 18
        End With

end sub

如何解决(网页)粘贴数据到excel数据变换问题

如何解决网页粘贴数据到excel数据变换问题 首先我们获取过来的数据
  • xiyiyindie
  • xiyiyindie
  • 2016年12月27日 16:28
  • 663

教你如何把excel中的数据导入到Mysql中

其实很简单,按照我说的一步步做就好了。 第一步:把excel中的数据整理好 第二步:在数据结束的最后一列即第J列第一行写公式 第三步:按住第J列第第一行不要松手往下拖,算出其他行的结果。并把结果复...
  • u014374031
  • u014374031
  • 2015年06月21日 19:35
  • 485

java中如何导入excel表格

如果你想导出excel表格,请参考:http://blog.csdn.net/xuanzhangran/article/details/54709221 1:这是一个main方法,自己复制过去,运行...
  • xuanzhangran
  • xuanzhangran
  • 2017年04月13日 16:08
  • 804

如何将mfc中的数据导入到Excel中

MFC中如何将数据导入excel表格呢?只要完成以下操作即可。 1.在BOOLCExcelTestApp::InitInstance()中,dlg.DoModal();之前增加代码:  if (...
  • dushulin111
  • dushulin111
  • 2016年07月25日 11:28
  • 940

将Excel数据导入mysql数据库的几种方法

原文地址:将Excel数据导入mysql数据库的几种方法作者:和风煦煦  将Excel数据导入mysql数据库的几种方法   “我的面试感悟”有奖征文大赛结果揭晓! 前几天...
  • zhangzhengyuan123123
  • zhangzhengyuan123123
  • 2014年08月23日 21:30
  • 1888

如何把JSP页面导出到Excel中?

在此,强调一下搜索时关键词的重要性,这样一下子可以定位到文章,否则处于盲人摸象,毫无目的尴尬境地。本篇就是通过export jsp to excel找到的。 原文地址:How to Export W...
  • jptiancai
  • jptiancai
  • 2014年02月26日 11:52
  • 12370

怎样把Excel导入数据库——整体导入

上篇博客中介绍了批量导入Excel到数据库,其本质为将Excel转为DataTable再将DataTable 的数据取出来,一条条的插入到数据库中。下面我们介绍一种比较优化的方法:将整个DataTab...
  • u012923082
  • u012923082
  • 2013年11月22日 17:52
  • 658

jsp页面表格数据导出到excel

在程序猿的日常工作中经常会遇到这样的问题,如何将jsp页面表格中的数据导出到excel中? 我所知道的第一种方法是 function method1(tableid) {//整个表格拷贝...
  • henu2009220176
  • henu2009220176
  • 2013年08月25日 10:39
  • 6340

execl数据保存到数组中

借助odbc进行操作execl表格: #include "stdafx.h" #include "OdbcExcel.h" #include "OdbcExcelDlg.h" #ifdef _DEB...
  • u010951938
  • u010951938
  • 2015年12月30日 16:22
  • 1023

【机房收费系统】VB中如何将数据导入excel2013

数据的问题几乎贯穿每个系统的始终,数据输入,程序进行数据处理,然后数据输出,整个系统就完了……前几篇博客讲了数据处理中的增删改查,今天,再来分享一种数据可视化的方法——将数据导出至excel表格。首先...
  • srk950606
  • srk950606
  • 2015年08月24日 10:24
  • 1091
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何将网页数据到入EXCEL里面
举报原因:
原因补充:

(最多只允许输入30个字)